read-bytes!: avoid integer overflow in read size

Closes #2211
2018-08-06 20:32:42 -06:00 · 2018-08-06 20:32:42 -06:00 · 5ba910d143
commit 5ba910d143
parent b4e44e71a9
1 changed files with 2 additions and 2 deletions
--- a/racket/src/racket/src/port.c
+++ b/racket/src/racket/src/port.c
@ -4792,8 +4792,8 @@ static intptr_t fd_get_string_slow(Scheme_Input_Port *port,

  while (1) {
    /* Loop until a read succeeds. */
-    int none_avail = 0;
-    int target_size, target_offset, ext_target;
+    int none_avail = 0, ext_target;
+    intptr_t target_size, target_offset;
    char *target;
    Scheme_Object *sema;