diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-05-13 14:03:16 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-05-13 14:03:16 +0000 |
| commit | 55c3fbdf7d7f27a1759d4097097fcf3f9451d315 (patch) | |
| tree | 4f553befe873135ad92ec926589ed2a649731d85 /asmrun | |
| parent | 8f7049a7f415d964b01203cb126f42f5abde6486 (diff) | |
| download | ocaml-55c3fbdf7d7f27a1759d4097097fcf3f9451d315.tar.gz | |
Pour l'Alpha, 1 -> 1L dans les masques.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1532 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmrun')
| -rw-r--r-- | asmrun/stack.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/asmrun/stack.h b/asmrun/stack.h index 233cb41b2a..f5dd40d76c 100644 --- a/asmrun/stack.h +++ b/asmrun/stack.h @@ -19,9 +19,9 @@ #ifdef TARGET_alpha #define Saved_return_address(sp) *((long *)(sp - 8)) -#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 & 1L) +#define Mark_scanned(sp, retaddr) (*((long *)(sp - 8)) = retaddr | 1L) +#define Mask_already_scanned(retaddr) (retaddr & ~1L) #define Callback_link(sp) ((struct callback_link *)(sp + 16)) #endif |