X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-lispregs.h;h=bf650aed85975a3dd567f7fb6835163258c1b0ff;hb=428b60fff4247e34ff601810f33976908f22bbc0;hp=acfd29b48ee49b730b62c5d99396e79a2f551e86;hpb=dfa55a883f94470267b626dae77ce7e7dfac3df6;p=sbcl.git diff --git a/src/runtime/alpha-lispregs.h b/src/runtime/alpha-lispregs.h index acfd29b..bf650ae 100644 --- a/src/runtime/alpha-lispregs.h +++ b/src/runtime/alpha-lispregs.h @@ -1,9 +1,23 @@ +/* + * This software is part of the SBCL system. See the README file for + * more information. + * + * This software is derived from the CMU CL system, which was + * written at Carnegie Mellon University and released into the + * public domain. The software is in the public domain and is + * provided with absolutely no warranty. See the COPYING and CREDITS + * files for more information. + */ #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 */ @@ -54,5 +68,4 @@ reg_L0, reg_L1, reg_L2 \ } - #define call_into_lisp_LRA_page 0x10000