forked from KolibriOS/kolibrios
278 lines
5.7 KiB
C++
278 lines
5.7 KiB
C++
#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();
|
|
|
|
}
|
|
|
|
|
|
|