|
|
61a2dab |
--- gcl/h/object.h.orig 2021-01-06 08:02:13.919618959 -0700
|
|
|
61a2dab |
+++ gcl/h/object.h 2021-01-06 08:03:31.819442248 -0700
|
|
|
61a2dab |
@@ -386,7 +386,7 @@ ufmax(ufixnum a,ufixnum b) {
|
|
|
dd92246 |
#include <unistd.h>
|
|
|
dd92246 |
#include <stdio.h>
|
|
|
dd92246 |
#include <stdarg.h>
|
|
|
dd92246 |
-INLINE int
|
|
|
dd92246 |
+INLINE int __attribute__((format(gnu_printf,1,2)))
|
|
|
dd92246 |
emsg(const char *s,...) {
|
|
|
dd92246 |
va_list args;
|
|
|
dd92246 |
ufixnum n=0;
|
|
|
2b15d05 |
--- gcl/o/external_funs.h.orig 2014-10-23 15:29:00.000000000 -0600
|
|
|
2b15d05 |
+++ gcl/o/external_funs.h 2020-01-31 11:59:01.372252430 -0700
|
|
|
2b15d05 |
@@ -167,8 +167,8 @@ extern int illegal_lambda GPR((void));;
|
|
|
4b6dc23 |
extern object find_special GPR((object body, struct bind_temp *start, struct bind_temp *end));;
|
|
|
4b6dc23 |
extern object let_bind GPR((object body, struct bind_temp *start, struct bind_temp *end));;
|
|
|
4b6dc23 |
extern object letA_bind GPR((object body, struct bind_temp *start, struct bind_temp *end));;
|
|
|
4b6dc23 |
-extern int parse_key GPR((object *base, bool rest, bool allow_other_keys, register int n, int __builtin_va_alist));;
|
|
|
4b6dc23 |
-extern int check_other_key GPR((object l, int n, int __builtin_va_alist));;
|
|
|
4b6dc23 |
+extern int parse_key GPR((object *base, bool rest, bool allow_other_keys, int n, ...));;
|
|
|
4b6dc23 |
+extern int check_other_key GPR((object l, int n, ...));;
|
|
|
4b6dc23 |
extern int parse_key_new GPR((int n, object *base, struct key *keys, ...));;
|
|
|
4b6dc23 |
extern int parse_key_rest GPR((object rest, int n, object *base, struct key *keys, ...));;
|
|
|
4b6dc23 |
extern int set_key_struct GPR((struct key *ks, object data));;
|
|
|
2b15d05 |
@@ -380,7 +380,6 @@ extern int not_a_symbol GPR((int obj));;
|
|
|
4b6dc23 |
extern int not_a_variable GPR((int obj));;
|
|
|
4b6dc23 |
extern int illegal_index GPR((object x, object i));;
|
|
|
4b6dc23 |
extern int Lerror GPR((void));;
|
|
|
4b6dc23 |
-extern object LVerror GPR((int __builtin_va_alist));;
|
|
|
4b6dc23 |
extern int Lcerror GPR((void));;
|
|
|
4b6dc23 |
extern int vfun_wrong_number_of_args GPR((object x));;
|
|
|
4b6dc23 |
extern int init_error GPR((void));;
|
|
|
2b15d05 |
@@ -415,9 +414,6 @@ extern object ifuncall1 GPR((object fun,
|
|
|
4b6dc23 |
extern object ifuncall2 GPR((object fun, object arg1, object arg2));;
|
|
|
4b6dc23 |
extern object ifuncall3 GPR((object fun, object arg1, object arg2, object arg3));;
|
|
|
4b6dc23 |
extern int funcall_with_catcher GPR((object fname, object fun));;
|
|
|
4b6dc23 |
-extern object fcalln_cclosure GPR((...));;
|
|
|
4b6dc23 |
-extern object fcalln_general GPR((...));;
|
|
|
4b6dc23 |
-extern object fcalln_vfun GPR((va_list vl));;
|
|
|
4b6dc23 |
-extern object fcalln GPR((int __builtin_va_alist));;
|
|
|
4b6dc23 |
-extern object funcall_cfun GPR((funcvoid fn, int n, int __builtin_va_alist));;
|
|
|
4b6dc23 |
+extern object fcalln GPR((object first, ...));;
|
|
|
4b6dc23 |
+extern object funcall_cfun GPR((funcvoid fn, int n, ...));;
|
|
|
4b6dc23 |
extern int init_eval GPR((void));;
|