/[gcl]/gcl/h/make-init.h
ViewVC logotype

Diff of /gcl/h/make-init.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Sat Feb 15 00:38:27 2003 UTC revision 1.4.6.1 by camm, Thu Nov 6 16:16:49 2003 UTC
# Line 15  Line 15 
15     pack == LISP ? LISP_makefun(string,fname,argd) : \     pack == LISP ? LISP_makefun(string,fname,argd) : \
16     error("Bad pack variable in MAKEFUN\n"))     error("Bad pack variable in MAKEFUN\n"))
17    
18    #define MAKESYM(pack,string) \
19      (pack == SI ? make_si_ordinary(string) : \
20       pack == LISP ? make_ordinary(string) : \
21       (error("Bad pack variable in MAKESYM\n"),Cnil))
22    
23  #undef DEFUN  #undef DEFUN
24  #define DEFUN(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,doc) \  #define DEFUN(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,doc) \
25    {extern ret fname(); \    {extern ret fname(); \
# Line 25  Line 30 
30    {extern ret fname(); \    {extern ret fname(); \
31       MAKEFUN(pack,string,fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));}       MAKEFUN(pack,string,fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));}
32    
33    /* FIXME, possibly restore old MAKEFUN in place (in NewInit) here
34       when STATIC_FUNCTION_POINTERS not defined */
35  #undef DEFUN_NEW  #undef DEFUN_NEW
36  #define DEFUN_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,args,doc) \  #define DEFUN_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,args,doc) \
37    {extern ret fname args; \    {extern void Mjoin(fname,_init)(); Mjoin(fname,_init)();}
      MAKEFUN(pack,string,(ret (*)())fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));}  
38    
39  #undef DEFUNO_NEW  #undef DEFUNO_NEW
40  #define DEFUNO_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,oldret,old,args,doc) \  #define DEFUNO_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,oldret,old,args,doc) \
41    {extern ret fname args; \    {extern void Mjoin(fname,_init)();Mjoin(fname,_init)();}
      MAKEFUN(pack,string,(ret (*)())fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));}  
42    
43  #undef DEFCOMP  #undef DEFCOMP
44  #define DEFCOMP(type, fun,doc) Ineed_in_image(fun);  #define DEFCOMP(type, fun,doc) Ineed_in_image(fun);

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26