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

Fix <long>, <ulong>, *long, *ulong on win64

db4
Slava Pestov 2008-11-24 16:28:56 -06:00
parent b19e87ea75
commit 12d4f684ec
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/alien/c-types/c-types-tests.factor
View File

@ -56,3 +56,7 @@ TYPEDEF: uchar* MyLPBYTE
] must-fail ] must-fail
[ t ] [ { t f t } >c-bool-array { 1 0 1 } >c-int-array = ] unit-test [ t ] [ { t f t } >c-bool-array { 1 0 1 } >c-int-array = ] unit-test
os windows? cpu x86.64? and [
[ -2147467259 ] [ 2147500037 <long> *long ] unit-test
] when

4
basis/cpu/x86/64/winnt/winnt.factor
View File

@ -23,6 +23,6 @@ M: x86.64 dummy-fp-params? t ;
<< <<
"longlong" "ptrdiff_t" typedef "longlong" "ptrdiff_t" typedef
"longlong" "intptr_t" typedef "longlong" "intptr_t" typedef
"int" "long" typedef "int" c-type "long" define-primitive-type
"uint" "ulong" typedef "uint" c-type "ulong" define-primitive-type
>> >>