steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/cpu/ppc/architecture/architecture.factor
View File

@ -295,7 +295,7 @@ M: ppc-backend %cleanup ( alien-node -- ) drop ;
M: ppc-backend value-structs? M: ppc-backend value-structs?
#! On Linux/PPC, value structs are passed in the same way #! On Linux/PPC, value structs are passed in the same way
#! as reference structs, we just have to make a copy first. #! as reference structs, we just have to make a copy first.
os "linux" = not ; linux? not ;
M: ppc-backend fp-shadows-int? ( -- ? ) macosx? ; 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 "longlong" c-type set-c-type-align
4 "ulonglong" 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 "longlong" c-type set-c-type-stack-align?
t "ulonglong" c-type set-c-type-stack-align? t "ulonglong" c-type set-c-type-stack-align?
] } ] }