From 6e28d3f2fdb90a154d5f987d2928deeef58af506 Mon Sep 17 00:00:00 2001
From: David Brown <dave.github@brownsmeet.com>
Date: Sun, 11 Dec 2016 17:43:05 +0000
Subject: [PATCH] Ha! Now fix hexdump for -OC build.

---
 src/runtime/Out.Mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/Out.Mod b/src/runtime/Out.Mod
index 40b2bee7..23d30be4 100644
--- a/src/runtime/Out.Mod
+++ b/src/runtime/Out.Mod
@@ -87,7 +87,7 @@ END Ln;
 PROCEDURE HexDumpAdr*(adr: SYSTEM.ADDRESS; offset: HUGEINT; length: LONGINT);
 VAR i: INTEGER; n, lim: SYSTEM.ADDRESS; c: CHAR;
 BEGIN
-  lim := adr+length;
+  lim := SYSTEM.VAL(SYSTEM.ADDRESS, adr+length);
   WHILE adr < lim DO
     IF adr+16 < lim THEN n := 16 ELSE n := lim-adr END;
     Hex(offset,8); Char(" ");