From 8137de95836efde680c19d57f6a93bc957dc9378 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Thu, 13 Jul 1995 17:16:52 +0000 Subject: [PATCH] Pour le MIPS, implementation du bit "deja scanne". git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@106 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- asmrun/roots.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/asmrun/roots.c b/asmrun/roots.c index cb8aae538..554d57d62 100644 --- a/asmrun/roots.c +++ b/asmrun/roots.c @@ -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