sys/src/cmd/2l/l.h

   1 #include        <u.h>
   2 #include        <libc.h>
   3 #include        <bio.h>
   4 #include        "../2c/2.out.h"
   5
   6 #ifndef EXTERN
   7 #define EXTERN  extern
   8 #endif
   9
  10 #define P               ((Prog*)0)
  11 #define S               ((Sym*)0)
  12 #define TNAME           (curtext?curtext->from.sym->name:noname)
  13 #define CPUT(c)\
  14         { *cbp++ = c;\
  15         if(--cbc <= 0)\
  16                 cflush(); }
  17
  18 typedef struct  Adr     Adr;
  19 typedef struct  Prog    Prog;
  20 typedef struct  Sym     Sym;
  21 typedef struct  Auto    Auto;
  22 typedef struct  Optab   Optab;
  23
  24 struct  Adr
  25 {
  26         short   type;
  27         short   index;
  28         union
  29         {
  30                 struct
  31                 {
  32                         long    u0displace;
  33                         long    u0offset;
  34                 } s0;
  35                 char    u0scon[8];
  36                 Prog    *u0cond;        /* not used, but should be D_BRANCH */
  37                 Ieee    u0ieee;
  38         } u0;
  39         union
  40         {
  41                 Auto*   u1autom;
  42                 Sym*    u1sym;
  43         } u1;
  44         uchar   field;
  45         uchar   scale;
  46 };
  47
  48 #define displace u0.s0.u0displace
  49 #define offset  u0.s0.u0offset
  50 #define scon    u0.u0scon
  51 #define cond    u0.u0cond
  52 #define ieee    u0.u0ieee
  53
  54 #define autom   u1.u1autom
  55 #define sym     u1.u1sym
  56
  57 struct  Prog
  58 {
  59         Adr     from;
  60         Adr     to;
  61         union
  62         {
  63                 long    u0stkoff;
  64                 Prog    *u0forwd;
  65         } u0;
  66         Prog*   link;
  67         Prog*   pcond;  /* work on this */
  68         long    pc;
  69         long    line;
  70         short   as;
  71         uchar   mark;   /* work on these */
  72         uchar   back;
  73 };
  74
  75 #define stkoff  u0.u0stkoff
  76 #define forwd   u0.u0forwd
  77
  78 struct  Auto
  79 {
  80         Sym*    asym;
  81         Auto*   link;
  82         long    aoffset;
  83         short   type;
  84 };
  85 struct  Sym
  86 {
  87         char    *name;
  88         short   type;
  89         short   version;
  90         short   become;
  91         short   frame;
  92         long    value;
  93         Sym*    link;
  94 };
  95 struct  Optab
  96 {
  97         short   as;
  98         short   fas;
  99         short   srcsp;
 100         short   dstsp;
 101         ushort  optype;
 102         ushort  opcode0;
 103         ushort  opcode1;
 104         ushort  opcode2;
 105         ushort  opcode3;
 106 };
 107
 108 enum
 109 {
 110         STEXT           = 1,
 111         SDATA,
 112         SBSS,
 113         SDATA1,
 114         SXREF,
 115         SAUTO,
 116         SPARAM,
 117         SFILE,
 118         NHASH           = 10007,
 119         NHUNK           = 100000,
 120         MINSIZ          = 4,
 121         STRINGSZ        = 200,
 122         MAXIO           = 8192,
 123         MAXHIST         = 20,                           /* limit of path elements for history symbols */
 124         A6OFFSET        = 32766
 125 };
 126
 127 EXTERN union
 128 {
 129         struct
 130         {
 131                 char    obuf[MAXIO];                    /* output buffer */
 132                 uchar   ibuf[MAXIO];                    /* input buffer */
 133         } u;
 134         char    dbuf[1];
 135 } buf;
 136
 137 #define cbuf    u.obuf
 138 #define xbuf    u.ibuf
 139
 140 EXTERN  long    HEADR;
 141 EXTERN  long    HEADTYPE;
 142 EXTERN  long    INITDAT;
 143 EXTERN  long    INITRND;
 144 EXTERN  long    INITTEXT;
 145 EXTERN  char*   INITENTRY;              /* entry point */
 146 EXTERN  Biobuf  bso;
 147 EXTERN  long    bsssize;
 148 EXTERN  long    casepc;
 149 EXTERN  int     cbc;
 150 EXTERN  char*   cbp;
 151 EXTERN  int     cout;
 152 EXTERN  Auto*   curauto;
 153 EXTERN  Auto*   curhist;
 154 EXTERN  Prog*   curp;
 155 EXTERN  Prog*   curtext;
 156 EXTERN  Prog*   datap;
 157 EXTERN  long    datsize;
 158 EXTERN  char    debug[128];
 159 EXTERN  Prog*   etextp;
 160 EXTERN  Prog*   firstp;
 161 EXTERN  char    fnuxi8[8];
 162 EXTERN  char    gnuxi8[8];
 163 EXTERN  Sym*    hash[NHASH];
 164 EXTERN  Sym*    histfrog[MAXHIST];
 165 EXTERN  int     histfrogp;
 166 EXTERN  int     histgen;
 167 EXTERN  char*   library[50];
 168 EXTERN  char*   libraryobj[50];
 169 EXTERN  int     libraryp;
 170 EXTERN  int     xrefresolv;
 171 EXTERN  char*   hunk;
 172 EXTERN  char    inuxi1[1];
 173 EXTERN  char    inuxi2[2];
 174 EXTERN  char    inuxi4[4];
 175 EXTERN  Prog*   lastp;
 176 EXTERN  long    lcsize;
 177 EXTERN  long    ncase;
 178 EXTERN  long    ndata;
 179 EXTERN  int     nerrors;
 180 EXTERN  long    nhunk;
 181 EXTERN  long    nsymbol;
 182 EXTERN  char*   noname;
 183 EXTERN  short*  op;
 184 EXTERN  char*   outfile;
 185 EXTERN  long    pc;
 186 EXTERN  char    simple[I_MASK];
 187 EXTERN  char    special[I_MASK];
 188 EXTERN  long    spsize;
 189 EXTERN  Sym*    symlist;
 190 EXTERN  long    symsize;
 191 EXTERN  Prog*   textp;
 192 EXTERN  long    textsize;
 193 EXTERN  long    thunk;
 194 EXTERN  int     version;
 195 EXTERN  Prog    zprg;
 196
 197 extern  Optab   optab[];
 198 extern  char    mmsize[];
 199 extern  char*   anames[];
 200
 201 #pragma varargck        type    "A"     int
 202 #pragma varargck        type    "D"     Adr*
 203 #pragma varargck        type    "P"     Prog*
 204 #pragma varargck        type    "R"     int
 205 #pragma varargck        type    "S"     char*
 206
 207 #pragma varargck        argpos  diag 1
 208
 209 int     Aconv(Fmt*);
 210 int     Dconv(Fmt*);
 211 int     Pconv(Fmt*);
 212 int     Rconv(Fmt*);
 213 int     Sconv(Fmt*);
 214 int     Xconv(Fmt*);
 215 void    addhist(long, int);
 216 int     andsize(Prog*, Adr*);
 217 Prog*   appendp(Prog*);
 218 void    asmb(void);
 219 int     asmea(Prog*, Adr*);
 220 void    asmins(Prog*);
 221 void    asmlc(void);
 222 void    asmsp(void);
 223 void    asmsym(void);
 224 long    atolwhex(char*);
 225 Prog*   brchain(Prog*);
 226 Prog*   brloop(Prog*);
 227 void    cflush(void);
 228 Prog*   copyp(Prog*);
 229 double  cputime(void);
 230 void    datblk(long, long);
 231 void    diag(char*, ...);
 232 void    dodata(void);
 233 void    doprof1(void);
 234 void    doprof2(void);
 235 void    dostkoff(void);
 236 long    entryvalue(void);
 237 void    errorexit(void);
 238 int     find1(long, int);
 239 int     find2(long, int);
 240 void    follow(void);
 241 void    gethunk(void);
 242 int     gnuxi(Ieee*, int, int);
 243 void    histtoauto(void);
 244 double  ieeedtod(Ieee*);
 245 long    ieeedtof(Ieee*);
 246 void    ldobj(int, long, char*);
 247 void    loadlib(void);
 248 void    listinit(void);
 249 Sym*    lookup(char*, int);
 250 void    lput(long);
 251 void    main(int, char*[]);
 252 void    mkfwd(void);
 253 void*   mysbrk(ulong);
 254 void    nuxiinit(void);
 255 void    objfile(char*);
 256 void    patch(void);
 257 Prog*   prg(void);
 258 int     relinv(int);
 259 long    reuse(Prog*, Sym*);
 260 long    rnd(long, long);
 261 void    s16put(char*);
 262 void    span(void);
 263 void    undef(void);
 264 void    xdefine(char*, int, long);
 265 void    xfol(Prog*);
 266 int     zaddr(uchar*, Adr*, Sym*[]);