github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-02 14:40:45 +00:00
Code Issues Projects Releases Wiki Activity

Really switch to UNSIGNED instead of uintptr_t -- modified src/findkey.c

Browse Source
This commit is contained in:
Nick Briggs
2020-12-09 18:14:50 -08:00
parent af50a35911
commit 9b12db45be
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/findkey.c
View File

@@ -11,7 +11,6 @@ static char *id = "$Id: findkey.c,v 1.3 1999/05/31 23:35:28 sybalsky Exp $ Copyr
#include "version.h" #include "version.h"
#include <stdint.h>
#include "lispemul.h" #include "lispemul.h"
#include "lispmap.h" #include "lispmap.h"
#include "emlglob.h" #include "emlglob.h"
@@ -53,7 +52,7 @@ LispPTR N_OP_findkey(register LispPTR tos, register int byte) {
arg_nth = byte + 1; arg_nth = byte + 1;
for (ptr = (LispPTR *)(IVar + ((byte * 2) - 2)); (uintptr_t)find_end >= (uintptr_t)ptr; for (ptr = (LispPTR *)(IVar + ((byte * 2) - 2)); (UNSIGNED)find_end >= (UNSIGNED)ptr;
ptr += 2, arg_nth += 2) { ptr += 2, arg_nth += 2) {
if (*ptr == tos) { /* KEY founded */ if (*ptr == tos) { /* KEY founded */
return (S_POSITIVE | arg_nth); return (S_POSITIVE | arg_nth);