Subversion Repositories Kolibri OS

#include "tok.h"

	int typefind;

};

enum{

	s_code,

	s_bss

	int adr;

	int dbg;

}*listnamesymbol;

char *curobjname;

int numobj=0,numname;

unsigned int adr_end;

int searchtree2(idrec *fptr,ITOK *itok4,int *tok4,unsigned char *string4);

int GetSegm(int seg)

OBJECT_ENTRY *obj;

		seg--;

		seg=obj->vsize;

	return seg;

{

		obj=(OBJECT_ENTRY *)(input+(sizeof(COFF_HEADER)+sizeof(OBJECT_ENTRY)*seg));

}

void AddNameObj(char *name,int typefind,int type)

int len;

	(listobj+numobj)->name=BackString(name);

	(listobj+numobj)->type=type;

}

int hold;

		curobjname=(listobj+i)->name;

		hold=loadfile(curobjname,(listobj+i)->typefind);

			unableopenfile(curobjname);

		}

		free(input);

}

int GetAlighSize(long flag)

int align=0;

	if(i)align=1<<(i-1);

{

char c;

	i1=i2=0;

	if(c=='?'){

		c=name[i1];

			i1=2;

		}

	else if(c=='_'){

			i1=7;

			i1=2;

		}

	while(c!=0){

		name[i2]=c;

		i2++;

		if(c=='@'||c=='$')break;

	name[i2]=0;

{

	(postbuf+posts)->num=num;

	(postbuf+posts)->loc=loc;

void ScanSection(int numobj)

int poutptr,poutptrdata,ppostsize,align;

long flag;

	poutptrdata=outptrdata;

	for(int i=0;i

		flag=obj->flags;

		obj->vsize=-1;

			obj->vsize=s_code;

			poutptr+=obj->psize;

		}

			if((flag&IMAGE_SCN_MEM_READ)&&(flag&IMAGE_SCN_MEM_WRITE)){

					obj->vsize=s_data;

					poutptrdata+=obj->psize;

				}

					obj->vsize=s_bss;

			}

	}

{

int i,j,minname;

unsigned int ooutptr,ooutptrdata;

	ooutptrdata=outptrdata;

		if((listnamesymbol+i)->dbg==0){

			for(j=i+1;j

				else if((listnamesymbol+j)->seg==oseg){

					if(minofs>=(listnamesymbol+j)->adr&&(listnamesymbol+j)->dbg==0){

							(listnamesymbol+minname)->dbg=1;

						minofs=(listnamesymbol+j)->adr;

						oseg=(listnamesymbol+j)->seg;

				}

			if(minname!=i)i--;

			if(oseg==s_code){

					idrec *ptr;

					if(ptr->rectok==tk_undefproc||ptr->rectok==tk_proc||ptr->rectok==tk_interruptproc)goto dproc;

					if(splitdata==FALSE)outptr=outptrdata;

				}

dproc:

					AddCodeNullLine((listnamesymbol+minname)->name);

			}

				outptrdata=(listnamesymbol+minname)->adr;//12.08.04 01:19 +ooutptrdata;

				AddDataNullLine(3,(listnamesymbol+minname)->name);

			(listnamesymbol+minname)->dbg=1;

	}

	outptrdata=ooutptrdata;

{

IMAGE_SYMBOL *tsym;

idrec *rec;

	ooutptrdata=outptrdata;

	numname=head->COFFsize;

	listnamesymbol=(LISTNAMESYMBOL *)MALLOC(sizeof(LISTNAMESYMBOL)*numname);

		tsym=(IMAGE_SYMBOL *)(input+head->pCOFF+i*sizeof(IMAGE_SYMBOL));

		if(tsym->SectionNumber>=0){

			if(tsym->N.Name.Short==0){

			}

				strncpy((char *)string,(char *)tsym->N.sname,8);

			}

			ConvertName((char *)string);

			(listnamesymbol+j)->dbg=0;

			if(seg==s_data){

				count=FindOff(string,DS);

			else if(seg==s_bss){

				count=FindOff(string,VARPOST);

			else if(seg==s_code){

				count=FindOff(string,CS);

			}

				rec->count+=count;

					tok=tk_proc;

//					printf("%08X %08X %s\n",(listnamesymbol+j)->adr,ooutptr,itok.name);

				}

//				if(tok==tk_proc||(tok>=tk_charvar&&tok<=tk_floatvar))

			}

				if(seg==s_extern/*&&tsym->Type==32*/){	//¢­¥è­¨© ®¡ê¥ªâ «î¡®£® ⨯ 

//					printf("undef proc \"%s\"\n",itok.name);

					itok.flag=(unsigned char)(tok==tk_ID?tp_fastcall:(comfile==file_w32?tp_stdcall:tp_pascal));

					itok.number=secondcallnum;

					itok.rm=tk_void;

					rec=(listnamesymbol+j)->rec=addtotree(itok.name);

					secondcallnum++;

				else{

					if(/*tsym->Type==32*/tsym->StorageClass!=3&&seg==s_code){

						itok.number=outptr;

						itok.rm=tk_void;

						strcpy(itok.name,(char *)string);

						itok.flag=(unsigned char)(tok==tk_ID?tp_fastcall:(comfile==file_w32?tp_stdcall:tp_pascal));

						rec->count=count;

					else{

//						printf("undef \"%s\"\n",string);

//							puts("323");

//			printf("Type=%d Class=%d seg=%d %s\n",tsym->Type,tsym->StorageClass,seg,string);

						}

				}

//			printf("Type=%d Class=%d %s\n",tsym->Type,tsym->StorageClass,string);

		}

	}

		listnamesymbol=(LISTNAMESYMBOL *)REALLOC(listnamesymbol,sizeof(LISTNAMESYMBOL)*j);

	outptr=ooutptr;

	postsize=opostsize;

	return j;

{

int numobj,align,size,i,j,numrel;

	head=(COFF_HEADER *)input;

		sprintf((char *)string,"file %s is not supported format",curobjname);

		return;

	if(comfile!=file_w32){

		return;

	linenumber=0;

	ScanSection(numobj);

	for(i=0;i

		align=GetAlighSize(obj->flags);

		adr_end=outptr+size;

		trel=(IMAGE_RELOCATION *)(input+obj->PointerToRelocations);

//		printf("type=%d section=%d\n",(trel+j)->Type,obj->vsize);

			case s_code:

				adr_end=Align(outptr+size,4);

					int adr;

					int ii;

						if((listnamesymbol+ii)->idx==(trel+j)->SymbolTableIndex)break;

					lns=(LISTNAMESYMBOL *)(listnamesymbol+ii);

//					printf("type=%d seg=%d tok=%d num=%d %s\n",(trel+j)->Type,lns->seg,rec->rectok,rec->recnumber,lns->name);

						case IMAGE_REL_I386_DIR32:

							switch(lns->seg){

									adr=(trel+j)->VirtualAddress+outptr;

									break;

									adr=(trel+j)->VirtualAddress+outptrdata;

									break;

									adr=(trel+j)->VirtualAddress+outptr;

									*(long *)&buf[(trel+j)->VirtualAddress]+=postsize;

								default:

										adr=(trel+j)->VirtualAddress+outptr;

											AddPost(adr,CALL_32I,rec->recnumber);

										else if(rec->rectok==tk_undefproc){

										}

											AddPost(adr,FIX_CODE_ADD,adr_end);

											if(dbg&2){

												outptr=adr_end;

												outptr=ooutptr;

											*(long *)&output[adr_end]=rec->recnumber;

										}

									}

							}

						case IMAGE_REL_I386_REL32:

							if(rec!=NULL){

									AddPost(adr,CALL_32,rec->recnumber);

								else{

								}

							else{

							}

							break;

//							puts("432");

							break;

				}

					sprintf((char *)string,"code from %s",curobjname);

				}*/

				outptr=adr_end;

			case s_data:

					LISTNAMESYMBOL *lns;

					for(ii=0;ii

					}

					idrec *rec=lns->rec;

						case IMAGE_REL_I386_DIR32:

							switch(lns->seg){

									adr=(trel+j)->VirtualAddress+outptr;

									break;

									adr=(trel+j)->VirtualAddress+outptrdata;

									break;

									adr=(trel+j)->VirtualAddress+outptr;

									*(long *)&buf[(trel+j)->VirtualAddress]+=postsize;

								default:

									preerror(meserr);

										adr=(trel+j)->VirtualAddress+outptr;

											AddPost(adr,CALL_32I,rec->recnumber);

										else if(rec->rectok==tk_undefproc){

										}

									}*/

							}

						case IMAGE_REL_I386_REL32:

							preerror(meserr);

							if(rec!=NULL){

									AddPost(adr,CALL_32,rec->recnumber);

								else{

								}

							else{

							}

							break;

				}

				break;

				if(align)postsize=Align(postsize,align);

				break;

	}

>

>

>

>

>

>

>

>