From 5ba910d1435e222934d6281418866329c73de308 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 6 Aug 2018 20:32:42 -0600
Subject: [PATCH] read-bytes!: avoid integer overflow in read size

Closes #2211
---
 racket/src/racket/src/port.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/racket/src/racket/src/port.c b/racket/src/racket/src/port.c
index 44f719b039..063e3d8d41 100644
--- 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;