crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

nga-c: more fixes related to issue #58

Browse source 
FossilOrigin-Name: 20fcceb6ce817b2c94f11ca78e795923701d0c944049662597ab70cc0cc7dc03
This commit is contained in:
crc 2021-04-21 11:48:47 +00:00
parent d183ac683e
commit 3e3dfa9ddc
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
vm/nga-c/retro.c
View file

@ -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() {