Added source files C--.

git-svn-id: svn://kolibrios.org@6446 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-06-13 02:07:22 +00:00
parent 393851c2ba
commit 6bd5a354f5
38 changed files with 57942 additions and 0 deletions
--- a/programs/develop/cmm/pointer.cpp
+++ b/programs/develop/cmm/pointer.cpp
@@ -0,0 +1,277 @@
+#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;