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

macho: fix no-types-specified.

db4
John Benediktsson 2013-03-20 13:18:21 -07:00
parent 53a33fada3
commit 94c5cdad3e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/macho/macho.factor
View File

@ -829,7 +829,7 @@ UNION: nlist_32/64-array nlist-array nlist_64-array ;
TUPLE: fat-binary-member cpu-type cpu-subtype data ; TUPLE: fat-binary-member cpu-type cpu-subtype data ;
ERROR: not-fat-binary ; ERROR: not-fat-binary ;
TYPED: fat-binary-members ( >c-ptr -- fat-binary-members ) : fat-binary-members ( >c-ptr -- fat-binary-members )
fat_header memory>struct dup magic>> { fat_header memory>struct dup magic>> {
{ FAT_MAGIC [ ] } { FAT_MAGIC [ ] }
{ FAT_CIGAM [ ] } { FAT_CIGAM [ ] }
@ -853,7 +853,7 @@ TYPED: 64-bit? ( macho: mach_header_32/64 -- ? )
[ drop f ] [ drop f ]
} case ; } case ;
TYPED: macho-header ( c-ptr -- macho: mach_header_32/64 ) : macho-header ( c-ptr -- macho: mach_header_32/64 )
dup mach_header_64 memory>struct 64-bit? dup mach_header_64 memory>struct 64-bit?
[ mach_header_64 memory>struct ] [ mach_header_64 memory>struct ]
[ mach_header memory>struct ] if ; [ mach_header memory>struct ] if ;