l.h 7.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406
  1. #include <u.h>
  2. #include <libc.h>
  3. #include <bio.h>
  4. #include "../5c/5.out.h"
  5. #ifndef EXTERN
  6. #define EXTERN extern
  7. #endif
  8. #define LIBNAMELEN 300
  9. void addlibpath(char*);
  10. int fileexists(char*);
  11. char* findlib(char*);
  12. typedef struct Adr Adr;
  13. typedef struct Sym Sym;
  14. typedef struct Autom Auto;
  15. typedef struct Prog Prog;
  16. typedef struct Optab Optab;
  17. typedef struct Oprang Oprang;
  18. typedef uchar Opcross[32][2][32];
  19. typedef struct Count Count;
  20. #define P ((Prog*)0)
  21. #define S ((Sym*)0)
  22. #define TNAME (curtext&&curtext->from.sym?curtext->from.sym->name:noname)
  23. struct Adr
  24. {
  25. union
  26. {
  27. long u0offset;
  28. char* u0sval;
  29. Ieee* u0ieee;
  30. } u0;
  31. union
  32. {
  33. Auto* u1autom;
  34. Sym* u1sym;
  35. } u1;
  36. char type;
  37. char reg;
  38. char name;
  39. char class;
  40. };
  41. #define offset u0.u0offset
  42. #define sval u0.u0sval
  43. #define ieee u0.u0ieee
  44. #define autom u1.u1autom
  45. #define sym u1.u1sym
  46. struct Prog
  47. {
  48. Adr from;
  49. Adr to;
  50. union
  51. {
  52. long u0regused;
  53. Prog* u0forwd;
  54. } u0;
  55. Prog* cond;
  56. Prog* link;
  57. long pc;
  58. long line;
  59. uchar mark;
  60. uchar optab;
  61. uchar as;
  62. uchar scond;
  63. uchar reg;
  64. };
  65. #define regused u0.u0regused
  66. #define forwd u0.u0forwd
  67. struct Sym
  68. {
  69. char *name;
  70. short type;
  71. short version;
  72. short become;
  73. short frame;
  74. uchar subtype;
  75. ushort file;
  76. long value;
  77. long sig;
  78. Sym* link;
  79. };
  80. #define SIGNINTERN (1729*325*1729)
  81. struct Autom
  82. {
  83. Sym* asym;
  84. Auto* link;
  85. long aoffset;
  86. short type;
  87. };
  88. struct Optab
  89. {
  90. char as;
  91. char a1;
  92. char a2;
  93. char a3;
  94. char type;
  95. char size;
  96. char param;
  97. char flag;
  98. };
  99. struct Oprang
  100. {
  101. Optab* start;
  102. Optab* stop;
  103. };
  104. struct Count
  105. {
  106. long count;
  107. long outof;
  108. };
  109. enum
  110. {
  111. STEXT = 1,
  112. SDATA,
  113. SBSS,
  114. SDATA1,
  115. SXREF,
  116. SLEAF,
  117. SFILE,
  118. SCONST,
  119. SSTRING,
  120. SUNDEF,
  121. SIMPORT,
  122. SEXPORT,
  123. LFROM = 1<<0,
  124. LTO = 1<<1,
  125. LPOOL = 1<<2,
  126. V4 = 1<<3, /* arm v4 arch */
  127. VFP = 1<<4, /* arm vfpv3 floating point */
  128. C_NONE = 0,
  129. C_REG,
  130. C_REGREG,
  131. C_SHIFT,
  132. C_FREG,
  133. C_PSR,
  134. C_FCR,
  135. C_RCON, /* 0xff rotated */
  136. C_NCON, /* ~RCON */
  137. C_SCON, /* 0xffff */
  138. C_LCON,
  139. C_FCON,
  140. C_RACON,
  141. C_LACON,
  142. C_RECON,
  143. C_LECON,
  144. C_SBRA,
  145. C_LBRA,
  146. C_HAUTO, /* halfword insn offset (-0xff to 0xff) */
  147. C_FAUTO, /* float insn offset (0 to 0x3fc, word aligned) */
  148. C_HFAUTO, /* both H and F */
  149. C_SAUTO, /* -0xfff to 0xfff */
  150. C_LAUTO,
  151. C_HEXT,
  152. C_FEXT,
  153. C_HFEXT,
  154. C_SEXT,
  155. C_LEXT,
  156. C_HOREG,
  157. C_FOREG,
  158. C_HFOREG,
  159. C_SOREG,
  160. C_ROREG,
  161. C_SROREG, /* both S and R */
  162. C_LOREG,
  163. C_ADDR, /* relocatable address */
  164. C_GOK,
  165. /* mark flags */
  166. FOLL = 1<<0,
  167. LABEL = 1<<1,
  168. LEAF = 1<<2,
  169. BIG = (1<<12)-4,
  170. STRINGSZ = 200,
  171. NHASH = 10007,
  172. NHUNK = 100000,
  173. MINSIZ = 64,
  174. NENT = 100,
  175. MAXIO = 8192,
  176. MAXHIST = 20, /* limit of path elements for history symbols */
  177. Roffset = 22, /* no. bits for offset in relocation address */
  178. Rindex = 10, /* no. bits for index in relocation address */
  179. };
  180. EXTERN union
  181. {
  182. struct
  183. {
  184. uchar obuf[MAXIO]; /* output buffer */
  185. uchar ibuf[MAXIO]; /* input buffer */
  186. } u;
  187. char dbuf[1];
  188. } buf;
  189. #define cbuf u.obuf
  190. #define xbuf u.ibuf
  191. EXTERN long HEADR; /* length of header */
  192. EXTERN int HEADTYPE; /* type of header */
  193. EXTERN long INITDAT; /* data location */
  194. EXTERN long INITRND; /* data round above text location */
  195. EXTERN long INITTEXT; /* text location */
  196. EXTERN char* INITENTRY; /* entry point */
  197. EXTERN long autosize;
  198. EXTERN Biobuf bso;
  199. EXTERN long bsssize;
  200. EXTERN int cbc;
  201. EXTERN uchar* cbp;
  202. EXTERN int cout;
  203. EXTERN Auto* curauto;
  204. EXTERN Auto* curhist;
  205. EXTERN Prog* curp;
  206. EXTERN Prog* curtext;
  207. EXTERN Prog* datap;
  208. EXTERN long datsize;
  209. EXTERN char debug[128];
  210. EXTERN Prog* etextp;
  211. EXTERN Prog* firstp;
  212. EXTERN char fnuxi4[4];
  213. EXTERN char fnuxi8[8];
  214. EXTERN char* noname;
  215. EXTERN Sym* hash[NHASH];
  216. EXTERN Sym* histfrog[MAXHIST];
  217. EXTERN int histfrogp;
  218. EXTERN int histgen;
  219. EXTERN char* library[50];
  220. EXTERN char* libraryobj[50];
  221. EXTERN int libraryp;
  222. EXTERN int xrefresolv;
  223. EXTERN char* hunk;
  224. EXTERN char inuxi1[1];
  225. EXTERN char inuxi2[2];
  226. EXTERN char inuxi4[4];
  227. EXTERN Prog* lastp;
  228. EXTERN long lcsize;
  229. EXTERN char literal[32];
  230. EXTERN int nerrors;
  231. EXTERN long nhunk;
  232. EXTERN long instoffset;
  233. EXTERN Opcross opcross[8];
  234. EXTERN Oprang oprange[ALAST];
  235. EXTERN char* outfile;
  236. EXTERN long pc;
  237. EXTERN uchar repop[ALAST];
  238. EXTERN long symsize;
  239. EXTERN Prog* textp;
  240. EXTERN long textsize;
  241. EXTERN long thunk;
  242. EXTERN int version;
  243. EXTERN char xcmp[C_GOK+1][C_GOK+1];
  244. EXTERN Prog zprg;
  245. EXTERN int dtype;
  246. EXTERN int armv4;
  247. EXTERN int vfp;
  248. EXTERN int doexp, dlm;
  249. EXTERN int imports, nimports;
  250. EXTERN int exports, nexports;
  251. EXTERN char* EXPTAB;
  252. EXTERN Prog undefp;
  253. #define UP (&undefp)
  254. extern char* anames[];
  255. extern Optab optab[];
  256. void addpool(Prog*, Adr*);
  257. EXTERN Prog* blitrl;
  258. EXTERN Prog* elitrl;
  259. void initdiv(void);
  260. EXTERN Prog* prog_div;
  261. EXTERN Prog* prog_divu;
  262. EXTERN Prog* prog_mod;
  263. EXTERN Prog* prog_modu;
  264. #pragma varargck type "A" int
  265. #pragma varargck type "A" uint
  266. #pragma varargck type "C" int
  267. #pragma varargck type "D" Adr*
  268. #pragma varargck type "N" Adr*
  269. #pragma varargck type "P" Prog*
  270. #pragma varargck type "S" char*
  271. #pragma varargck argpos diag 1
  272. int Aconv(Fmt*);
  273. int Cconv(Fmt*);
  274. int Dconv(Fmt*);
  275. int Nconv(Fmt*);
  276. int Pconv(Fmt*);
  277. int Sconv(Fmt*);
  278. int aclass(Adr*);
  279. void addhist(long, int);
  280. void addlibpath(char*);
  281. void append(Prog*, Prog*);
  282. void asmb(void);
  283. void asmdyn(void);
  284. void asmlc(void);
  285. void asmout(Prog*, Optab*);
  286. void asmsym(void);
  287. long atolwhex(char*);
  288. Prog* brloop(Prog*);
  289. void buildop(void);
  290. void buildrep(int, int);
  291. void cflush(void);
  292. void ckoff(Sym*, long);
  293. int chipfloat(Ieee*);
  294. int cmp(int, int);
  295. int compound(Prog*);
  296. double cputime(void);
  297. void datblk(long, long, int);
  298. void diag(char*, ...);
  299. void divsig(void);
  300. void dodata(void);
  301. void doprof1(void);
  302. void doprof2(void);
  303. void dynreloc(Sym*, long, int);
  304. long entryvalue(void);
  305. void errorexit(void);
  306. void exchange(Prog*);
  307. void export(void);
  308. int fileexists(char*);
  309. int find1(long, int);
  310. char* findlib(char*);
  311. void follow(void);
  312. void gethunk(void);
  313. void histtoauto(void);
  314. double ieeedtod(Ieee*);
  315. long ieeedtof(Ieee*);
  316. void import(void);
  317. int isnop(Prog*);
  318. void ldobj(int, long, char*);
  319. void loadlib(void);
  320. void listinit(void);
  321. Sym* lookup(char*, int);
  322. void cput(int);
  323. void lput(long);
  324. void lputl(long);
  325. void mkfwd(void);
  326. void* mysbrk(ulong);
  327. void names(void);
  328. void nocache(Prog*);
  329. void nuxiinit(void);
  330. void objfile(char*);
  331. int ocmp(const void*, const void*);
  332. long opirr(int);
  333. Optab* oplook(Prog*);
  334. long oprrr(int, int);
  335. long opvfprrr(int, int);
  336. long olr(long, int, int, int);
  337. long olhr(long, int, int, int);
  338. long olrr(int, int, int, int);
  339. long olhrr(int, int, int, int);
  340. long osr(int, int, long, int, int);
  341. long oshr(int, long, int, int);
  342. long ofsr(int, int, long, int, int, Prog*);
  343. long osrr(int, int, int, int);
  344. long oshrr(int, int, int, int);
  345. long omvl(Prog*, Adr*, int);
  346. void patch(void);
  347. void prasm(Prog*);
  348. void prepend(Prog*, Prog*);
  349. Prog* prg(void);
  350. int pseudo(Prog*);
  351. void putsymb(char*, int, long, int);
  352. void readundefs(char*, int);
  353. long regoff(Adr*);
  354. int relinv(int);
  355. long rnd(long, long);
  356. void span(void);
  357. void strnput(char*, int);
  358. void undef(void);
  359. void undefsym(Sym*);
  360. void wput(long);
  361. void xdefine(char*, int, long);
  362. void xfol(Prog*);
  363. void zerosig(char*);
  364. void noops(void);
  365. long immrot(ulong);
  366. long immaddr(long);
  367. long opbra(int, int);