X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fhppa-lispregs.h;h=39b7cfb532600e8d7aad47f09932e6e57aa2fd60;hb=372d68ae1432a96a527c662de3af3bb334808856;hp=9d779e842c5394a2b04efc85c5e52a7d975e551b;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git

diff --git a/src/runtime/hppa-lispregs.h b/src/runtime/hppa-lispregs.h
index 9d779e8..39b7cfb 100644
--- a/src/runtime/hppa-lispregs.h
+++ b/src/runtime/hppa-lispregs.h
@@ -47,17 +47,8 @@
     "NL2", "NL1", "NL0", "DP", "NL4", "NL5", "NSP", "LIP"
 
 #define BOXED_REGISTERS { \
-    reg_CODE, reg_FDEFN, reg_LEXENV, reg_NARGS, reg_OCFP, reg_LRA, \
+    reg_CODE, reg_FDEFN, reg_LEXENV, reg_OCFP, reg_LRA, \
     reg_A0, reg_A1, reg_A2, reg_A3, reg_A4, reg_A5, \
-    reg_L0, reg_L1, reg_L2 \
+    reg_L0, reg_L1, reg_L2, reg_NFP \
 }
 
-#ifdef hpux
-#define SC_REG(sc, n) (((unsigned long *)(&(sc)->sc_sl.sl_ss.ss_flags))[n])
-#define SC_PC(sc) ((sc)->sc_sl.sl_ss.ss_pcoq_head)
-#define SC_NPC(sc) ((sc)->sc_sl.sl_ss.ss_pcoq_tail)
-#else
-#define SC_REG(sc, n) (((unsigned long *)((sc)->sc_ap))[n])
-#define SC_PC(sc) ((sc)->sc_pcoqh)
-#define SC_NPC(sc) ((sc)->sc_pcoqt)
-#endif