Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl
Commits:
-
c94b80e3
by Raymond Toy at 2017-01-12T19:34:29-08:00
1 changed file:
Changes:
| ... | ... | @@ -157,7 +157,7 @@ call_into_c: |
| 157 | 157 |
mov reg_CSP, reg_CFP
|
| 158 | 158 |
add reg_CSP, 64, reg_CSP
|
| 159 | 159 |
stn reg_OCFP, [reg_CFP]
|
| 160 |
- stn reg_CODE, [reg_CFP+8]
|
|
| 160 |
+ stn reg_CODE, [reg_CFP+2*8]
|
|
| 161 | 161 |
|
| 162 | 162 |
/* Turn on pseudo-atomic. */
|
| 163 | 163 |
or reg_ALLOC, pseudo_atomic_Value, reg_ALLOC
|
| ... | ... | @@ -165,7 +165,7 @@ call_into_c: |
| 165 | 165 |
/* Convert the return address to an offset and save it on the stack. */
|
| 166 | 166 |
sub reg_LIP, reg_CODE, reg_L0
|
| 167 | 167 |
add reg_L0, type_OtherPointer, reg_L0
|
| 168 |
- stn reg_L0, [reg_CFP+2*8]
|
|
| 168 |
+ stn reg_L0, [reg_CFP+8]
|
|
| 169 | 169 |
|
| 170 | 170 |
/* Store LISP state */
|
| 171 | 171 |
store(reg_BSP,current_binding_stack_pointer)
|