pointer.cpp

#define _POINTER_

#include "tok.h"

void dopointerproc() {
  unsigned int snum;
  int razr = r16;
  ITOK wtok;
  char *wbuf;
  SINFO wstr;
  if (am32)
    razr = r32;
  itok.rm = itok.sib;
  itok.sib = am32 == 0 ? CODE16 : CODE32;
  if ((FixUp)

      && ((itok.rm == rm_d32 && am32) ||
          (itok.rm == rm_d16 && am32 == 0))) // 16.07.04 16:01
    // 18.08.04 18:03  itok.rm==rm_d32 was itok.rm==CODE32

    itok.flag |= f_reloc;
  else
    compressoffset(&itok);
  wstr = strinf;
  strinf.bufstr = NULL;
  wtok = itok;
  wbuf = bufrm;
  bufrm = NULL;
  unsigned int oaddESP = addESP;
  if (wtok.npointr < 2) {
    itok.flag &= ~f_far;
    //		itok.post=0;
    snum = initparamproc();
    CheckAllMassiv(wbuf, razr, &wstr, &wtok);
    outseg(&wtok, 2);
    op(0xFF);
    op(0x10 + wtok.rm + ((wtok.flag & f_far) != 0 ? 8 : 0));
    outaddress(&wtok);
  } else {
    int reg = BX;
    getpointeradr(&wtok, wbuf, &wstr, wtok.npointr - 1, am32 == 0 ? r16 : r32,
                  reg);
    snum = initparamproc();
    op66(razr);
    op(0xFF);
    op(0xD0 + reg); /* CALL reg with stack params */
  }
  if ((wtok.flag & f_typeproc) == tp_cdecl)
    CorrectStack(snum);
  else
    addESP = oaddESP;
  clearregstat(0);
}

void dopointer() {
  if (itok.type == tk_proc) {
    if (tok2 == tk_openbracket) {
      dopointerproc();
      nexttok();
      return;
    }
    itok.rm = itok.sib;
    itok.sib = am32 == 0 ? CODE16 : CODE32;
    compressoffset(&itok);
  }
  int razr = r16;
  if (am32 || (itok.flag & f_far))
    razr = r32;
  do_d_wordvar(0, razr);
}

void getpointeradr(ITOK *gstok, char *&gbuf, SINFO *gstr, int numpointer,
                   int razr, int reg) {
  if (gstok->flag & f_far) {
    CheckAllMassiv(gbuf, 4, gstr, gstok);
    outseg(gstok, 2);
    op(0xC4);
    op(gstok->rm + 8 * reg);
    outaddress(gstok);
    itok.segm = ES;
    itok.sib = CODE16;
    if (reg == BX)
      itok.rm = rm_BX;
    else if (reg == SI)
      itok.rm = rm_SI;
    else if (reg == DI)
      itok.rm = rm_DI;
    warningreg(segs[0]);
  } else {
    int retreg;
    if ((gstok->flag & f_useidx) == 0 &&
        (retreg = CheckIDZReg(gstok->name, reg, razr)) != NOINREG) {
      if (am32 == 0 && retreg != BX && retreg != SI && retreg != DI) {
        GenRegToReg(reg, retreg, razr);
        IDZToReg(gstok->name, reg, razr);
      } else if (retreg != SKIPREG)
        reg = retreg;
      if (gbuf) {
        free(gbuf);
        gbuf = NULL;
      }
      if (gstr->bufstr) {
        free(gstr->bufstr);
        gstr->bufstr = NULL;
      }
      goto nomov;
    }
    if ((gstok->flag & f_useidx))
      IDZToReg(gstok->name, reg, razr);
    CheckAllMassiv(gbuf, razr, gstr, gstok);
    outseg(gstok, 2);
    op(0x8B);
    op(reg * 8 + gstok->rm);
    outaddress(gstok);
  nomov:
    itok.segm = DS;
    if (am32 == 0) {
      itok.sib = CODE16;
      if (reg == BX)
        itok.rm = rm_BX;
      else if (reg == SI)
        itok.rm = rm_SI;
      else if (reg == DI)
        itok.rm = rm_DI;
    } else {
      itok.sib = CODE32;
      itok.rm = reg;
    }
  }
  itok.post = 0;
  itok.number = 0;
  itok.flag = gstok->flag & (!f_reloc);
  warningreg(regs[am32][reg]);
  while (numpointer) {
    outseg(&itok, 2);
    op(0x8B);
    op(itok.rm + reg * 8);
    outaddress(&itok);
    numpointer--;
  }
}

