Branch: Tag:

1997-03-05

1997-03-05 05:22:56 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

peephole optimizer improved

Rev: bin/mkpeep.pike:1.2
Rev: src/docode.c:1.12
Rev: src/las.c:1.29
Rev: src/peep.c:1.6
Rev: src/peep.h:1.2
Rev: src/peep.in:1.4

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: docode.c,v 1.11 1997/02/14 04:45:57 hubbe Exp $"); + RCSID("$Id: docode.c,v 1.12 1997/03/05 05:22:55 hubbe Exp $");   #include "las.h"   #include "program.h"   #include "language.h"
141:    default: emit(F_POP_N_ELEMS,x); break;    }   } - #define DO_CODE_BLOCK(N) do_pop(do_docode(N,DO_NOT_COPY | DO_POP)) +     -  + #define DO_CODE_BLOCK(X) do_pop(do_docode((X),DO_NOT_COPY | DO_POP)); +    int do_docode(node *n,INT16 flags)   {    int i;
1070:    init_bytecode();    label_no=0;    DO_CODE_BLOCK(n); -  asm_opt(); +     assemble();   }   
1085:    init_bytecode();       tmp=do_docode(n,0); -  asm_opt(); +     assemble();       instrbuf=instrbuf_save;    label_no = label_no_save;    return tmp;   }