/[gcl]/gcl/h/funlink.h
ViewVC logotype

Diff of /gcl/h/funlink.h

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:02 1999 UTC revision 1.2 by camm, Sat Oct 26 16:18:13 2002 UTC
# Line 71  A link arg descriptor: Line 71  A link arg descriptor:
71    
72    
73  #define PUSH_FIRST_VAL(x) int nvals = 1 ; object result = (x)  #define PUSH_FIRST_VAL(x) int nvals = 1 ; object result = (x)
74  #define PUSH_VAL(x) fcall.values[nvals++] = (x)  #define PUSH_VAL(x) if (nvals>=sizeof(fcall.values)/sizeof(*fcall.values) \
75                           FEerror("Too many function call values"); \
76                         else fcall.values[nvals++] = (x)
77  #define RETURN_VALS   fcall.nvalues= nvals; return result;} 0  #define RETURN_VALS   fcall.nvalues= nvals; return result;} 0
78    
79  #define FUNCALL(n,form) (VFUN_NARGS=n,form)  #define FUNCALL(n,form) (VFUN_NARGS=n,form)

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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