kolibrios/programs/develop/cmm/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();

}