/[gcl]/gcl/o/makefun.c
ViewVC logotype

Diff of /gcl/o/makefun.c

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:11 1999 UTC revision 1.2 by camm, Fri May 17 04:23:15 2002 UTC
# Line 7  MakeAfun(addr,F_ARGD(min,max,flags,ARGTY Line 7  MakeAfun(addr,F_ARGD(min,max,flags,ARGTY
7  MakeAfun(addr,F_ARGD(2,3,NONE,ARGTYPES(OO,OO,OO,OO)),0);  MakeAfun(addr,F_ARGD(2,3,NONE,ARGTYPES(OO,OO,OO,OO)),0);
8  */  */
9  object MakeAfun(addr,argd,data)  object MakeAfun(addr,argd,data)
10  object data, (*addr) ();  object data;
11    int (*addr) ();
12  unsigned int argd;  unsigned int argd;
13  {int type = (F_ARG_FLAGS_P(argd,F_requires_fun_passed) ? t_closure : t_afun);  {int type = (F_ARG_FLAGS_P(argd,F_requires_fun_passed) ? t_closure : t_afun);
14    object x = alloc_object(type);    object x = alloc_object(type);
# Line 138  LISP_makefun(strg,fn,argd) Line 139  LISP_makefun(strg,fn,argd)
139  object  object
140  MakeClosure(n,argd,data,fn,va_alist)  MakeClosure(n,argd,data,fn,va_alist)
141  int n;  int n;
142  object (*fn)();  int (*fn)();
143  object data;  object data;
144  va_dcl  va_dcl
145  { object x;  { object x;

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