FFI rewrite part 5: return value boxing and callback parameter boxing now uses vregs...

[factor.git] / basis / alien / c-types / c-types.factor

diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor
index 03c35d62516c726d168c34a22eacfe77a7fb2ee3..7bcb59997dce692f12c83d9088e3150f2c46f9ed 100644 (file)
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@@ -17,8 +17,7 @@ SYMBOLS:
     long ulong
     longlong ulonglong
     float double
-    void* bool
-    (stack-value) ;
+    void* bool ;
 
 SINGLETON: void
 
@@ -114,10 +113,6 @@ GENERIC: heap-size ( name -- size )
 
 M: abstract-c-type heap-size size>> ;
 
-GENERIC: stack-size ( name -- size )
-
-M: c-type stack-size size>> cell align ;
-
 MIXIN: value-type
 
 : c-getter ( name -- quot )
@@ -144,8 +139,7 @@ PROTOCOL: c-type-protocol
     c-type-align
     c-type-align-first
     base-type
-    heap-size
-    stack-size ;
+    heap-size ;
 
 CONSULT: c-type-protocol c-type-name
     c-type ;
@@ -448,9 +442,6 @@ M: pointer c-type
         object >>boxed-class
     \ bool define-primitive-type
 
-    \ void* c-type clone stack-params >>rep
-    \ (stack-value) define-primitive-type
-
 ] with-compilation-unit
 
 M: char-16-rep rep-component-type drop char ;