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

comment out bad parts of types.factor

erg 2006-03-27 01:40:53 +00:00
parent 1720d85428
commit 933b50a964
1 changed files with 36 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
library/win32/types.factor
View File

@ -60,30 +60,37 @@ TYPEDEF: void* LPVOID
TYPEDEF: void* LPCVOID TYPEDEF: void* LPCVOID
TYPEDEF: float FLOAT TYPEDEF: float FLOAT
win64? [ ! The following is commented out for two reasons.
! TODO: check these! ! 1) all of the code in both branches will be run because TYPEDEF: is a
TYPEDEF: INT32 HALF_PTR ! parsing word
TYPEDEF: UINT32 UHALF_PTR ! 2) we are waiting on gcc to be ported to win64/msys
TYPEDEF: long INT_PTR ! 3) the TYPEDEF:s are probably wrong.
TYPEDEF: ulong UINT_PTR
TYPEDEF: longlong LONG_PTR ! 64bit ! win64? [
TYPEDEF: ulonglong ULONG_PTR ! 64bit ! ! TODO: check these!
! TYPEDEF: INT32 HALF_PTR
! TYPEDEF: UINT32 UHALF_PTR
! TYPEDEF: long INT_PTR
! TYPEDEF: ulong UINT_PTR
TYPEDEF: int INT32 ! TYPEDEF: longlong LONG_PTR ! 64bit
TYPEDEF: uint UINT32 ! TYPEDEF: ulonglong ULONG_PTR ! 64bit
TYPEDEF: uint DWORD32
TYPEDEF: uint ULONG32 ! TYPEDEF: int INT32
TYPEDEF: ulong ULONG64 ! TYPEDEF: uint UINT32
TYPEDEF: int* POINTER_32 ! TYPEDEF: uint DWORD32
TYPEDEF: long* POINTER_64 ! TYPEDEF: uint ULONG32
TYPEDEF: longlong INT64 ! TYPEDEF: ulong ULONG64
TYPEDEF: ulonglong UINT64 ! TYPEDEF: int* POINTER_32
TYPEDEF: longlong LONGLONG ! 64bit ! TYPEDEF: long* POINTER_64
TYPEDEF: ulonglong ULONGLONG ! TYPEDEF: longlong INT64
TYPEDEF: longlong LONG64 ! TYPEDEF: ulonglong UINT64
TYPEDEF: ulonglong DWORD64 ! TYPEDEF: longlong LONGLONG ! 64bit
] [ ! TYPEDEF: ulonglong ULONGLONG
! TYPEDEF: longlong LONG64
! TYPEDEF: ulonglong DWORD64
! ] [
! Correct for win32
TYPEDEF: short HALF_PTR TYPEDEF: short HALF_PTR
TYPEDEF: ushort UHALF_PTR TYPEDEF: ushort UHALF_PTR
TYPEDEF: int INT_PTR TYPEDEF: int INT_PTR
@ -105,15 +112,15 @@ win64? [
TYPEDEF: ulonglong ULONGLONG TYPEDEF: ulonglong ULONGLONG
TYPEDEF: longlong LONG64 TYPEDEF: longlong LONG64
TYPEDEF: ulonglong DWORD64 TYPEDEF: ulonglong DWORD64
] if ! ] if
unicode? [ ! unicode? [
TYPEDEF: WCHAR TBYTE ! TYPEDEF: WCHAR TBYTE
TYPEDEF: WCHAR TCHAR ! TYPEDEF: WCHAR TCHAR
] [ ! ] [
TYPEDEF: uchar TBYTE TYPEDEF: uchar TBYTE
TYPEDEF: char TCHAR TYPEDEF: char TCHAR
] if ! ] if
! Below down is based on the above definitions ! Below down is based on the above definitions
! There should be no 32/64bit issues ! There should be no 32/64bit issues