]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/classes/struct/struct-tests.factor
use radix literals
[factor.git] / basis / classes / struct / struct-tests.factor
index aad8c1759d4dcfd6f2472b0306aae4acde3fc908..b619c5abcd6a3fb05f24e9a3c4f608aeabad5f45 100644 (file)
@@ -28,7 +28,7 @@ STRUCT: struct-test-foo
     { z bool } ;
 
 STRUCT: struct-test-bar
-    { w ushort initial: HEX: ffff }
+    { w ushort initial: 0xffff }
     { foo struct-test-foo } ;
 
 [ 12 ] [ struct-test-foo heap-size ] unit-test
@@ -53,7 +53,7 @@ STRUCT: struct-test-bar
 [ {
     { "underlying" B{ 98 0 0 98 127 0 0 127 0 0 0 0 } }
     { { "x" char } 98            }
-    { { "y" int  } HEX: 7F00007F }
+    { { "y" int  } 0x7F00007F }
     { { "z" bool } f             }
 } ] [
     B{ 98 0 0 98 127 0 0 127 0 0 0 0 } struct-test-foo memory>struct
@@ -468,13 +468,8 @@ cpu ppc? [
         { y int }
         { x longlong } ;
 
-    cpu ppc? 4 cell = and os macosx? and [
-        [ 12 ] [ ppc-align-test-2 heap-size ] unit-test
-        [ 4 ] [ "x" ppc-align-test-2 offset-of ] unit-test
-    ] [
-        [ 16 ] [ ppc-align-test-2 heap-size ] unit-test
-        [ 8 ] [ "x" ppc-align-test-2 offset-of ] unit-test
-    ] if
+    [ 16 ] [ ppc-align-test-2 heap-size ] unit-test
+    [ 8 ] [ "x" ppc-align-test-2 offset-of ] unit-test
 ] when
 
 STRUCT: struct-test-delegate