X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fhppa-lispregs.h;h=39b7cfb532600e8d7aad47f09932e6e57aa2fd60;hb=dd54f9e004a0a83d1328e94648f48dcc27e0be5b;hp=a08adee274d3659b5463d1abc2156534db5b67b7;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git

diff --git a/src/runtime/hppa-lispregs.h b/src/runtime/hppa-lispregs.h
index a08adee..39b7cfb 100644
--- a/src/runtime/hppa-lispregs.h
+++ b/src/runtime/hppa-lispregs.h
@@ -1,4 +1,4 @@
-#define NREGS	(32)
+#define NREGS   (32)
 
 #ifdef LANGUAGE_ASSEMBLY
 #define REG(num) num
@@ -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