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

Diff of /gcl/o/funlink.c

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

revision 1.10 by camm, Thu Aug 1 22:15:06 2002 UTC revision 1.11 by camm, Fri Aug 2 22:23:59 2002 UTC
# Line 224  clean_link_array(object *ar, object *ar_ Line 224  clean_link_array(object *ar, object *ar_
224     object.  A proper fix will require rewriting sections of the lisp     object.  A proper fix will require rewriting sections of the lisp
225     compiler to separate the calling procedures for functions returning     compiler to separate the calling procedures for functions returning
226     an object from functions returning a long.  CM  20020801 */     an object from functions returning a long.  CM  20020801 */
227  #if defined(__mc68020__)  /*  #if defined(__mc68020__) */
228  #define LCAST(a) (object)(*(long(*)())a)  /*  #define LCAST(a) (object)(*(long(*)())a) */
229  #else  /*  #else */
230  #define LCAST(a) (*a)  #define LCAST(a) (*a)
231  #endif  /*  #endif */
232    
233  object  object
234  c_apply_n(object (*fn)(), int n, object *x)  c_apply_n(object (*fn)(), int n, object *x)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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