steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.image-analyzer.gc-info: Fix unit test since llvm is unmaintained

db4
Doug Coleman 2015-07-18 08:49:59 -07:00
parent 3b3e349a99
commit d953038b30
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
extra/tools/image-analyzer/gc-info/gc-info-tests.factor
View File

@ -11,7 +11,6 @@ QUALIFIED: cpu.x86.features.private
QUALIFIED: crypto.aes.utils QUALIFIED: crypto.aes.utils
QUALIFIED: effects QUALIFIED: effects
QUALIFIED: gml.coremath QUALIFIED: gml.coremath
QUALIFIED: llvm.types
QUALIFIED: opencl QUALIFIED: opencl
: normal? ( word -- ? ) : normal? ( word -- ? )
@ -86,15 +85,29 @@ QUALIFIED: opencl
[ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? ] reject [ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? ] reject
] unit-test ] unit-test
! Originally from llvm.types, but llvm moved to unmaintained
TYPEDEF: void* LLVMTypeRef
TYPEDEF: void* LLVMTypeHandleRef
FUNCTION: LLVMTypeRef LLVMResolveTypeHandle ( LLVMTypeHandleRef TypeHandle ) ;
FUNCTION: LLVMTypeHandleRef LLVMCreateTypeHandle ( LLVMTypeRef PotentiallyAbstractTy ) ;
FUNCTION: void LLVMRefineType ( LLVMTypeRef AbstractTy, LLVMTypeRef ConcreteTy ) ;
FUNCTION: void LLVMDisposeTypeHandle ( LLVMTypeHandleRef TypeHandle ) ;
: resolve-types ( typeref typeref -- typeref )
over LLVMCreateTypeHandle [ LLVMRefineType ] dip
[ LLVMResolveTypeHandle ] keep LLVMDisposeTypeHandle ;
! base-pointer-groups ! base-pointer-groups
{ t } [ { t } [
\ llvm.types:resolve-types \ resolve-types
[ base-pointer-groups-expected ] [ base-pointer-groups-decoded ] bi = [ base-pointer-groups-expected ] [ base-pointer-groups-decoded ] bi =
] unit-test ] unit-test
! Tough words #1227 ! Tough words #1227
{ t } [ { t } [
\ llvm.types:resolve-types \ resolve-types
[ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
] unit-test ] unit-test