Fixed bugs

diff --git a/lang/m2/libm2/rckil.c b/lang/m2/libm2/rckil.c
index cf43a98..2c4328d 100644 (file)
--- a/lang/m2/libm2/rckil.c
+++ b/lang/m2/libm2/rckil.c
@@ -16,7 +16,7 @@ struct range_descr {
   long low, high;
 };
 
-rcki(descr, val)
+rckil(descr, val)
   struct range_descr *descr;
   long val;
 {

diff --git a/lang/m2/libm2/rcku.c b/lang/m2/libm2/rcku.c
index 5ca4208..8dfb320 100644 (file)
--- a/lang/m2/libm2/rcku.c
+++ b/lang/m2/libm2/rcku.c
@@ -16,7 +16,7 @@ struct range_descr {
   unsigned     low, high;
 };
 
-rcki(descr, val)
+rcku(descr, val)
   struct range_descr *descr;
   unsigned val;
 {

diff --git a/lang/m2/libm2/rckul.c b/lang/m2/libm2/rckul.c
index 4a5e4c9..8664750 100644 (file)
--- a/lang/m2/libm2/rckul.c
+++ b/lang/m2/libm2/rckul.c
@@ -16,7 +16,7 @@ struct range_descr {
   unsigned long        low, high;
 };
 
-rcki(descr, val)
+rckul(descr, val)
   struct range_descr *descr;
   unsigned long val;
 {

diff --git a/lang/m2/libm2/ucheck.c b/lang/m2/libm2/ucheck.c
index 8c56b37..3923e05 100644 (file)
--- a/lang/m2/libm2/ucheck.c
+++ b/lang/m2/libm2/ucheck.c
@@ -25,14 +25,14 @@
 adduchk(a,b)
   unsigned     a,b;
 {
-  if (MAXCARD - a > b) TRP(M2_UOVFL);
+  if (MAXCARD - a < b) TRP(M2_UOVFL);
 }
 
 #if EM_WSIZE < EM_LSIZE
 addulchk(a,b)
   unsigned long        a,b;
 {
-  if (MAXLONGCARD - a > b) TRP(M2_UOVFL);
+  if (MAXLONGCARD - a < b) TRP(M2_UOVFL);
 }
 #endif