github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-26 04:17:27 +00:00
Code Issues Projects Releases Wiki Activity

fix signedness issue in N_OP_bind(unused), matching correction made in inlineC.h BIND in 26e67a51

Browse Source
This commit is contained in:
Nick Briggs
2022-12-25 12:37:23 -08:00
parent 5c81ca3f41
commit 960baf9b96
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
inc/bindsdefs.h
View File

@@ -1,7 +1,7 @@
#ifndef BINDSDEFS_H #ifndef BINDSDEFS_H
#define BINDSDEFS_H 1 #define BINDSDEFS_H 1
#include "lispemul.h" /* for LispPTR */ #include "lispemul.h" /* for LispPTR */
LispPTR *N_OP_bind(LispPTR *stack_pointer, LispPTR tos, int byte1, int byte2); LispPTR *N_OP_bind(LispPTR *stack_pointer, LispPTR tos, unsigned byte1, unsigned byte2);
LispPTR *N_OP_unbind(LispPTR *stack_pointer); LispPTR *N_OP_unbind(LispPTR *stack_pointer);
LispPTR *N_OP_dunbind(LispPTR *stack_pointer, LispPTR tos); LispPTR *N_OP_dunbind(LispPTR *stack_pointer, LispPTR tos);
#endif #endif

6
src/binds.c
View File

@@ -29,9 +29,9 @@ N_OP_bind(stack_pointer, tos, n1, n2)
***************************************************/ ***************************************************/
LispPTR *N_OP_bind(LispPTR *stack_pointer, LispPTR tos, int byte1, int byte2) { LispPTR *N_OP_bind(LispPTR *stack_pointer, LispPTR tos, unsigned byte1, unsigned byte2) {
int n1; /* # slots to bind to NIL (0, 0) */ unsigned n1; /* # slots to bind to NIL (0, 0) */
int n2; /* # slots to bind to value in stack */ unsigned n2; /* # slots to bind to value in stack */
LispPTR *ppvar; /* pointer to argued slot in Pvar area */ LispPTR *ppvar; /* pointer to argued slot in Pvar area */
unsigned i; /* temporary for control */ unsigned i; /* temporary for control */