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) {\ |