Callbacks pour le Mips.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@561 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
b7267f4e87
commit
e49ed7cea8
|
@ -43,6 +43,7 @@
|
|||
#define Already_scanned(sp, retaddr) (retaddr & 1)
|
||||
#define Mark_scanned(sp, retaddr) (*((long *)(sp - 4)) = retaddr | 1)
|
||||
#define Mask_already_scanned(retaddr) (retaddr & ~1)
|
||||
#define Callback_link(sp) ((struct callback_link *)sp)
|
||||
#endif
|
||||
|
||||
#ifdef TARGET_hppa
|
||||
|
|
Loading…
Reference in New Issue