diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2006-05-31 08:16:34 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2006-05-31 08:16:34 +0000 |
| commit | d9be4fee6af0646b153cf0cc562b632f67ceca58 (patch) | |
| tree | c0634a5d96c084ad6acd0de8f73281539935d016 /asmrun/stack.h | |
| parent | 0b0804968f90e9b3cef55a614c777ba7f7d65a47 (diff) | |
Portage PowerPC 64 bits
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7430 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmrun/stack.h')
| -rw-r--r-- | asmrun/stack.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/asmrun/stack.h b/asmrun/stack.h index 9805bfb69..e8d1b5807 100644 --- a/asmrun/stack.h +++ b/asmrun/stack.h @@ -53,9 +53,9 @@ #endif #ifdef TARGET_power -#define Saved_return_address(sp) *((intnat *)((sp) - 4)) +#define Saved_return_address(sp) *((intnat *)((sp) - SIZEOF_PTR)) #define Already_scanned(sp, retaddr) ((retaddr) & 1) -#define Mark_scanned(sp, retaddr) (*((intnat *)((sp) - 4)) = (retaddr) | 1) +#define Mark_scanned(sp, retaddr) (*((intnat *)((sp) - SIZEOF_PTR)) = (retaddr) | 1) #define Mask_already_scanned(retaddr) ((retaddr) & ~1) #ifdef SYS_aix #define Trap_frame_size 32 |