From 960baf9b96dcf86ddd58e8ade3bb6b99b5e91bbe Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Sun, 25 Dec 2022 12:37:23 -0800 Subject: [PATCH] fix signedness issue in N_OP_bind(unused), matching correction made in inlineC.h BIND in 26e67a51 --- inc/bindsdefs.h | 2 +- src/binds.c | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/inc/bindsdefs.h b/inc/bindsdefs.h index 7cf31e1..091e767 100644 --- a/inc/bindsdefs.h +++ b/inc/bindsdefs.h @@ -1,7 +1,7 @@ #ifndef BINDSDEFS_H #define BINDSDEFS_H 1 #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_dunbind(LispPTR *stack_pointer, LispPTR tos); #endif diff --git a/src/binds.c b/src/binds.c index 67a8035..e6fd32b 100644 --- a/src/binds.c +++ b/src/binds.c @@ -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) { - int n1; /* # slots to bind to NIL (0, 0) */ - int n2; /* # slots to bind to value in stack */ +LispPTR *N_OP_bind(LispPTR *stack_pointer, LispPTR tos, unsigned byte1, unsigned byte2) { + unsigned n1; /* # slots to bind to NIL (0, 0) */ + unsigned n2; /* # slots to bind to value in stack */ LispPTR *ppvar; /* pointer to argued slot in Pvar area */ unsigned i; /* temporary for control */