some minor improvements
authorceriel <none@none>
Fri, 28 Oct 1988 13:37:48 +0000 (13:37 +0000)
committerceriel <none@none>
Fri, 28 Oct 1988 13:37:48 +0000 (13:37 +0000)
modules/src/em_opt/aux.c
modules/src/em_opt/nopt.c

index ab5e3b5..b7dcf4d 100644 (file)
@@ -25,21 +25,14 @@ OO_signsame(a,b)
 OO_sfit(val,nbits)
        arith val, nbits;
 {
-       register long mask = 0;
-       register int i;
-       for(i=nbits-1;i<8*sizeof(mask);i++)
-               mask |= (1<<i);
+       register long mask = ~((1L << (nbits - 1)) - 1);
        return(((val&mask) == 0) | (val&mask)==mask);
 }
 
 OO_ufit(val, nbits)
        arith val, nbits;
 {
-       register long mask = 0;
-       register int i;
-       for(i=nbits;i<8*sizeof(mask);i++)
-               mask |= (1<<i);
-       return((val&mask) == 0);
+       return((val&(~((1L << (nbits - 1)) - 1))) == 0);
 }
 
 OO_extsame(a1,a2)
index 55f31a1..304e271 100644 (file)
@@ -3,6 +3,7 @@ static char rcsid2[] = "$Header$";
 #endif
 
 #include "nopt.h"
+#include <system.h>
 
 extern struct dfa OO_checknext[];      /* Initialized in dfa.c */
 extern struct dfa *OO_base[];          /* Initialized in dfa.c */
@@ -80,7 +81,7 @@ OO_dfa(last)
        for(;;) {
                printstate("OO_dfa");
                if((b=OO_base[OO_state]) && ((b += last)->check==OO_state)) {
-                       if(f=OO_ftrans[OO_state = b->next]) f();
+                       if(f=OO_ftrans[OO_state = b->next]) (*f)();
                }
                else if (OO_state) {
                        /* consult default entry */
@@ -88,7 +89,7 @@ OO_dfa(last)
                        if(!OO_endbackup) OO_endbackup = OO_nxtpatt;
                        OO_nxtpatt--;
                        OO_patternqueue += d->numout;
-                       if(f=OO_ftrans[OO_state = d->next]) f();
+                       if(f=OO_ftrans[OO_state = d->next]) (*f)();
                }
                else OO_flush();
                if (!OO_endbackup) return;
@@ -103,9 +104,9 @@ fatal(s,a)
        char *s;
        int a;
 {
-       fprintf(stderr, "%s: ", filename ? filename : "standard input");
-       fprintf(stderr,s,a);
-       fprintf(stderr,"\n");
+       fprint(STDERR, "%s: ", filename ? filename : "standard input");
+       fprint(STDERR,s,a);
+       fprint(STDERR,"\n");
        sys_stop(S_EXIT);
 }