gc.h 5.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338
  1. #include "../cc/cc.h"
  2. #include "../2c/2.out.h"
  3. /*
  4. * 1c/68020
  5. * Motorola 68000
  6. */
  7. #define SZ_CHAR 1
  8. #define SZ_SHORT 2
  9. #define SZ_INT 4
  10. #define SZ_LONG 4
  11. #define SZ_IND 4
  12. #define SZ_FLOAT 4
  13. #define SZ_VLONG 8
  14. #define SZ_DOUBLE 8
  15. #define ALLOP OEND
  16. #define NRGN 300
  17. #define FNX 100
  18. #define INDEXED 9
  19. #define PRE 1
  20. #define POST 2
  21. #define TEST 4
  22. typedef struct Adr Adr;
  23. typedef struct Prog Prog;
  24. typedef struct Txt Txt;
  25. typedef struct Cases Case;
  26. typedef struct Reg Reg;
  27. typedef struct Rgn Rgn;
  28. typedef struct Var Var;
  29. typedef struct Multab Multab;
  30. typedef struct C1 C1;
  31. struct Adr
  32. {
  33. long displace;
  34. long offset;
  35. char sval[NSNAME];
  36. double dval;
  37. Sym* sym;
  38. short type;
  39. short field;
  40. short etype;
  41. };
  42. #define A ((Adr*)0)
  43. struct Prog
  44. {
  45. Adr from;
  46. Adr to;
  47. Prog* link;
  48. long lineno;
  49. short as;
  50. };
  51. #define P ((Prog*)0)
  52. struct Txt
  53. {
  54. short movas;
  55. short postext;
  56. char preclr;
  57. };
  58. struct Cases
  59. {
  60. long val;
  61. long label;
  62. uchar def;
  63. Case* link;
  64. };
  65. #define C ((Case*)0)
  66. struct Var
  67. {
  68. long offset;
  69. Sym* sym;
  70. char type;
  71. char etype;
  72. };
  73. struct Reg
  74. {
  75. long pc;
  76. long rpo; /* reverse post ordering */
  77. Bits set;
  78. Bits use1;
  79. Bits use2;
  80. Bits refbehind;
  81. Bits refahead;
  82. Bits calbehind;
  83. Bits calahead;
  84. Bits regdiff;
  85. Bits act;
  86. ulong regu;
  87. long loop; /* could be shorter */
  88. Reg* log5;
  89. long active;
  90. Reg* p1;
  91. Reg* p2;
  92. Reg* p2link;
  93. Reg* s1;
  94. Reg* s2;
  95. Reg* link;
  96. Prog* prog;
  97. };
  98. #define R ((Reg*)0)
  99. struct Rgn
  100. {
  101. Reg* enter;
  102. short costr;
  103. short costa;
  104. short varno;
  105. short regno;
  106. };
  107. struct Multab
  108. {
  109. short val;
  110. char code[6];
  111. };
  112. struct C1
  113. {
  114. long val;
  115. long label;
  116. };
  117. #define BLOAD(r) band(bnot(r->refbehind), r->refahead)
  118. #define BSTORE(r) band(bnot(r->calbehind), r->calahead)
  119. #define LOAD(r) (~r->refbehind.b[z] & r->refahead.b[z])
  120. #define STORE(r) (~r->calbehind.b[z] & r->calahead.b[z])
  121. #define bset(a,n) ((a).b[(n)/32]&(1L<<(n)%32))
  122. #define CLOAD 8
  123. #define CREF 5
  124. #define CTEST 2
  125. #define CXREF 3
  126. #define CINF 1000
  127. #define LOOP 3
  128. EXTERN Bits externs;
  129. EXTERN Bits params;
  130. EXTERN Bits addrs;
  131. EXTERN ulong regbits;
  132. #define B_INDIR (1<<0)
  133. #define B_ADDR (1<<1)
  134. EXTERN int mvbits;
  135. EXTERN int changer;
  136. EXTERN int changea;
  137. EXTERN Txt txt[NTYPE][NTYPE];
  138. EXTERN short opxt[ALLOP][NTYPE];
  139. EXTERN Txt* txtp;
  140. EXTERN int multabsize;
  141. EXTERN Reg* firstr;
  142. EXTERN Reg* lastr;
  143. EXTERN Reg zreg;
  144. EXTERN Reg* freer;
  145. EXTERN long argoff;
  146. EXTERN long breakpc;
  147. EXTERN Case* cases;
  148. EXTERN long continpc;
  149. EXTERN Prog* firstp;
  150. EXTERN Reg* firstr;
  151. EXTERN int inargs;
  152. EXTERN Prog* lastp;
  153. EXTERN int retok;
  154. EXTERN long mnstring;
  155. EXTERN Node* nodrat;
  156. EXTERN Node* nodret;
  157. EXTERN long nrathole;
  158. EXTERN long nstatic;
  159. EXTERN int nregion;
  160. EXTERN long nstring;
  161. EXTERN int nvar;
  162. EXTERN Prog* p;
  163. EXTERN long pc;
  164. EXTERN Rgn region[NRGN];
  165. EXTERN Rgn* rgp;
  166. EXTERN char string[NSNAME];
  167. EXTERN Sym* symrathole;
  168. EXTERN Sym* symstatic;
  169. EXTERN Var var[NVAR];
  170. EXTERN long* idom;
  171. EXTERN Reg** rpo2r;
  172. EXTERN long maxnr;
  173. EXTERN Prog zprog;
  174. EXTERN uchar regused[NREG];
  175. EXTERN uchar aregused[NREG];
  176. EXTERN uchar fregused[NREG];
  177. EXTERN uchar regbase[I_MASK];
  178. EXTERN long exregoffset;
  179. EXTERN long exaregoffset;
  180. EXTERN long exfregoffset;
  181. extern char* anames[];
  182. extern Multab multab[];
  183. void cgen(Node*, int, Node*);
  184. void lcgen(Node*, int, Node*);
  185. void bcgen(Node*, int);
  186. void boolgen(Node*, int, int, Node*, Node*);
  187. void sugen(Node*, int, Node*, long);
  188. void listinit(void);
  189. int Bconv(Fmt*);
  190. int Pconv(Fmt*);
  191. int Aconv(Fmt*);
  192. int Xconv(Fmt*);
  193. int Dconv(Fmt*);
  194. int Rconv(Fmt*);
  195. int Sconv(Fmt*);
  196. void peep(void);
  197. void excise(Reg*);
  198. Reg* uniqp(Reg*);
  199. Reg* uniqs(Reg*);
  200. int findtst(Reg*, Prog*, int);
  201. int setcc(Prog*, Prog*);
  202. int compat(Adr*, Adr*);
  203. int aregind(Adr*);
  204. int asize(int);
  205. int usedin(int, Adr*);
  206. Reg* findccr(Reg*);
  207. int setccr(Prog*);
  208. Reg* findop(Reg*, int, int, int);
  209. int regtyp(int);
  210. int anyvar(Adr*);
  211. int subprop(Reg*);
  212. int copyprop(Reg*);
  213. int copy1(Adr*, Adr*, Reg*, int);
  214. int copyu(Prog*, Adr*, Adr*);
  215. int copyas(Adr*, Adr*);
  216. int tasas(Adr*, Adr*);
  217. int copyau(Adr*, Adr*);
  218. int copysub(Adr*, Adr*, Adr*, Prog*, int);
  219. ulong RtoB(int);
  220. ulong AtoB(int);
  221. ulong FtoB(int);
  222. int BtoR(ulong);
  223. int BtoA(ulong);
  224. int BtoF(ulong);
  225. Reg* rega(void);
  226. int rcmp(const void*, const void*);
  227. void regopt(Prog*);
  228. void addmove(Reg*, int, int, int);
  229. Bits mkvar(Adr*, int);
  230. void prop(Reg*, Bits, Bits);
  231. void loopit(Reg*, long);
  232. void synch(Reg*, Bits);
  233. ulong allreg(ulong, Rgn*);
  234. void paint1(Reg*, int);
  235. ulong paint2(Reg*, int);
  236. void paint3(Reg*, int, ulong, int);
  237. void addreg(Adr*, int);
  238. void codgen(Node*, Node*);
  239. void gen(Node*);
  240. void noretval(int);
  241. void usedset(Node*, int);
  242. Node* nodconst(long);
  243. int swcmp(const void*, const void*);
  244. void doswit(int, Node*);
  245. void swit1(C1*, int, long, int, Node*);
  246. void cas(void);
  247. int bitload(Node*, int, int, int, Node*);
  248. void bitstore(Node*, int, int, int, int, Node*);
  249. long outstring(char*, long);
  250. int doinc(Node*, int);
  251. void setsp(void);
  252. void adjsp(long);
  253. int simplv(Node*);
  254. int eval(Node*, int);
  255. void outcode(void);
  256. void ieeedtod(Ieee*, double);
  257. int nodalloc(Type*, int, Node*);
  258. int mulcon(Node*, Node*, int, Node*);
  259. int shlcon(Node*, Node*, int, Node*);
  260. int mulcon1(Node*, long, int, Node*);
  261. void nullwarn(Node*, Node*);
  262. void tindex(Type*, Type*);
  263. void ginit(void);
  264. void gclean(void);
  265. void oinit(int, int, int, int, int, int);
  266. Prog* prg(void);
  267. void nextpc(void);
  268. void gargs(Node*);
  269. void naddr(Node*, Adr*, int);
  270. int regalloc(Type*, int);
  271. int regaddr(int);
  272. int regpair(int);
  273. int regret(Type*);
  274. void regfree(int);
  275. void gmove(Type*, Type*, int, Node*, int, Node*);
  276. void gopcode(int, Type*, int, Node*, int, Node*);
  277. void asopt(void);
  278. int relindex(int);
  279. void gbranch(int);
  280. void fpbranch(void);
  281. void patch(Prog*, long);
  282. void gpseudo(int, Sym*, int, long);
  283. void indx(Node*);
  284. void bcomplex(Node*);
  285. /*
  286. * com64
  287. */
  288. int com64(Node*);
  289. void com64init(void);
  290. void bool64(Node*);
  291. #pragma varargck type "A" int
  292. #pragma varargck type "B" Bits
  293. #pragma varargck type "D" Adr*
  294. #pragma varargck type "N" Adr*
  295. #pragma varargck type "P" Prog*
  296. #pragma varargck type "S" char*
  297. #pragma varargck type "R" int