From 3cd454bfe711ec3ee55f32754bda50b3566fe46e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 30 Dec 2007 15:06:37 -0500 Subject: [PATCH] Use linux? word now --- core/cpu/ppc/architecture/architecture.factor | 2 +- core/cpu/ppc/ppc.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) mode change 100644 => 100755 core/cpu/ppc/ppc.factor diff --git a/core/cpu/ppc/architecture/architecture.factor b/core/cpu/ppc/architecture/architecture.factor index bb0e6cda62..43a2428d42 100755 --- a/core/cpu/ppc/architecture/architecture.factor +++ b/core/cpu/ppc/architecture/architecture.factor @@ -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? ; diff --git a/core/cpu/ppc/ppc.factor b/core/cpu/ppc/ppc.factor old mode 100644 new mode 100755 index 72c4ab335c..0c677cbe51 --- a/core/cpu/ppc/ppc.factor +++ b/core/cpu/ppc/ppc.factor @@ -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? ] }