From 3e3dfa9ddcf69f5704fcd1d05ece10fb7a783549 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Wed, 21 Apr 2021 11:48:47 +0000
Subject: [PATCH] nga-c: more fixes related to issue #58

FossilOrigin-Name: 20fcceb6ce817b2c94f11ca78e795923701d0c944049662597ab70cc0cc7dc03
---
 vm/nga-c/retro.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/vm/nga-c/retro.c b/vm/nga-c/retro.c
index 4fe8f88..742ee4b 100644
--- a/vm/nga-c/retro.c
+++ b/vm/nga-c/retro.c
@@ -917,8 +917,11 @@ void io_rng() {
     r = r << 8;
     r += ((int64_t)buffer[i] & 0xFF);
   }
-  /* If using a 64-bit image, change to: stack_push(llabs(r)); */
+#ifndef BIT64
   stack_push((CELL)abs((CELL)r));
+#else
+  stack_push((CELL)llabs((CELL)r));
+#endif
 }
 
 void query_rng() {