Use linux? word now

db4
Slava Pestov 2007-12-30 15:06:37 -05:00
parent 8189e33b2b
commit 3cd454bfe7
2 changed files with 2 additions and 2 deletions
core/cpu/ppc

View File

@ -295,7 +295,7 @@ M: ppc-backend %cleanup ( alien-node -- ) drop ;
M: ppc-backend value-structs?
#! On Linux/PPC, value structs are passed in the same way
#! as reference structs, we just have to make a copy first.
os "linux" = not ;
linux? not ;
M: ppc-backend fp-shadows-int? ( -- ? ) macosx? ;

2
core/cpu/ppc/ppc.factor Normal file → Executable file
View File

@ -6,7 +6,7 @@ namespaces alien.c-types kernel system combinators ;
4 "longlong" c-type set-c-type-align
4 "ulonglong" c-type set-c-type-align
] }
{ [ os "linux" = ] [
{ [ linux? ] [
t "longlong" c-type set-c-type-stack-align?
t "ulonglong" c-type set-c-type-stack-align?
] }