123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105 |
- /* $Header$ */
- #include <stdio.h>
- #include <em_spec.h>
- #include <em_mnem.h>
- #include <em_pseu.h>
- #include <em_flag.h>
- #include <em_ptyp.h>
- #include <em_mes.h>
- #include <alloc.h>
- #include <em.h>
- #include <em_comp.h>
- #include <system.h>
- #include <emO_code.h>
- #include <ansi.h>
- #define MAXBUFFER 200
- #define MAXSTRING 1000
- #define OTHER 0
- #define op_lab sp_fpseu
- typedef struct e_instr *p_instr;
- struct dfa {
- short check;
- short next;
- };
- struct dodefault {
- short numout;
- short next;
- };
- extern p_instr OO_buffer;
- extern p_instr OO_patternqueue;
- extern p_instr OO_nxtpatt;
- extern p_instr OO_endbackup;
- extern p_instr OO_nxtrepl;
- p_instr OO_halfflush();
- # define GETNXTPATT() (OO_nxtpatt>=&OO_buffer[MAXBUFFER]?OO_halfflush():OO_nxtpatt++)
- # define GETNXTREPL() (OO_nxtrepl++)
- # define FLUSHDFA() (GETNXTPATT())->em_opcode=OTHER;\
- if (OO_state) OO_dfa(OTHER); else OO_flush()
- extern int OO_state;
- extern arith OO_WSIZE; /* wordlength */
- extern arith OO_DWSIZE; /* 2*wordlength */
- extern arith OO_PSIZE; /* pointer length */
- #ifdef STATS
- extern int OO_wrstats; /* statistics output */
- #endif
- #define CST(p) (p.em_cst)
- #define PNAM(p) (p.em_pnam)
- #define LAB(p) (p.em_ilb)
- #define DEFILB(p) (p.em_ilb)
- #define DEFINED(p) (p.em_argtype)
- _PROTOTYPE(void EM_mkop, (p_instr, int));
- _PROTOTYPE(void EM_mknarg, (p_instr, int));
- _PROTOTYPE(void EM_mkilb, (p_instr, int, label));
- _PROTOTYPE(void EM_mknof, (p_instr, int, label, arith));
- _PROTOTYPE(void EM_mksof, (p_instr, int, char *, arith));
- _PROTOTYPE(void EM_mkcst, (p_instr, int, arith));
- _PROTOTYPE(void EM_mkpro, (p_instr, int, char *));
- _PROTOTYPE(void EM_mkdefilb, (p_instr, int, label));
- _PROTOTYPE(void EM_Nop, (int));
- _PROTOTYPE(void EM_Nnarg, (int));
- _PROTOTYPE(void EM_Nilb, (int, label));
- _PROTOTYPE(void EM_Nnof, (int, label, arith));
- _PROTOTYPE(void EM_Nsof, (int, char *, arith));
- _PROTOTYPE(void EM_Ncst, (int, arith));
- _PROTOTYPE(void EM_Npro, (int, char *));
- _PROTOTYPE(void EM_Ndefilb, (int, label));
- _PROTOTYPE(void EM_Rop, (int));
- _PROTOTYPE(void EM_Rnarg, (int));
- _PROTOTYPE(void EM_Rilb, (int, label));
- _PROTOTYPE(void EM_Rnof, (int, label, arith));
- _PROTOTYPE(void EM_Rsof, (int, char *, arith));
- _PROTOTYPE(void EM_Rcst, (int, arith));
- _PROTOTYPE(void EM_Rpro, (int, char *));
- _PROTOTYPE(void EM_Rdefilb, (int, label));
- _PROTOTYPE(arith OO_rotate, (arith, arith));
- _PROTOTYPE(int OO_signsame, (arith, arith));
- _PROTOTYPE(int OO_sfit, (arith, arith));
- _PROTOTYPE(int OO_ufit, (arith, arith));
- _PROTOTYPE(int OO_extsame, (p_instr, p_instr));
- _PROTOTYPE(int OO_namsame, (p_instr, p_instr));
- _PROTOTYPE(arith OO_offset, (p_instr));
- _PROTOTYPE(char *OO_freestr, (char *));
- _PROTOTYPE(void OO_dfa, (int));
- _PROTOTYPE(void OO_flush, (void));
- _PROTOTYPE(p_instr OO_halfflush, (void));
- _PROTOTYPE(void OO_mkext, (p_instr, int, p_instr, arith));
- _PROTOTYPE(void OO_mkrepl, (int, int, int));
- #ifdef DEBUG
- _PROTOTYPE(void dumpstate, (char *));
- _PROTOTYPE(void prtinst, (p_instr));
- #endif
|