From fd5f104f287427fee885583bc398c137674e6af0 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Fri, 3 Mar 2017 00:56:40 -0800
Subject: New upstream version 5f2

---
 x.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 x.c

(limited to 'x.c')

diff --git a/x.c b/x.c
old mode 100644
new mode 100755
index d619724..e6db874
--- a/x.c
+++ b/x.c
@@ -665,8 +665,8 @@ void scm2XPoint(signp, dat, ipr, pos, s_caller)
     ASRTGO(ARRAYP(dat) && 1==ARRAY_NDIM(dat) &&
 	   0==ARRAY_DIMS(dat)[0].lbnd && 1==ARRAY_DIMS(dat)[0].ubnd,
 	   badarg);
-      x = aref(dat, MAKINUM(0));
-      y = aref(dat, MAKINUM(1));
+      x = aref(dat, MAKINUM(0L));
+      y = aref(dat, MAKINUM(1L));
       break;
   }
   ASRTGO(INUMP(x) && INUMP(y), badarg);
@@ -2147,7 +2147,7 @@ SCM xldraw_lines(sdbl, sgc, sargs, funcod, s_caller)
       goto loop;
     }
   } else {
-    unsigned long rabase;
+    void* rabase;
     ASRTGO(NULLP(sargs), wna);
     rabase = scm_base_addr(sarg, s_caller);
     switch (funcod) {
-- 
cgit v1.2.3