Subversion Repositories Kolibri OS

#include "tok.h"

void  obj_outLEDATA(unsigned int segm,unsigned int offset,unsigned int recordlength,

int maxnumextname=MAXNUMEXTNAME;

int postseg,stackseg;

	for(unsigned int i=0;i

	}

}

int MakeObj()

	hout=CreateOutPut("obj","wb");

	obj_outrecord(0x80,i+1,&string2[0]);// output the LNAMES

	i=strlen((char *)&string2[3]);

	string2[2]=(unsigned char)i;

	for(count=0;count

		strcpy((char *)&string2[7],(startfileinfo+count)->filename);

		*(short *)&string2[0]=0xE940;

		obj_outrecord(0x88,i+7,&string2[0]);// output the LNAMES

	*(short *)&string2[0]=0xE940;

	if(!am32){

		string2[2]=1;

		obj_outrecord(0x88,4,&string2[0]);

	else{

		obj_outrecord(0x88,2,&string2[0]);

	obj_outrecord(0x96,39,(unsigned char *)"\000\005_TEXT\004CODE\004_BSS\003BSS\006DGROUP\005_DATA\004DATA");

	if(!am32){

		*(short *)&string2[1]=(short)outptr;//count;// Set the length of the segment of DATA or CODE

		*(short *)&string2[4]=0x0103;	//ª« áá CODE Overlay NONE 1

		i=2;

		if(comfile==file_exe&&modelmem==SMALL){

			*(short *)&string2[1]=outptrdata;// Set the length of the segment DATA

			*(short *)&string2[4]=0x0108;	//ª« áá DATA Overlay NONE

			i++;

		string2[0]=(unsigned char)0x48;

		string2[3]=0x04;	//¨¬ï ᥣ¬¥­â  _BSS

		obj_outrecord(0x98,6,string2);

			obj_outrecord(0x96,6,(unsigned char *)"\005STACK");

			*(short *)&string2[1]=(short)stacksize;// Set the length of the segment STACK

			*(short *)&string2[4]=0x0109;	//ª« áá STACK Overlay NONE

			stackseg=i;

		string2[0]=6;	//¨¬ï DGROUP

			*(short *)&string2[1]=0x2FF;

			*(short *)&string2[5]=0x4ff;//stackseg*256+255;//0x4FF;

		}

			*(short *)&string2[1]=0x1FF;

			*(short *)&string2[3]=0x2ff;//postseg*256+255;//0x3FF;

		}

	}

		string2[0]=(unsigned char)0xA9;

		string2[5]=0x02;	//¨¬ï ᥣ¬¥­â  _TEXT

		obj_outrecord(0x99,8,string2);

/*

		*(long *)&string2[1]=0;// Set the length of the segment DATA

		*(short *)&string2[6]=0x0108;	//ª« áá DATA Overlay NONE

		i++;*/

		postseg=i;

		*(long *)&string2[1]=(long)postsize;// Set the length of the segment BSS

		*(short *)&string2[6]=0x0105;	//ª« áá BSS Overlay NONE

		i++;

		obj_outrecord(0x96,11,(unsigned char *)"\005STACK\004FLAT");//9,10

		if(comfile!=file_w32){

			*(short *)&string2[6]=0x0109;	//ª« áá STACK Overlay NONE

			stackseg=i;

		string2[0]=10;

		obj_outrecord(0x9A,1,string2);	//GRPDEF Group: FLAT

		i=1;

//		i+=2;

		i+=2;

			*(short *)&string2[i]=stackseg*256+255;//0x4FF

	}

	while(externnum>maxnumextname)maxnumextname+=MAXNUMEXTNAME;

// output the PUBDEF records for each exteral procedures (all procedures)

	if(lenextstr!=0)obj_outrecord(0x8c,lenextstr,&string[0]);

	i=0;

	while(i

		sizeblock=1024;

					(postbuf+j)->loc>=(i+startptr)&&(postbuf+j)->loc<(i+sizeblock+startptr)){

					sizeblock=(postbuf+j)->loc-i-startptr;//¨§¬¥­¨âì à §¬¥à ¡«®ª 

				}

		}

		obj_outLEDATA(1,i+startptr,sizeblock,data+i);

		for(j=0;j

				int hold=(postbuf+j)->loc-i-startptr;

					bufobj[ofsfix++]=(unsigned char)((am32==FALSE?0xC4:0xE4)|(hold/256));

					bufobj[ofsfix++]=0x14;

					switch((postbuf+j)->type){

						case POST_VAR32:

							break;

						case FIX_VAR32:

							break;

						case FIX_CODE32:

							break;

				}

				else if((postbuf+j)->type==CALL_EXT){

					if(numext!=0){

						bufobj[ofsfix++]=(unsigned char)(hold%256);

						bufobj[ofsfix++]=(unsigned char)numext;

				}

					int numext=findextname((postbuf+j)->num);

						bufobj[ofsfix++]=(unsigned char)((am32==FALSE?0xC4:0xE4)|(hold/256));

						bufobj[ofsfix++]=0x16;

						bufobj[ofsfix++]=(unsigned char)numext;

				}

		}

		i+=sizeblock;

	free(bufobj);

		i=0;

			if((i+1024)>outptrdata)obj_outLEDATA(2,i,outptrdata-i,outputdata+i);

			i+=1024;

	}

// output end of OBJ notifier

		i=1;

	else{

		if(count<65536){

			i=6;

		else{

			i=8;

	}

	free(numextname);

	fclose(hout);

int i;

	buf[3]=(unsigned char)segm;

		*(short *)&buf[1]=(short)(recordlength+6);

		*(long *)&buf[4]=(long)offset;

	}

		*(short *)&buf[1]=(short)(recordlength+4);

		*(short *)&buf[4]=(short)offset;

	}

	for(i--;i>=0;i--)checksum+=buf[i];

	fwrite(&checksum,1,1,hout);

// Outputs an OBJ record.

int checksum;

	recordlength++;

	fwrite(&recordtype,1,1,hout);

	checksum+=(recordlength&255);

	recordlength--;

	fwrite(data,recordlength,1,hout);

	fwrite(&checksum,1,1,hout);

{

	if(ptr!=NULL){

		if(ptr->rectok==tk_apiproc){

			for(unsigned int j=0;j

					i++;

					externnum++;

						maxnumextname+=MAXNUMEXTNAME;

					}

			}

			goto endp;

		if(externnum!=0&&ptr->rectok==tk_undefproc&&(ptr->flag&f_extern)!=0){

			numextname[numextern++]=ptr->recnumber;

			if((lenextstr+i+2)>=STRLEN){

				lenextstr=0;

			string[lenextstr++]=(unsigned char)i;

			lenextstr+=i+1;

		else{

				string2[0]=(unsigned char)(am32==0?0:1);

			}

				if((ptr->flag&f_extern))goto nameext;

					string2[0]=1;

				}

					string2[0]=1;

				}

					string2[0]=(unsigned char)(ptr->recpost==0?0:1);

				}

			else goto endp;

			string2[2]=(unsigned char)i;

				*(short *)&string2[i+3]=(short)ptr->recnumber;

				obj_outrecord(0x90,i+6,&string2[0]);

			else{

				string2[i+7]=0x00;

			}

endp:

	}

>

>

>

>

>

>

>

>