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

some fixes

cvs
Slava Pestov 2004-12-11 03:54:53 +00:00
parent 41e63af7e5
commit 2dfc5031b6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
native/win32/write.c
View File

@ -12,20 +12,20 @@ void primitive_can_write (void)
box_boolean(true); box_boolean(true);
} }
void write_char_8 (PORT *port, FIXNUM ch) void write_char_8 (F_PORT *port, F_FIXNUM ch)
{ {
char buf = (char)ch; char buf = (char)ch;
WriteFile((HANDLE)port->fd, &buf, 1, NULL, NULL); WriteFile((HANDLE)port->fd, &buf, 1, NULL, NULL);
} }
void write_string_8 (PORT *port, STRING *str) void write_string_8 (F_PORT *port, F_STRING *str)
{ {
WriteFile((HANDLE)port->fd, to_c_string(str), str->capacity, NULL, NULL); WriteFile((HANDLE)port->fd, to_c_string(str), str->capacity, NULL, NULL);
} }
void primitive_write_8 (void) void primitive_write_8 (void)
{ {
PORT *port; F_PORT *port;
CELL text, type; CELL text, type;
maybe_garbage_collection(); maybe_garbage_collection();