#include "genesis/fdefn.h"
#include "genesis/closure.h"
#include "genesis/funcallable-instance.h"
-#include "genesis/return-pc.h"
#include "genesis/simple-fun.h"
#include "genesis/static-symbols.h"
lw reg_A5, 20(reg_CFP)
/* Calculate LRA */
- la reg_LRA, lra - RETURN_PC_RETURN_POINT_OFFSET
+ la reg_LRA, lra + OTHER_POINTER_LOWTAG
/* Indirect closure */
lw reg_CODE, CLOSURE_FUN_OFFSET(reg_LEXENV)
See debug-var-io.lisp. */
.byte 254
/* reg_FDEFN is #14. */
- .byte ((14 << 5) + sc_DescriptorReg) % 0x100
- .byte ((14 << 5) + sc_DescriptorReg) / 0x100
+ .byte ((14 << 6) + sc_DescriptorReg) % 0x100
+ .byte ((14 << 6) + sc_DescriptorReg) / 0x100
.align 2
.set reorder
1: lw reg_CODE, FDEFN_FUN_OFFSET(reg_FDEFN)