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

alien.c-types: ensure that long and ulong types are defined with define-primitive-type and not typedef

Slava Pestov 2010-01-23 00:15:08 +13:00
parent 56af2bb5dc
commit 59f0e7a197
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/alien/c-types/c-types.factor
View File

@ -494,11 +494,11 @@ SYMBOLS:
\ ulonglong define-primitive-type
os windows? [
\ int c-type \ long typedef
\ uint c-type \ ulong typedef
\ int c-type \ long define-primitive-type
\ uint c-type \ ulong define-primitive-type
] [
\ longlong c-type \ long typedef
\ ulonglong c-type \ ulong typedef
\ longlong c-type \ long define-primitive-type
\ ulonglong c-type \ ulong define-primitive-type
] if
\ longlong c-type \ ptrdiff_t typedef
@ -529,11 +529,12 @@ SYMBOLS:
"to_unsigned_8" >>unboxer
\ ulonglong define-primitive-type
\ int c-type \ long typedef
\ int c-type \ long define-primitive-type
\ uint c-type \ ulong define-primitive-type
\ int c-type \ ptrdiff_t typedef
\ int c-type \ intptr_t typedef
\ uint c-type \ ulong typedef
\ uint c-type \ uintptr_t typedef
\ uint c-type \ size_t typedef
] if

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

@ -56,8 +56,8 @@ M: x86 stack-frame-size ( stack-frame -- i )
3 cells +
align-stack ;
! Must be a volatile register not used for parameter passing, for safe
! use in calls in and out of C
! Must be a volatile register not used for parameter passing or
! integer return
HOOK: temp-reg cpu ( -- reg )
HOOK: pic-tail-reg cpu ( -- reg )