shithub: femtolisp

Info  •  Files  •  Log  •  Branches

fix lognot for 8 and 16-bit numbers

--- a/cvalues.c

+++ b/cvalues.c

@@ -1479,9 +1479,9 @@

         aptr = cp_data(cp);

         switch (ta) {

         case T_INT8:   return fixnum(~*(int8_t *)aptr);

-        case T_UINT8:  return fixnum(~*(uint8_t *)aptr);

+        case T_UINT8:  return fixnum(~*(uint8_t *)aptr & 0xff);

         case T_INT16:  return fixnum(~*(int16_t *)aptr);

-        case T_UINT16: return fixnum(~*(uint16_t*)aptr);

+        case T_UINT16: return fixnum(~*(uint16_t*)aptr & 0xffff);

         case T_INT32:  return mk_int32(~*(int32_t *)aptr);

         case T_UINT32: return mk_uint32(~*(uint32_t*)aptr);

         case T_INT64:  return mk_int64(~*(int64_t *)aptr);