X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-lispregs.h;h=bf650aed85975a3dd567f7fb6835163258c1b0ff;hb=11b388bac03fea3220e058eb93466bef7b66af75;hp=f978286fc0d7a19d07221b7b64f6bcc3896cf47c;hpb=63fcb94b875a97e468d9add229e220ecceec2352;p=sbcl.git

diff --git a/src/runtime/alpha-lispregs.h b/src/runtime/alpha-lispregs.h
index f978286..bf650ae 100644
--- a/src/runtime/alpha-lispregs.h
+++ b/src/runtime/alpha-lispregs.h
@@ -12,8 +12,12 @@
 #define NREGS	(32)
 
 #ifdef LANGUAGE_ASSEMBLY
+#ifdef linux
 #define REG(num) $##num
 #else
+#define REG(num) $/**/num
+#endif /* linux */
+#else
 #define REG(num) num
 #endif
 				/* "traditional" register name and use */
@@ -64,5 +68,4 @@
     reg_L0, reg_L1, reg_L2 \
 }
 
-
 #define call_into_lisp_LRA_page 0x10000