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

Diff of /gcl/o/eval.c

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

revision 1.6 by camm, Thu Aug 1 22:15:06 2002 UTC revision 1.7 by camm, Fri Aug 2 22:23:59 2002 UTC
# Line 58  object sSAbreak_stepA; Line 58  object sSAbreak_stepA;
58     object.  A proper fix will require rewriting sections of the lisp     object.  A proper fix will require rewriting sections of the lisp
59     compiler to separate the calling procedures for functions returning     compiler to separate the calling procedures for functions returning
60     an object from functions returning a long.  CM  20020801 */     an object from functions returning a long.  CM  20020801 */
61  #if defined(__mc68020__)  /*  #if defined(__mc68020__) */
62  #define LCAST(a) (object)(*(long(*)())a)  /*  #define LCAST(a) (object)(*(long(*)())a) */
63  #else  /*  #else */
64  #define LCAST(a) (*a)  #define LCAST(a) (*a)
65  #endif  /*  #endif */
66    
67  #define SET_TO_APPLY(res,f,n,x) \  #define SET_TO_APPLY(res,f,n,x) \
68   switch(n) {\   switch(n) {\

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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