X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fppc-lispregs.h;h=ee81a57560e539b053fc6051a9a19ae445b39ebb;hb=be7adb92bf0012ab07adac2943e73772dfad7911;hp=e47791b605bbefd563c09a7a92e248176a8c37c2;hpb=506253505641855dc8bb87033f7af894904f848b;p=sbcl.git

diff --git a/src/runtime/ppc-lispregs.h b/src/runtime/ppc-lispregs.h
index e47791b..ee81a57 100644
--- a/src/runtime/ppc-lispregs.h
+++ b/src/runtime/ppc-lispregs.h
@@ -1,4 +1,4 @@
-#if defined DARWIN
+#if defined LISP_FEATURE_DARWIN
 #if defined LANGUAGE_ASSEMBLY
 #define REG(num) r##num
 #else
@@ -10,53 +10,53 @@
 
 #define NREGS 32
 
-#define reg_ZERO      REG(0)	/* Should always contain 0 in lisp */
-#define reg_NSP       REG(1)	/* The number/C stack pointer */
-#define reg_POLL      REG(2)	/* Lisp preemption/Mystery SVR4 ABI reg */
-#define reg_NL0       REG(3)	/* FF param/result 1 */
-#define reg_NL1       REG(4)	/* FF param/result 2 */
-#define reg_NL2       REG(5)	/* FF param 3 */
+#define reg_ZERO      REG(0)    /* Should always contain 0 in lisp */
+#define reg_NSP       REG(1)    /* The number/C stack pointer */
+#define reg_POLL      REG(2)    /* Lisp preemption/Mystery SVR4 ABI reg */
+#define reg_NL0       REG(3)    /* FF param/result 1 */
+#define reg_NL1       REG(4)    /* FF param/result 2 */
+#define reg_NL2       REG(5)    /* FF param 3 */
 #define reg_NL3       REG(6)
 #define reg_NL4       REG(7)
 #define reg_NL5       REG(8)
-#define reg_NL6       REG(9) 	/* Last (7th) FF param */
+#define reg_NL6       REG(9)    /* Last (7th) FF param */
 #define reg_FDEFN     REG(10)   /* was NL7 until recently -dan */
 #define reg_NARGS     REG(11)
-#ifdef DARWIN
-#define reg_CFUNC     REG(12)	/* Silly to blow a reg on FF-name */
-#define reg_NFP       REG(13)	/* Lisp may save around FF-call */
+#ifdef LISP_FEATURE_DARWIN
+#define reg_CFUNC     REG(12)   /* Silly to blow a reg on FF-name */
+#define reg_NFP       REG(13)   /* Lisp may save around FF-call */
 #else
-#define reg_NFP       REG(12)	/* Lisp may save around FF-call */
-#define reg_CFUNC     REG(13)	/* Silly to blow a reg on FF-name */
+#define reg_NFP       REG(12)   /* Lisp may save around FF-call */
+#define reg_CFUNC     REG(13)   /* Silly to blow a reg on FF-name */
 #endif
 #define reg_BSP       REG(14)   /* Binding stack pointer */
-#define reg_CFP       REG(15)	/* Control/value stack frame pointer */
-#define reg_CSP       REG(16)	/* Control/value stack top */
-#define reg_ALLOC     REG(17)	/* (Global) dynamic free pointer */
-#define reg_NULL      REG(18)	/* NIL and globals nearby */
-#define reg_CODE      REG(19)	/* Current function object */
-#define reg_CNAME     REG(20)	/* Current function name */
-#define reg_LEXENV    REG(21)	/* And why burn a register for this ? */
+#define reg_CFP       REG(15)   /* Control/value stack frame pointer */
+#define reg_CSP       REG(16)   /* Control/value stack top */
+#define reg_ALLOC     REG(17)   /* (Global) dynamic free pointer */
+#define reg_NULL      REG(18)   /* NIL and globals nearby */
+#define reg_CODE      REG(19)   /* Current function object */
+#define reg_CNAME     REG(20)   /* Current function name */
+#define reg_LEXENV    REG(21)   /* And why burn a register for this ? */
 #define reg_OCFP      REG(22)   /* The caller's reg_CFP */
-#define reg_LRA       REG(23)	/* Tagged lisp return address */
-#define reg_A0        REG(24)	/* First function arg/return value */
-#define reg_A1        REG(25)	/* Second. */
-#define reg_A2        REG(26)	/*  */
-#define reg_A3        REG(27)	/* Last of (only) 4 arg regs */
-#define reg_L0	      REG(28)	/* Tagged temp regs */
+#define reg_LRA       REG(23)   /* Tagged lisp return address */
+#define reg_A0        REG(24)   /* First function arg/return value */
+#define reg_A1        REG(25)   /* Second. */
+#define reg_A2        REG(26)   /*  */
+#define reg_A3        REG(27)   /* Last of (only) 4 arg regs */
+#define reg_L0        REG(28)   /* Tagged temp regs */
 #define reg_L1        REG(29)
-#define reg_L2        REG(30)	/* Last lisp temp reg */
-#define reg_LIP       REG(31)	/* Lisp Interior Pointer, e.g., locative */
+#define reg_L2        REG(30)   /* Last lisp temp reg */
+#define reg_LIP       REG(31)   /* Lisp Interior Pointer, e.g., locative */
 
 #define REGNAMES \
-        "ZERO",		"NSP",	        "???",		"NL0", \
-	"NL1",		"NL2",		"NL3P",		"NL4", \
-        "NL5",		"NL6",		"FDEFN",	"NARGS", \
-        "NFP",		"CFUNC",	"BSP",		"CFP", \
-        "CSP",		"ALLOC",	"NULL",		"CODE", \
-        "CNAME",	"LEXENV",	"OCFP",		"LRA", \
-        "A0",	        "A1",	        "A2",		"A3", \
-        "L0",		"L1",		"L2",		"LIP"
+        "ZERO",         "NSP",          "???",          "NL0", \
+        "NL1",          "NL2",          "NL3P",         "NL4", \
+        "NL5",          "NL6",          "FDEFN",        "NARGS", \
+        "NFP",          "CFUNC",        "BSP",          "CFP", \
+        "CSP",          "ALLOC",        "NULL",         "CODE", \
+        "CNAME",        "LEXENV",       "OCFP",         "LRA", \
+        "A0",           "A1",           "A2",           "A3", \
+        "L0",           "L1",           "L2",           "LIP"
 
 #define BOXED_REGISTERS { \
     reg_FDEFN, reg_CODE, reg_CNAME, reg_LEXENV, reg_OCFP, reg_LRA, \