steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/compiler/tests/redefine24.factor

40 lines
941 B
Factor
Raw Normal View History

stack-checker.alien: now that C types are words, the compiler can add dependencies on them when compiling alien words. This triggers the necessary recompilation when C types are redefined
2010-02-22 03:32:41 -05:00
USING: alien alien.syntax eval math tools.test ;
QUALIFIED: alien.c-types
IN: compiler.tests.redefine24
factor: vocab:word -> vocab::word
2017-12-29 02:31:02 -05:00
TYPEDEF: alien.c-types::int type-1
stack-checker.alien: now that C types are words, the compiler can add dependencies on them when compiling alien words. This triggers the necessary recompilation when C types are redefined
2010-02-22 03:32:41 -05:00
factor: vocab:word -> vocab::word
2017-12-29 02:31:02 -05:00
TYPEDEF: alien.c-types::int type-3
stack-checker.alien: now that C types are words, the compiler can add dependencies on them when compiling alien words. This triggers the necessary recompilation when C types are redefined
2010-02-22 03:32:41 -05:00
: callback ( -- ptr )
"cdecl" -> cdecl
2010-03-31 22:20:35 -04:00
type-3 { type-1 type-1 } cdecl [ + >integer ] alien-callback ;
stack-checker.alien: now that C types are words, the compiler can add dependencies on them when compiling alien words. This triggers the necessary recompilation when C types are redefined
2010-02-22 03:32:41 -05:00
factor: vocab:word -> vocab::word
2017-12-29 02:31:02 -05:00
TYPEDEF: alien.c-types::float type-2
stack-checker.alien: now that C types are words, the compiler can add dependencies on them when compiling alien words. This triggers the necessary recompilation when C types are redefined
2010-02-22 03:32:41 -05:00
: indirect ( x y ptr -- z )
"cdecl" -> cdecl
2010-03-31 22:20:35 -04:00
type-3 { type-2 type-2 } cdecl alien-indirect ;
stack-checker.alien: now that C types are words, the compiler can add dependencies on them when compiling alien words. This triggers the necessary recompilation when C types are redefined
2010-02-22 03:32:41 -05:00
[ ] [
"USING: alien.c-types alien.syntax ;
IN: compiler.tests.redefine24 TYPEDEF: int type-2" eval( -- )
] unit-test
[ 3 ] [ 1 2 callback indirect ] unit-test
[ ] [
"USING: alien.c-types alien.syntax ;
IN: compiler.tests.redefine24
TYPEDEF: float type-1
TYPEDEF: float type-2" eval( -- )
] unit-test
[ 3 ] [ 1.0 2.0 callback indirect ] unit-test
[ ] [
"USING: alien.c-types alien.syntax ;
IN: compiler.tests.redefine24
TYPEDEF: float type-3" eval( -- )
] unit-test
[ 3.0 ] [ 1.0 2.0 callback indirect ] unit-test