suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

int -> intptr_t fixes

Browse Source
This commit is contained in:
Matthew Flatt 2011-12-21 09:00:48 -07:00 committed by Matthew Flatt
parent dcedd6e2be
commit 58b111485f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/src/port.c
View File

@ -3191,7 +3191,7 @@ static MZ_INLINE intptr_t get_one_byte(GC_CAN_IGNORE const char *who,
ip = (Scheme_Input_Port *)port; ip = (Scheme_Input_Port *)port;
if (!ip->slow) { if (!ip->slow) {
Scheme_Get_String_Fun gs; Scheme_Get_String_Fun gs;
int v; intptr_t v;
gs = ip->get_string_fun; gs = ip->get_string_fun;
@ -8695,7 +8695,7 @@ static void close_subprocess_handle(void *sp, void *ignored)
CloseHandle(subproc->handle); CloseHandle(subproc->handle);
} }
static void CopyFileHandleForSubprocess(int *hs, int pos) static void CopyFileHandleForSubprocess(intptr_t *hs, int pos)
{ {
HANDLE h2; HANDLE h2;
int alt_pos = (pos ? 0 : 1); int alt_pos = (pos ? 0 : 1);
@ -8714,7 +8714,7 @@ static void CopyFileHandleForSubprocess(int *hs, int pos)
} }
} }
static void CloseFileHandleForSubprocess(int *hs, int pos) static void CloseFileHandleForSubprocess(intptr_t *hs, int pos)
{ {
int alt_pos = (pos ? 0 : 1); int alt_pos = (pos ? 0 : 1);
if (hs[alt_pos]) { if (hs[alt_pos]) {