From a4d292b21a70452c4f04d24211c03c2eba1f49ac Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@cs.indiana.edu>
Date: Wed, 14 Oct 2015 15:27:13 -0400
Subject: [PATCH] Use an unsigned type for sizes.

Fixes this crash http://drdr.racket-lang.org/32121/pkgs/racket-test/tests/racket/stress/fuzz.rkt
found by fuzz testing.
---
 racket/src/racket/src/read.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/read.c b/racket/src/racket/src/read.c
index 0e108604bc..f9126e2fca 100644
--- a/racket/src/racket/src/read.c
+++ b/racket/src/racket/src/read.c
@@ -5447,7 +5447,7 @@ Scheme_Object *scheme_string_to_submodule_path(char *_s, intptr_t len)
 {
   unsigned char *s = (unsigned char *)_s;
   char *e, buffer[32];
-  intptr_t pos = 0, l;
+  uintptr_t pos = 0, l;
   Scheme_Object *first = NULL, *last = NULL, *pr;
 
   while (pos < len) {