diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
commit | fd5f104f287427fee885583bc398c137674e6af0 (patch) | |
tree | 151d1875fdbbc52fd992f53ee197f7070c5f73d1 /x.c | |
parent | 90889a692076f2c62486607d0354e0fca52364bc (diff) | |
download | scm-7c9d2cc9d07b51358f0bccbf14f9eba54c346b90.tar.gz scm-7c9d2cc9d07b51358f0bccbf14f9eba54c346b90.zip |
New upstream version 5f2upstream/5f2upstream
Diffstat (limited to 'x.c')
-rwxr-xr-x[-rw-r--r--] | x.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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) { |