Commits

Anonymous committed 336c6a9

Pour le MIPS, implementation du bit "deja scanne".

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@106f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

  • Participants
  • Parent commits efd3f19

Comments (0)

Files changed (1)

 
 #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