Callbacks pour le Mips.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@561 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1995-12-20 15:20:00 +00:00
parent b7267f4e87
commit e49ed7cea8
1 changed files with 1 additions and 0 deletions

View File

@ -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