alien.c-types: some 32/64 differences

perhaps the previous way was simpler...
mrjbq7 · Aug 10, 2024 · a4f86aa · a4f86aa
1 parent 0fc0612
commit a4f86aa
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor
@@ -324,8 +324,8 @@ M: pointer lookup-c-type
     \ double typedef
 
     <c-type>
-        fixnum >>class
-        fixnum >>boxed-class
+        cell 8 = fixnum integer ? >>class
+        cell 8 = fixnum integer ? >>boxed-class
         [ alien-signed-4 ] >>getter
         [ set-alien-signed-4 ] >>setter
         4 >>size
@@ -334,20 +334,20 @@ M: pointer lookup-c-type
         4 >>align-first
         "from_signed_4" >>boxer
         "to_signed_4" >>unboxer
-        [ >fixnum ] >>unboxer-quot
+        cell 8 = [ >fixnum ] [ >integer ] ? >>unboxer-quot
     \ int typedef
 
     <c-type>
-        fixnum >>class
-        fixnum >>boxed-class
+        cell 8 = fixnum integer ? >>class
+        cell 8 = fixnum integer ? >>boxed-class
         [ alien-unsigned-4 ] >>getter
         [ set-alien-unsigned-4 ] >>setter
         4 >>size
         4 >>align
         4 >>align-first
         "from_unsigned_4" >>boxer
         "to_unsigned_4" >>unboxer
-        [ >fixnum ] >>unboxer-quot
+        cell 8 = [ >fixnum ] [ >integer ] ? >>unboxer-quot
     \ uint typedef
 
     cell 8 = [ <c-type> ] [ <long-long-type> ] if