void dovalpointer() {
  int sign = 0, rettype, pointr, razr = r8;
  int rrettype;
  int numpointer = 0;
  int hnumber = 0;
  // int i=0;
  int reg = BX;
  int npointr = 0;
  do {
    nexttok();
    numpointer++;
  } while (tok == tk_mult);
  ITOK wtok;
  char *wbuf;
  SINFO wstr;
  unsigned char ocha;
  unsigned int oinptr;
  unsigned int olinenum;
  int otok2;
  wstr = strinf;
  strinf.bufstr = NULL;
  wtok = itok;
  wbuf = bufrm;
  bufrm = NULL;
  if (numpointer == itok.npointr) {
    switch (itok.type) {
    case tk_qword:
    case tk_double:
      razr += 4;
    case tk_dword:
    case tk_float:
      razr += 2;
    case tk_word:
      razr++;
      break;
    case tk_long:
      razr += 2;
    case tk_int:
      razr++;
    case tk_char:
      sign = 1;
      break;
    }
    rrettype = rettype = itok.type;
    oinptr = inptr2;
    ocha = cha2;
    olinenum = linenumber;
    otok2 = tok2;
    nexttok();
    if (tok == tk_assign) {
      nexttok();
      convert_type(&sign, (int *)&rettype, &pointr);
      while (tok == tk_mult) {
        nexttok();
        npointr++;
      }
      if (npointr > itok.npointr)
        unuseableinput();
      if (tok2 == tk_assign) {
        hnumber = MultiAssign(razr, USEALLREG, npointr);
        if (reg == hnumber)
          reg = DI;
        goto getfromax;
      }
    }
    linenumber = linenum2 = olinenum;
    cha2 = ocha;
    inptr2 = oinptr;
    tok2 = otok2;
    itok = wtok;
    if (itok.type == tk_proc) {
      dopointer();
      return;
    }
    getpointeradr(&itok, wbuf, &wstr, numpointer - 1, razr, reg);
    tok = tk_charvar + itok.type - tk_char;
    switch (itok.type) {
    case tk_long:
    case tk_dword:
    case tk_int:
    case tk_word:
      do_d_wordvar(sign, razr);
      return;
    case tk_char:
    case tk_byte:
      dobytevar(sign);
      return;
    case tk_float:
      dofloatvar();
      return;
    case tk_qword:
      doqwordvar();
      return;
    case tk_double:
      //				dodoublevar();
      return;
    }
  getfromax:
    convert_returnvalue(rrettype, rettype);
    ITOK otok = itok;
    getpointeradr(&wtok, wbuf, &wstr, numpointer - 1, razr, reg);
    switch (rrettype) {
    case tk_char:
    case tk_byte:
      outseg(&itok, 2);
      op(0x88);
      op(itok.rm + hnumber * 8); //[reg]=AL
      break;
    case tk_int:
    case tk_word:
    case tk_long:
    case tk_dword:
    case tk_qword:
      op66(razr);
      outseg(&itok, 2);
      op(0x89);
      op(itok.rm + hnumber * 8); // MOV [rmword],AX
      break;
    case tk_float:
      outseg(&itok, 2); // fstp var
      op(0xd9);
      op(itok.rm + 0x18);
      fwait3();
      break;
    case tk_double:
      outseg(&itok, 2); // fstpq var
      op(0xdd);
      op(itok.rm + 0x18);
      fwait3();
      break;
    }
    itok = otok;
  } else if (numpointer < itok.npointr) {
    razr = r16;
    rettype = tk_word;
    if (am32 || (itok.flag & f_far)) {
      razr = r32;
      rettype = tk_dword;
    }
    rrettype = rettype;
    doreg_32(AX, razr);
    goto getfromax;
  } else
    unuseableinput();
}