Pour le MIPS, implementation du bit "deja scanne".
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@106 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
d0c03529e9
commit
8137de9583
|
@ -19,9 +19,9 @@
|
|||
|
||||
#ifdef TARGET_mips
|
||||
#define Saved_return_address(sp) *((long *)(sp - 4))
|
||||
/** #define Already_scanned(sp, retaddr) (retaddr & 1)
|
||||
#define Mark_scanned(sp, retaddr) (*((long *)(sp - 8)) = retaddr | 1)
|
||||
#define Mask_already_scanned(retaddr) (retaddr & ~1) **/
|
||||
#define Already_scanned(sp, retaddr) (retaddr & 1)
|
||||
#define Mark_scanned(sp, retaddr) (*((long *)(sp - 4)) = retaddr | 1)
|
||||
#define Mask_already_scanned(retaddr) (retaddr & ~1)
|
||||
#endif
|
||||
|
||||
#ifdef TARGET_i386
|
||||
|
|
Loading…
Reference in New Issue