Fix a couple of compiler warnings from 32-bit system.

diff --git a/src/microcode/confshared.h b/src/microcode/confshared.h
index 21af5397b3539be7f9167ad81b0e19312fd8796f..8741ebaa3e411db24d7f9ea1b646e6ed9c283777 100644 (file)
--- a/src/microcode/confshared.h
+++ b/src/microcode/confshared.h
@@ -128,7 +128,7 @@ USA.
 
 #ifndef OFF_T_MAX
 #  if SIZEOF_OFF_T < SIZEOF_INTMAX_T
-#    define OFF_T_MAX (~ ((~ ((intmax_t) 0)) << (CHAR_BIT * SIZEOF_OFF_T)))
+#    define OFF_T_MAX ((((intmax_t) 1) << (CHAR_BIT * SIZEOF_OFF_T)) - 1)
 #  else
 #    define OFF_T_MAX INTMAX_MAX
 #  endif
@@ -136,7 +136,7 @@ USA.
 
 #ifndef TIME_T_MAX
 #  if SIZEOF_TIME_T < SIZEOF_INTMAX_T
-#    define TIME_T_MAX (~ ((~ ((intmax_t) 0)) << (CHAR_BIT * SIZEOF_TIME_T)))
+#    define TIME_T_MAX ((((intmax_t) 1) << (CHAR_BIT * SIZEOF_TIME_T)) - 1)
 #  else
 #    define TIME_T_MAX INTMAX_MAX
 #  endif

diff --git a/src/microcode/lookup.c b/src/microcode/lookup.c
index d4f2b644818c62816919b9a04e6c5a2a625aea32..af17f905999a40dc8a7a12162a4f57b85841df77 100644 (file)
--- a/src/microcode/lookup.c
+++ b/src/microcode/lookup.c
@@ -1205,7 +1205,11 @@ find_binding_cell (SCHEME_OBJECT environment, SCHEME_OBJECT symbol,
                   SCHEME_OBJECT * frame_ret)
 {
   if (NULL_FRAME_P (environment))
-    return (0);
+    {
+      if (frame_ret != 0)
+       (*frame_ret) = environment;
+      return (0);
+    }
   assert (ENVIRONMENT_P (environment));
   SCHEME_OBJECT frame = environment;
   while (1)