Subversion Repositories Kolibri OS

#include "tok.h"

 ‘®§¤ ­¨¥ PE ä®à¬ â 

             0x04,0x00,0x0F,0x00,0xFF,0xFF,0x00,0x00,

             0x40,0x00,0x1A,0x00,0x00,0x00,0x00,0x00,

						 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

             0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

             0x21,0xB8,0x01,0x4C,0xCD,0x21,0x46,0x6F,

						 0x6F,0x6E,0x6C,0x79,0x21,0x0D,0x0A,0x24};

#define SIZESTUB2 12

              0x20,0x43,0x2D,0x2D};

int numexport=0;

unsigned long vsizeheader=0x1000; //¢¨àâã «ì­ë© à §¬¥à § £®«®¢ª .

int filingzerope;

struct listexport *lexport=NULL;

unsigned long  Align(unsigned long size,unsigned long val)

	if(val<2)return size;

	return (size+val)&(~val);

void PrintMem(void *mem)

unsigned char *m,*n;

	m=(unsigned char *)mem;

		n=m;

			printf("%02X ",*m);

		}

			char c=*n;

			if(c<0x20||c>0x7e)c='.';

		}

	}

DLLLIST *newdll=listdll;	//­ ç «® ᯨ᪠ DLL

idrec *rec=listapi->recapi;

	}

