@@ -245,8 +245,10 @@ com_addbyte(c, byte)
245245{
246246 int len ;
247247 if (byte < 0 || byte > 255 ) {
248+ /*
248249 fprintf(stderr, "XXX compiling bad byte: %d\n", byte);
249250 abort();
251+ */
250252 err_setstr (SystemError , "com_addbyte: byte out of range" );
251253 c -> c_errors ++ ;
252254 }
@@ -758,26 +760,25 @@ cmp_type(n)
758760 node * n ;
759761{
760762 REQ (n , comp_op );
761- /* comp_op: '<' | '>' | '=' | '>' ' =' | '<' ' =' | '<' '> '
763+ /* comp_op: '<' | '>' | '=' | '>=' | '< =' | '<>' | '! =' | '== '
762764 | 'in' | 'not' 'in' | 'is' | 'is' not' */
763765 if (NCH (n ) == 1 ) {
764766 n = CHILD (n , 0 );
765767 switch (TYPE (n )) {
766768 case LESS : return LT ;
767769 case GREATER : return GT ;
770+ case EQEQUAL : /* == */
768771 case EQUAL : return EQ ;
772+ case LESSEQUAL : return LE ;
773+ case GREATEREQUAL : return GE ;
774+ case NOTEQUAL : return NE ; /* <> or != */
769775 case NAME : if (strcmp (STR (n ), "in" ) == 0 ) return IN ;
770776 if (strcmp (STR (n ), "is" ) == 0 ) return IS ;
771777 }
772778 }
773779 else if (NCH (n ) == 2 ) {
774780 int t2 = TYPE (CHILD (n , 1 ));
775781 switch (TYPE (CHILD (n , 0 ))) {
776- case LESS : if (t2 == EQUAL ) return LE ;
777- if (t2 == GREATER ) return NE ;
778- break ;
779- case GREATER : if (t2 == EQUAL ) return GE ;
780- break ;
781782 case NAME : if (strcmp (STR (CHILD (n , 1 )), "in" ) == 0 )
782783 return NOT_IN ;
783784 if (strcmp (STR (CHILD (n , 0 )), "is" ) == 0 )
0 commit comments