1997-01-31
1997-01-31 23:54:34 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
32a958e813744ab4dc40e96a5fbf728117e9b819
(22 lines)
(+8/-14)
[
Show
| Annotate
]
Branch: 7.9
bug in mktime() fixed
Rev: src/builtin_functions.c:1.26
4:
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
- RCSID("$Id: builtin_functions.c,v 1.25 1997/01/30 03:51:31 hubbe Exp $");
+ RCSID("$Id: builtin_functions.c,v 1.26 1997/01/31 23:54:34 hubbe Exp $");
#include "interpret.h"
#include "svalue.h"
#include "macros.h"
32:
#include "encode.h"
#include <math.h>
#include <ctype.h>
+ #include "module_support.h"
#ifdef HAVE_CRYPT_H
#include <crypt.h>
63:
void f_trace(INT32 args)
{
extern int t_flag;
- int old_t_flag;
-
- if(args < 1)
- error("Too few arguments to trace()\n");
-
- if(sp[-args].type != T_INT)
- error("Bad argument 1 to trace()\n");
-
- old_t_flag=t_flag;
- t_flag=sp[-args].u.integer;
- sp[-args].u.integer=old_t_flag;
- pop_n_elems(args-1);
+ int old_t_flag=t_flag;
+ get_all_args("trace",args,"%i",&t_flag);
+ pop_n_elems(args);
+ push_int(old_t_flag);
}
void f_hash(INT32 args)
1373: Inside #if defined(HAVE_MKTIME)
args=8;
}
- get_all_args("mktime","%i%i%i%i%i%i%i",
+ get_all_args("mktime",args, "%i%i%i%i%i%i%i",
&sec, &min, &hour, &mday, &mon, &year, &isdst, &tz);