{

//᪮à४â¨à®¢ âì  ¤à¥á  ¨§ â ¡«¨æë ¯¥à¥¬¥é¥­¨©

	if(listdll!=NULL){	//¥áâì api-¯à®æ

		numdll=numapi=0;

			unsigned short numapiprocdll=0;	//ç¨á«® ¨á¯®«ì§ã¥¬ëå ¢ ¡¨¡«¨®â¥ª¥ ¯à®æ¥¤ãà

				idrec *rec=(listapi+i)->recapi;

					if((postbuf+j)->num==idnum){

							useapi=API_JMP;	//ä« £ ¢§¢¥¤¥¬

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

							numrel++;

					}

				if(useapi==API_JMP){	// ¯à®æ¥¤ãà  ¢ë§ë¢ « áì

					outptr+=2;

					AddReloc(CS);	//¤®¡ ¢¨âì ¥¥ ¢ â ¡« ¯¥à¥¬¥é¥­¨©

					outptr+=4;

					numapiprocdll++;	//ç¨á«® ¨á¯®«ì§®¢ ­ëå ¯à®æ¥¤ãà ¢ í⮩ DLL

				else if(useapi==API_FAST){

					numapiprocdll++;	//ç¨á«® ¨á¯®«ì§®¢ ­ëå ¯à®æ¥¤ãà ¢ í⮩ DLL

				rec->recrm=useapi;	//⨯ ¢ë§®¢  api; 0 - not used

					free(rec->newid);	//ᯨ᮪ ¯ à ¬¥â஢ ¡®«ìè¥ ­¥ ­ã¦¥­

				}

			newdll->num=numapiprocdll;	//¨á¯à ¢¨âì ç¨á«® ॠ«ì­® ¨á¯®«ì§ ¯à®æ¥¤ãà

				free(newdll->list);	//㤠«¨âì ᯨ᮪ ¯à®æ¥¤ãà.

			else numdll++;

			newdll=newdll->next;

		}

	outptrdata=outptr;

char *importblock=NULL;

char *exportblock=NULL;

              sizebss=0,sizeRes=0;

unsigned int posrel=0,sizeimport=0,startimportname=0,sizeexport=0,sizeres=0,

unsigned int sizehead;	//à §¬¥à § £®«®¢ª 

unsigned int relocnum=0;	//­®¬¥à ᥪ樨 ¯¥à¥¬¥é¥­¨©

unsigned int codenum=0;	//­®¬¥à ᥪ樨 ª®¤ 

	if(hout==NULL)return -1;

		vsize=Align(outptr+(wbss==FALSE?postsize:0),OBJECTALIGN);//¢¨àâã «ì­ë© à §¬¥à ᥪ樨 ª®¤ 

//	sizehead=((postsize&&wbss)?2:1)*sizeof(OBJECT_ENTRY);

	OBJECT_ENTRY *objentry=(OBJECT_ENTRY *)MALLOC(sizehead);//â ¢«¨æ  ®¡ê¥ªâ®¢

//ᥪæ¨ï .bss

		numobj++;     //㢥«¨ç¨¢ ¥¬ ç¨á«® ®¡ê¥ªâ®¢

		strcpy(objentry->name,".bss"); //¨¬ï ᥪ樨

		objentry->pOffset=objentry->psize=0;

		objentry->sectionRVA=vsizeheader;

	strcpy((objentry+codenum)->name,"CODE");	//¥¥ ¨¬ï

	(objentry+codenum)->psize=psize;          //à §¬¥à ᥪ樨 ¢ ä ©«¥

	(objentry+codenum)->sectionRVA=vsizeheader+sizebss;//¢¨àâã «ì­ë©  ¤à¥á ᥪ樨 ¢ ¯ ¬ïâ¨

	if(numapi!=0){	//¥áâì ¢ë§®¢ë api-¯à®æ¥¤ãà ᮧ¤ ᥪæ¨î ¨¬¯®àâ 

			importnum=numobj;

		}

			//ॠ«ì­ë© à §¬¥à ᥪ樨

		sizeimport=Align(startimportname,FILEALIGN);	//à §¬¥à ᥪ樨 ¢ ¯ ¬ïâ¨

		memset(importblock,0,sizeimport);	//®ç¨áâ¨âì ¥¥

		unsigned long sn,sn1;

		for(int i=0;;i++){

			if(newdll==NULL)break;	//§ ¢¥àè¨âì 横« ¥á«¨ ᯨ᮪ dll ¯ãáâ

			*(long *)&importblock[i*20+12]=startsec+startimportname;

			*(long *)&importblock[i*20+16]=startsec+sn+(shortimport==0?(numdll+numapi)*4:0);

			unsigned int lenn=strlen(newdll->name)+1;

				sizeimport+=FILEALIGN;	//㢥«¨ç¨âì à §¬¥à ᥪ樨

				memset(importblock+sizeimport-FILEALIGN,0,FILEALIGN);

			strcpy(&importblock[startimportname],newdll->name);

			for(int n=0,t=0;nnum;n++,t++){

				idrec *rec=(listapi+t)->recapi;

				newadr=ImageBase+startsec+sn1+(shortimport==0?(numdll+numapi)*4:0);

				else{

						if((postbuf+j)->num==(unsigned long)rec->recnumber&&(postbuf+j)->type==CALL_32I){

						}

				}

					*(long *)&importblock[sn1]=rec->recsib|0x80000000;

				}

					if((startimportname%2)==1)importblock[startimportname++]=0;

					if(shortimport==0)*(long *)&importblock[sn1+(numdll+numapi)*4]=startsec+startimportname;

					else strcpy((char *)string2,rec->recid);

					if((lenn+startimportname+4)>=sizeimport){

						importblock=(char *)REALLOC(importblock,sizeimport);

					}

					startimportname+=2;

					startimportname+=lenn;

				sn1+=4;

			if(newdll->next==NULL)break;

			sn1+=4;

		importblock[startimportname++]=0;

		if(!WinMonoBlock){	//¥á«¨ ­¥ ¥¤¨­ë© ¡«®ª

			(objentry+importnum)->vsize=sizeImport=Align(sizeimport,OBJECTALIGN);

			(objentry+importnum)->flags=0xC0000040;

		}

	}

	if(numexport!=0){

			exportnum=numobj;

		}

		startexportname=sizeof(EXPORT_TABLE)+numexport*10;//ॠ«ì­ë© à §¬¥à ᥪ樨

		exportblock=(char *)MALLOC(sizeexport);	//¯ ¬ïâì ¯®¤ ­¥¥

		*(long *)&exportblock[12]=startsece+startexportname;// ¤à¥á ¨¬¥­¨ ä ©« 

		*(long *)&exportblock[20]=numexport;	//Num of Functions

		*(long *)&exportblock[28]=startsece+sizeof(EXPORT_TABLE);//Address Table RVA

		strcpy((char *)string2,(char *)rawfilename);

		if(oname==NULL)oname=(char *)string2;

		sprintf((char *)string,"%s.%s",oname,outext);

		if((lenn+startexportname+1)>=sizeexport){

			exportblock=(char *)REALLOC(exportblock,sizeexport);

		}

		startexportname+=lenn;

			*(long *)&exportblock[sizeof(EXPORT_TABLE)+i*4]=(lexport+i)->address+vsizeheader+sizebss;	// ¤à¥á  ä㭪権

			*(short *)&exportblock[sizeof(EXPORT_TABLE)+numexport*8+i*2]=(short)i;	//®à¤¨­ «ë ¨¬¥­

			if((lenn+startexportname+1)>=sizeexport){

				exportblock=(char *)REALLOC(exportblock,sizeexport);

			}

			startexportname+=lenn;

		free(lexport);//®á¢®¡®¤¨¬ 㦥 ­¥ ­ã¦­ë© ¡«®ª

			strcpy((objentry+exportnum)->name,".edata"); //¨¬ï ᥪ樨

			(objentry+exportnum)->psize=sizeexport;

			(objentry+exportnum)->sectionRVA=startsece;

		else sizeexport=sizeExport=Align(startexportname,4);

		if(WinMonoBlock==FALSE){	//¥á«¨ ­¥ ¥¤¨­ë© ¡«®ª

			numobj++;                     //㢥«¨ç¨âì ç¨á«® ®¡ê¥ªâ®¢

		startsecres=vsizeheader+vsize+sizeImport+sizebss+sizeExport;//­ ç «® ᥪ樨 ¢ ¯ ¬ïâ¨

		if(MakeRes(startsecres,&resrel))free(resrel);

			strcpy((objentry+resnum)->name,".rsrc"); //¨¬ï ᥪ樨

			(objentry+resnum)->psize=sizeres=Align(curposbuf,FILEALIGN);

			(objentry+resnum)->sectionRVA=startsecres;

		else sizeres=Align(curposbuf,4);

	if((FixUpTable==TRUE&&numrel!=0)/*||numexport!=0*/){//ᮧ¤ âì ᥪæ¨î ¯¥à¥¬¥é¥­¨ï

			relocnum=numobj;

		}

			Align(sizeimport+sizeexport+outptr+(wbss==FALSE?postsize:0)+sizebss+sizeres,OBJECTALIGN);

		//䨧¨ç¥áª¨© à §¬¥à ᥪ樨 â ¡«¨æë ¯¥à¥¬¥é¥­¨©

		sizeReloc=Align(sizereloc,OBJECTALIGN);//¢¨àâã «ì­ë© à §¬¥à í⮩ ᥪ樨

		memset(relocblock,0,sizereloc);	//®ç¨áâ¨âì ¥¥

		unsigned int startrsec=0;	// ¤à¥á ­ ç «  ¡«®ª  ¢ ᥪ樨 ¯¥à¥¬¥é¥­¨ï

		posrel=8;

			unsigned char fr=FALSE;	//ä« £ í«¥¬¥­â 

				if(

						  (postbuf+i)->type==CALL_32I||

								&&

					*(short *)&relocblock[posrel]=(short)((postbuf+i)->loc%4096|0x3000);

					fr=TRUE;

			}

				posrel+=posrel%4;	//¢ëà ¢­¨¢ ¥¬

				*(long *)&relocblock[startrsec+4]=posrel-startrsec;	//à §¬¥à ªã᪠

				posrel+=8;

			startblc+=4096;

		posrel-=8;

			strcpy((objentry+relocnum)->name,".reloc");	//¨¬ï ᥪ樨

			(objentry+relocnum)->psize=sizereloc;        //à §¬¥à ᥪ樨 ¢ ä ©«¥

			(objentry+relocnum)->sectionRVA=startsecr;   //¢¨àâã «ì­ë©  ¤à¥á ᥪ樨 ¢ ¯ ¬ïâ¨

		else sizereloc=Align(posrel,4);

	if(WinMonoBlock){

		if(wbss==0){

				if((postbuf+i)->type==POST_VAR32)

			}

		psize+=outptr;

		filingzerope=(objentry+codenum)->psize=Align(psize,FILEALIGN);	//䨧¨ç¥áª¨© à §¬¥à ᥪ樨 ª®¤ 

		psize=(objentry+codenum)->psize;

		if(dllflag==FALSE)sizeReloc=0;

	PE_HEADER *peheader=(PE_HEADER *)MALLOC(sizeof(PE_HEADER));

	sizehead=Align(sizeof(PE_HEADER)+sizestub+(numobj+(numres!=0?0:1))*sizeof(OBJECT_ENTRY),FILEALIGN);

	peheader->sign='EP';

	peheader->sign='PE';

	peheader->cpu=0x14c;//(chip>=4?(chip>=5?0x14e:0x14D):0x14c);

	peheader->DLLflag=dllflag;

	peheader->NTheadsize=0xe0;

	peheader->Magic=0x10b;

	peheader->sizecode=psize;

	{

		temp=EntryPoint();

		else peheader->EntryRVA=vsizeheader+sizebss+temp;

	peheader->basecode=vsizeheader+sizebss;

	peheader->fileAlig=FILEALIGN;

	peheader->SubSysVer=4;

	peheader->headsize=sizehead;

			                vsize+	//à §¬¥à ª®¤ 

											sizeReloc+	//à §¬¥à â ¡«¨æë ¯¥à¥¬¥é¥­¨ï

											sizeRes+	//à §¬¥à â ¡«¨æë à¥áãàᮢ

	peheader->SubSys=(short)(2+wconsole);	//GUIWIN

	peheader->stackComSize=stacksize;

	peheader->heapComSize=0x1000;//postsize;	//????

	if(!usestub){

		peheader->pCOFF=0x40;

	(objentry+codenum)->pOffset=sizehead;

		if(!WinMonoBlock)(objentry+importnum)->pOffset=sizehead+psize;

		peheader->importSize=startimportname;

	if(numexport){

		peheader->exportRVA=startsece;

	}

		if(!WinMonoBlock)(objentry+resnum)->pOffset=sizehead+psize+sizeimport+sizeexport;

		peheader->resourSize=curposbuf;

	if(posrel){

		else if(dllflag)(objentry+relocnum)->pOffset=sizehead+psize;

		peheader->fixupSize=posrel;

	if(fwrite(peheader,sizeof(PE_HEADER),1,hout)!=1){

		ErrWrite();

		hout=NULL;

	}

	ChSize(sizehead);

	outputcodestart=ftell(hout);

	if(!WinMonoBlock){

		ChSize(runfilesize);

	if(numapi){

		free(importblock);

	if(numexport){

		free(exportblock);

	if(numres){

		free(resbuf);

	if(posrel){

		if(fwrite(relocblock,sizereloc,1,hout)!=1)goto errwrite;

	}

		if(dllflag)runfilesize+=sizereloc;

	free(peheader);

	fclose(hout);

	ImageBase+=vsizeheader+sizebss;	//¨§¬ à §¬¥à ¤«ï «¨á⨭£ 

}

void ChSize(long size)

char buf[256];

	memset(buf,0,256);

	while(delta>0){

		if(delta<256)ssave=delta;

		delta-=ssave;

}

int AlignCD(char segm,int val)	//¢ëà ¢­ïâì ¤ ­­ë¥ ¨«¨ ª®¤

unsigned int a;

	if(a==0)val=0;

	a=0;

		segm==DS?opd(aligner):op(0x90);

		a++;

	return a;

{

		sizestub=SIZESTUB2;

		if(fwrite(stub2,SIZESTUB2,1,hout)!=1){

			return;

	}

//¯®¤áç¨â âì ç¨á«® ᥪ権

		if(postsize)numrs++;

	}

		if(numapi)numrs++;	//¥áâì ¢ë§®¢ë api-¯à®æ¥¤ãà

		if((FixUpTable==TRUE&&posts)/*||numexport!=0*/)numrs++;	//ᮧ¤ âì ᥪæ¨î ¯¥à¥¬¥é¥­¨ï

	}

//à §¬¥à § £à㧮筮£® ®¡à § 

}

void ImportName(char *name)

FILE *infile;

	PE_HEADER pe;

};

unsigned long ulexport;	//ᥪæ¨ï á ¥ªá¯®à⮬

unsigned long posdll;	//¯®§¨æ¨ï ᥪ樨 ¢ ä ©«¥

unsigned long startname;	//­ ç «® ¨¬¥­¨

unsigned int i,j;

APIPROC *listapi;

		ErrOpenFile(name);

	}

	if(fread(&temp,4,1,infile)!=1){

		//fprintf(stderr,"Unable to read from file %s.\n",name);
		printf("Unable to read from file %s.\n",name);

		return;

	fseek(infile,0,SEEK_END);

		//fprintf(stderr,"Bad file %s.\n",name);
		printf("Bad file %s.\n",name);

		return;

	fseek(infile,temp,SEEK_SET);

	if(pe.sign!=

			'EP'

      'PE'

					){

		fclose(infile);

	}

		//fprintf(stderr,"No export directory on %s.\n",name);
		printf("No export directory on %s.\n",name);

		return;

	numobj=pe.numobj;

	while(numobj!=0){

		if((obj.sectionRVA+Align(obj.psize,temp))>ulexport)break;

	}

		//fprintf(stderr,"Bad object table in %s.\n",name);
		printf("Bad object table in %s.\n",name);

		return;

	if(fread(&numobj,4,1,infile)!=1)goto errread;

	if(fread(&nameadr,4,1,infile)!=1)goto errread;

	nameadr-=ulexport;

	fseek(infile,posdll+12,SEEK_SET);

	if(fread(&ordinalbase,4,1,infile)!=1)goto errread;

	j=0;

		if(fread(&string[j],1,1,infile)!=1)goto errread;

	newdll=FindDLL();

		fseek(infile,posdll+nameadr,SEEK_SET);

		fseek(infile,posdll+startname-ulexport,SEEK_SET);

		j=0;

		do{

			if(c=='@'){

				break;

			itok.name[j]=c;

		}while(j<=IDLENGTH&&c!=0);

				if(fread(&c,1,1,infile)!=1)goto errread;

			}while(isdigit(c));

		}

		searchvar(itok.name);

			fseek(infile,posdll+ordinallist,SEEK_SET);

			if(fread(&itok.sib,2,1,infile)!=1)goto errread;

			tok=tk_apiproc;

			itok.segm=NOT_DYNAMIC;

			if(newdll->num==0)listapi=(APIPROC *)MALLOC(sizeof(APIPROC));	//¯¥à¢ ï ¢ ᯨ᪥

			(listapi+newdll->num)->recapi=addtotree(itok.name);

		}

		ordinallist+=2;

	newdll->list=listapi;

}

void CreatStub(char *name)

	sizestub=SIZESTUB;

	sprintf(&stub[STRVERS],"%s%s",compilerstr,__DATE__);

stdstub:

errwrite:

			return;

	}

EXE_DOS_HEADER exeheader;  // header for EXE format

		if((stubin=fopen(name,"rb"))==NULL){

			goto stdstub;

		if(fread(&exeheader,sizeof(EXE_DOS_HEADER),1,stubin)!=1){

			ErrReadStub();

			goto stdstub;

		if(exeheader.sign!=0x5A4D){

			//fprintf(stderr,"File %s can not be stub file.\n",name);
			printf("File %s can not be stub file.\n",name);

			goto stdstub;

		fseek(stubin,0,SEEK_END);

		unsigned long temp;

			fseek(stubin,0x3c,SEEK_SET);

			if(temp

				if(fread(&temp,4,1,stubin)!=1)goto errread;

#ifdef _WC_

					case 'EN':

					case 'XL':

					case 'PE':

					case 'LE':

#endif

				}

			exeheader.ofsreloc+=(unsigned short)0x20;

		else exeheader.ofsreloc=0x40;

		sizestub=Align(sizestub+32,8);

		exeheader.headsize+=(unsigned short)2;

		*(unsigned long *)&stub[STRVERS+28]=sizestub;

		CopyFile(stubin,hout);

	}

#define MAXNUMSYMBOL 128

#define MAXNUMRELOC 256

char *ListName;

IMAGE_SYMBOL *isymbol;

int segtext,segbss;

IMAGE_RELOCATION *treloc;

struct NAMEID{

	int id;

{

		maxsizelistname+=MAXLISTNAME;

	}

	sizelistName+=size+1;

{

	if(ptr!=NULL){

		if(ptr->rectok==tk_apiproc){

				if((postbuf+j)->num==(unsigned long)ptr->recnumber&&((postbuf+j)->type==CALL_32I||(postbuf+j)->type==CALL_32)){

				}

		}

				((ptr->rectok==tk_proc||ptr->rectok==tk_interruptproc)&&ptr->recsegm>=NOT_DYNAMIC)||

nameext:

				maxnumsymbol+=MAXNUMSYMBOL;

			 	memset(isymbol+maxnumsymbol*sizeof(IMAGE_SYMBOL)-MAXSIZESYMBOL,0,MAXSIZESYMBOL);	//®ç¨áâ¨âì ¥¥

			if(ptr->rectok==tk_apiproc||ptr->rectok==tk_undefproc||

			i=strlen(ptr->recid);

				(isymbol+numsymbol)->N.Name.Short=0;

				AddName(ptr->recid,i);

			else strncpy((isymbol+numsymbol)->N.sname,ptr->recid,i);

				(isymbol+numsymbol)->Value=ptr->recnumber;

				else (isymbol+numsymbol)->SectionNumber=(short)((ptr->recpost==0?textnum:bssnum)+1);

			else{

				(NameId+numextern)->id=numsymbol;

				if(numextern>=maxnumnameid){

					NameId=(NAMEID *)REALLOC(NameId,maxnumnameid*sizeof(NAMEID));

			}

			numsymbol++;

		CreatSymbolTable(ptr->left);

}

void FreeCoffBuf()

	free(ListName);

	free(NameId);

	fclose(hout);

}

void IncReloc()

	numreloc++;

		maxnumreloc+=MAXNUMRELOC;

	}

{

 		(treloc+numreloc)->VirtualAddress=(postbuf+j)->loc-startptr;

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

				case POST_VAR32:

					(treloc+numreloc)->SymbolTableIndex=segbss;

				case FIX_VAR:

				case FIX_CODE:

					(treloc+numreloc)->Type=IMAGE_REL_I386_DIR32;

					break;

			IncReloc();

		else{

				if((NameId+i)->num==(postbuf+j)->num){

					else (treloc+numreloc)->Type=IMAGE_REL_I386_REL32;

					IncReloc();

				}

		}

	}

{

unsigned long sizehead,curobj,resnum,numresrel,segres,lastoffset,headernum;

int i;

char *codesecname;

	chead.cpu=0x14c;

	chead.date_time=0;

	/*if(header)*/numrs=2;

	if(wbss){

		else wbss=FALSE;

	if(numres)numrs++;	//à¥áãàáë

	sizehead=numrs*sizeof(OBJECT_ENTRY);

	memset(objentry,0,sizehead);//®ç¨áâ¨âì â ¡«¨æã ®¡ê¥ªâ®¢

	lastoffset=sizehead+sizeof(COFF_HEADER);

		strcpy((objentry+curobj)->name,".version");

		(objentry+curobj)->psize=strlen(&stub[STRVERS])+1;

		(objentry+curobj)->flags=0x100A00;

		lastoffset+=(objentry+curobj)->psize;

//	}

	if(splitdata==FALSE)codesecname=".codedat";

	(objentry+curobj)->psize=outptr;

	(objentry+curobj)->flags=0xE0300060;

	textnum=curobj;

	if(wbss){

		(objentry+curobj)->psize=postsize;

		bssnum=curobj;

	}

		strcpy((objentry+curobj)->name,".rsrc$01");

		(objentry+curobj)->psize=curposbuf;

		resnum=curobj;

	sizelistName=0;numsymbol=0;

	isymbol=(IMAGE_SYMBOL *)MALLOC(MAXSIZESYMBOL);

	maxsizelistname=MAXLISTNAME;

	NameId=(NAMEID *)MALLOC(MAXSIZENAMEID);

	maxnumreloc=MAXNUMRELOC;

	strcpy(isymbol->N.sname,"@comp.id");

	isymbol->SectionNumber=-1;

	strcpy((isymbol+1)->N.sname,".file");

	(isymbol+1)->SectionNumber=-2;

	i=(strlen(startfileinfo->filename)-1)/sizeof(IMAGE_SYMBOL)+1;

	strcpy((isymbol+2)->N.sname,startfileinfo->filename);

	segtext=numsymbol;

	(isymbol+numsymbol)->SectionNumber=textnum+1;

	(isymbol+numsymbol)->NumberOfAuxSymbols=1;

	(isymbol+numsymbol)->N.Name.Short=outptr;

	if(wbss){

		strcpy((isymbol+numsymbol)->N.sname,".bss");

		(isymbol+numsymbol)->StorageClass=3;

		numsymbol++;

		numsymbol++;

		(isymbol+numsymbol)->SectionNumber=bssnum+1;

	}

	(isymbol+numsymbol)->SectionNumber=-1;

	numsymbol++;

		segres=numsymbol;

		(isymbol+numsymbol)->StorageClass=3;

		numsymbol++;

//	if(header){

		(isymbol+numsymbol)->SectionNumber=headernum+1;

		numsymbol++;

	CreatSymbolTable(treestart);

	(isymbol+segtext+1)->N.Name.Long=numreloc;

	if(numreloc){

		lastoffset+=sizeof(IMAGE_RELOCATION)*numreloc;

	if(numres){

			(objentry+resnum)->PointerToRelocations=lastoffset;

		}

	chead.COFFsize=numsymbol;

		chead.pCOFF=lastoffset;

	if(fwrite(&chead,sizeof(COFF_HEADER),1,hout)!=1){

		ErrWrite();

		if(resrel)free(resrel);

		return(-1);

	if(fwrite(objentry,sizehead,1,hout)!=1)goto errwrite;

		if(fwrite(&stub[STRVERS],(objentry+headernum)->psize,1,hout)!=1)goto errwrite;

	if(fwrite(output,outptr,1,hout)!=1)goto errwrite;	//¡«®ª ª®¤ 

		if(fwrite(treloc,numreloc*sizeof(IMAGE_RELOCATION),1,hout)!=1)goto errwrite;

	if(numres){

			IMAGE_RELOCATION *rrel;

			for(i=0;i

				(rrel+i)->Type=IMAGE_REL_I386_DIR32NB;

			}

			free(rrel);

	}

		if(fwrite(isymbol,numsymbol*sizeof(IMAGE_SYMBOL),1,hout)!=1)goto errwrite;

			sizelistName+=4;

			if(fwrite(ListName,sizelistName-4,1,hout)!=1)goto errwrite;

		else{

			sizelistName+=4;

	}

	free(objentry);

	FreeCoffBuf();

>

>

>

>

>

>

>

>