mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-15 03:12:35 +03:00
1411 lines
22 KiB
C++
1411 lines
22 KiB
C++
#include "tok.h"
|
|
|
|
|
|
|
|
#define _DEBUG_
|
|
|
|
|
|
|
|
#define MAXDBGS 1000
|
|
|
|
#define MAXNUMSYM 500
|
|
|
|
#define MAXLSTSTR 128 //ìàêñèìàëüíûé ðàçìåð ñòðîêè ëèñòèíãà
|
|
|
|
|
|
|
|
void AddNameToTable(char *name);
|
|
|
|
void AddSymbolList(struct idrec *ptr);
|
|
|
|
int CreateDosDebug();
|
|
|
|
int CreateW32Debug();
|
|
|
|
void GeneratLst();
|
|
|
|
|
|
|
|
unsigned int *dbgloc=NULL; //àäðåññ òî÷êè
|
|
|
|
unsigned int *dbgnum; //íîìåð ñòðîêè
|
|
|
|
unsigned short *dbgmod; //íîìåð ôàéëà
|
|
|
|
char **lststring; //ñòðîêè èñõîäíîãî òåêñòà
|
|
|
|
unsigned char *lstflag=NULL; //ôëàãè óïðàâëåíèÿ ëèñòèíãîì
|
|
|
|
unsigned int *lstend;
|
|
|
|
|
|
|
|
unsigned int pdbg=0; /* number of post entrys */
|
|
|
|
unsigned int pdbgmax=MAXDBGS; /* max number of post entrys */
|
|
|
|
static unsigned int oline=0,omodule=0xFFFFFFFF;
|
|
|
|
unsigned int ooutptr=0xffffffff;
|
|
|
|
char lsttypedata=0; //òèï äàííûõ äëÿ ëèñòèíãà, ïî óìîë÷àíèþ êîä
|
|
|
|
unsigned int outputcodestart=0;
|
|
|
|
|
|
|
|
struct D16START{
|
|
|
|
unsigned long sign; //0 Signify & Version
|
|
|
|
unsigned long pol_size; //4 Name Pool Size (in bytes)
|
|
|
|
unsigned long numname; //8 Number of Names
|
|
|
|
unsigned long numtentr; //12 Number of Type Entries
|
|
|
|
unsigned long nummentr; //16 Number of Member Entries
|
|
|
|
unsigned long numsymbl; //20 Number of Symbols
|
|
|
|
unsigned long numgsymb; //24 Number of Global Symbols
|
|
|
|
unsigned long numsours; //28 Number of Source Modules
|
|
|
|
unsigned long numlsumb; //32 Number of Local Symbols
|
|
|
|
unsigned long numscop; //36 Number of Scopes
|
|
|
|
unsigned long numline; //40 Number of Line Number Entries
|
|
|
|
unsigned long numincl; //44 Number of Include Files
|
|
|
|
unsigned long numseg; //48 Number of Segments
|
|
|
|
unsigned long numcorrel; //52 Number of Correlation Entries
|
|
|
|
unsigned long imagesize; //56 Image Size
|
|
|
|
unsigned short data[2]; //60 Basic RTL String Segment Offset & Data Count
|
|
|
|
unsigned long casesensiv;//64 Case Sensivitive Link
|
|
|
|
unsigned long ucnovn;
|
|
|
|
//òîëüêî äëÿ 128-áàéòîâîãî çàãîëîâêà
|
|
|
|
unsigned long ucnovn1[6];
|
|
|
|
unsigned long sizeblock; //ðàçìåð ìåæäó íà÷àëîì èìåí è êîíöîì çàãîëîâêà
|
|
|
|
unsigned long ucnovn2[2];
|
|
|
|
unsigned short fdebug; //Debug Flags
|
|
|
|
unsigned long reftsize; //Reference Information Table Size (in bytes)
|
|
|
|
unsigned long numnamesp; //Number of Namespace Entries
|
|
|
|
unsigned long numunamesp; //Number of Namespace Using Entries
|
|
|
|
unsigned long ucnovn3;
|
|
|
|
unsigned short ucnovn4;
|
|
|
|
////////////////////////////////
|
|
|
|
};
|
|
|
|
|
|
|
|
struct MODULE{
|
|
|
|
unsigned long name;
|
|
|
|
unsigned char language;
|
|
|
|
unsigned char memmodel;
|
|
|
|
unsigned long symindex;
|
|
|
|
unsigned short symcount;
|
|
|
|
unsigned short sourindex;
|
|
|
|
unsigned short sourcount;
|
|
|
|
unsigned short corindex;
|
|
|
|
unsigned short corcount;
|
|
|
|
};
|
|
|
|
|
|
|
|
typedef struct _SFT_
|
|
|
|
{
|
|
|
|
unsigned long idx;
|
|
|
|
struct ftime time;
|
|
|
|
}SFT;
|
|
|
|
|
|
|
|
typedef struct _LT_
|
|
|
|
{
|
|
|
|
unsigned short line;
|
|
|
|
unsigned short ofs;
|
|
|
|
}LT;
|
|
|
|
|
|
|
|
typedef struct _CT_
|
|
|
|
{
|
|
|
|
unsigned short segidx;
|
|
|
|
unsigned short filidx;
|
|
|
|
unsigned long beg;
|
|
|
|
unsigned short count;
|
|
|
|
}CT;
|
|
|
|
|
|
|
|
static struct _SMB_
|
|
|
|
{
|
|
|
|
unsigned long idxname;
|
|
|
|
unsigned long type;
|
|
|
|
unsigned short ofs;
|
|
|
|
unsigned short seg;
|
|
|
|
unsigned short clas;
|
|
|
|
}*symbols;
|
|
|
|
|
|
|
|
static struct SEGMENT{
|
|
|
|
unsigned short idx;
|
|
|
|
unsigned short segm;
|
|
|
|
unsigned short ofs;
|
|
|
|
unsigned short size;
|
|
|
|
unsigned short scopei;
|
|
|
|
unsigned short scopec;
|
|
|
|
unsigned short correli;
|
|
|
|
unsigned short correlc;
|
|
|
|
}*segment;
|
|
|
|
|
|
|
|
unsigned char dbg=FALSE,dbgact;
|
|
|
|
static short numsymbols=0;
|
|
|
|
static int sizetabsym=MAXNUMSYM;
|
|
|
|
static unsigned short numcorrel;
|
|
|
|
static unsigned char *bufname;
|
|
|
|
static int lastofspul=0;
|
|
|
|
static int segcode;
|
|
|
|
|
|
|
|
static struct _COR_INFO_
|
|
|
|
{
|
|
|
|
unsigned int ofs; //íà÷àëî áëîêà
|
|
|
|
unsigned int end; //êîíåö áëîêà
|
|
|
|
unsigned int startline; //íîìåð ïåðâîé ñòðîêè èíôîðìàöèè
|
|
|
|
unsigned short count; //÷èñëî ñòðîê
|
|
|
|
unsigned short file; //ôàéë
|
|
|
|
}*corinfo=NULL;
|
|
|
|
|
|
|
|
void InitDbg()
|
|
|
|
{
|
|
|
|
if(fobj)dbg&=0xFE;
|
|
|
|
if(dbg&&(dbgloc==NULL)){
|
|
|
|
dbgloc=(unsigned int *)MALLOC(MAXDBGS*sizeof(unsigned int));
|
|
|
|
dbgnum=(unsigned int *)MALLOC(MAXDBGS*sizeof(unsigned int));
|
|
|
|
dbgmod=(unsigned short *)MALLOC(MAXDBGS*sizeof(unsigned short));
|
|
|
|
dbgact=1; //çàïðåòèòü ñáîð èíôîðìàöèè
|
|
|
|
}
|
|
|
|
if((dbg&2)&&lstflag==NULL){
|
|
|
|
lststring=(char **)MALLOC(MAXDBGS*sizeof(char *));
|
|
|
|
lstflag=(unsigned char *)MALLOC(MAXDBGS*sizeof(char));
|
|
|
|
lstend=(unsigned int *)MALLOC(MAXDBGS*sizeof(unsigned int));
|
|
|
|
memset((char *)lstflag,-1,MAXDBGS*sizeof(char));
|
|
|
|
memset((unsigned int *)lstend,0,MAXDBGS*sizeof(unsigned int));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void AddDataLine(char ssize/*,char typev*/)
|
|
|
|
{
|
|
|
|
/* if(typev==pointer||typev==farpointer)ssize=(typev==pointer?(char)2:(char)4);
|
|
|
|
else*/ //if(tok==tk_string)ssize=(char)3;
|
|
|
|
lsttypedata=(unsigned char)(ssize<<1);
|
|
|
|
AddLine();
|
|
|
|
lsttypedata=0;
|
|
|
|
}
|
|
|
|
|
|
|
|
void AddDataNullLine(char ssize,char *name)
|
|
|
|
{
|
|
|
|
oline--;
|
|
|
|
|
|
|
|
lsttypedata=(unsigned char)(ssize<<1);
|
|
|
|
AddLine(TRUE);
|
|
|
|
lsttypedata=0;
|
|
|
|
dbgnum[pdbg-1]=0; //î÷èñòèòü íîìåð ñòðîêè
|
|
|
|
//new !!!
|
|
|
|
if(name!=NULL)lststring[pdbg-1]=BackString(name);
|
|
|
|
}
|
|
|
|
|
|
|
|
void AddCodeNullLine(char *name)
|
|
|
|
{
|
|
|
|
oline--;
|
|
|
|
AddLine(TRUE);
|
|
|
|
dbgnum[pdbg-1]=0; //î÷èñòèòü íîìåð ñòðîêè
|
|
|
|
if(name!=NULL)lststring[pdbg-1]=BackString(name);
|
|
|
|
oline--;
|
|
|
|
}
|
|
|
|
|
|
|
|
void AddEndLine()
|
|
|
|
{
|
|
|
|
if(pdbg/*&&lstend[pdbg-1]==0*/)lstend[pdbg-1]=outptr;
|
|
|
|
}
|
|
|
|
|
|
|
|
void AddLine(int SkipLineInfo)
|
|
|
|
{
|
|
|
|
if(/*ooutptr!=outptr&&*/dbgact==0&&(oline!=linenumber||omodule!=currentfileinfo)){
|
|
|
|
while(ooutptr>outptr&&pdbg!=0&&ooutptr!=0xffffffff)KillLastLine();
|
|
|
|
if(pdbg==pdbgmax){
|
|
|
|
pdbgmax+=MAXDBGS;
|
|
|
|
dbgloc=(unsigned int *) REALLOC(dbgloc,pdbgmax*sizeof(unsigned int));
|
|
|
|
dbgnum=(unsigned int *) REALLOC(dbgnum,pdbgmax*sizeof(unsigned int));
|
|
|
|
dbgmod=(unsigned short *)REALLOC(dbgmod,pdbgmax*sizeof(unsigned short));
|
|
|
|
if(lstflag){
|
|
|
|
lststring=(char **)REALLOC(lststring,pdbgmax*sizeof(char *));
|
|
|
|
lstflag=(unsigned char *)REALLOC(lstflag,pdbgmax*sizeof(char));
|
|
|
|
lstend=(unsigned int *)REALLOC(lstend,pdbgmax*sizeof(unsigned int));
|
|
|
|
memset((char *)lstflag+(pdbgmax-MAXDBGS),-1,MAXDBGS*sizeof(char));
|
|
|
|
memset((unsigned int *)lstend+(pdbgmax-MAXDBGS),0,MAXDBGS*sizeof(unsigned int));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
dbgloc[pdbg]=ooutptr=outptr;
|
|
|
|
dbgnum[pdbg]=oline=linenumber;
|
|
|
|
dbgmod[pdbg]=(unsigned short)currentfileinfo;
|
|
|
|
omodule=currentfileinfo;
|
|
|
|
if(dbg&2){
|
|
|
|
if(SkipLineInfo)lststring[pdbg]=NULL;
|
|
|
|
else{
|
|
|
|
char *ofs=startline;
|
|
|
|
char c;
|
|
|
|
int sizestring=0;
|
|
|
|
char buf[MAXLSTSTR];
|
|
|
|
for(;sizestring<(MAXLSTSTR-1);sizestring++){
|
|
|
|
c=*ofs;
|
|
|
|
ofs=ofs+1;
|
|
|
|
if(c==13||ofs==endinput)break;
|
|
|
|
buf[sizestring]=c;
|
|
|
|
}
|
|
|
|
buf[sizestring]=0;
|
|
|
|
strbtrim(buf);
|
|
|
|
if((sizestring=strlen(buf))==0)lststring[pdbg]=NULL;
|
|
|
|
else{
|
|
|
|
lststring[pdbg]=(char *)MALLOC(sizestring+1);
|
|
|
|
strcpy(lststring[pdbg],buf);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
lstflag[pdbg]=(unsigned char)(am32|lsttypedata);
|
|
|
|
AddEndLine();
|
|
|
|
// printf("%s(%d) outptr=%d\n",(startfileinfo+currentfileinfo)->filename,linenumber,outptr);
|
|
|
|
}
|
|
|
|
pdbg++;
|
|
|
|
(startfileinfo+currentfileinfo)->numdline++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void KillLastLine()
|
|
|
|
{
|
|
|
|
// printf("dbgact=%d pdbg=%d outptr=%08X ooutptr=%08X\n",dbgact,pdbg,outptr,ooutptr);
|
|
|
|
if(outptr==0&&ooutptr==0x100){
|
|
|
|
ooutptr=0;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
if(dbgact==0&&pdbg!=0){
|
|
|
|
// printf("pdbg=%d dbgmod=%d currentfileinfo=%d\n",pdbg,dbgmod[0],currentfileinfo);
|
|
|
|
if(pdbg==1&&dbgmod[0]!=(unsigned short)currentfileinfo)return;
|
|
|
|
pdbg--;
|
|
|
|
if(pdbg==0){
|
|
|
|
oline=0;
|
|
|
|
omodule=ooutptr=0xFFFFFFFF;
|
|
|
|
}
|
|
|
|
else{
|
|
|
|
oline=dbgnum[pdbg];
|
|
|
|
omodule=dbgmod[pdbg];
|
|
|
|
ooutptr=dbgloc[pdbg];
|
|
|
|
}
|
|
|
|
// printf("%s(%d) pdbg=%d oline=%d ooutptr=%d\n",(startfileinfo+currentfileinfo)->filename,linenumber,pdbg,oline,ooutptr);
|
|
|
|
(startfileinfo+dbgmod[pdbg])->numdline--;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
//ñîçäàíèå îòëàäî÷íîãî ôàéëà
|
|
|
|
void DoTDS()
|
|
|
|
{
|
|
|
|
int retcode;
|
|
|
|
unsigned int i,j;
|
|
|
|
//ñîçäàòü ôàéë
|
|
|
|
if(lstflag)GeneratLst();
|
|
|
|
if(dbg&1){
|
|
|
|
//óáðàòü èç ñïèñêà ôàéëîâ íå èñïîëüçóåìûå
|
|
|
|
for(i=0;i<totalmodule;i++){
|
|
|
|
if((startfileinfo+i)->numdline==0){
|
|
|
|
totalmodule--;
|
|
|
|
if(totalmodule!=i){
|
|
|
|
memcpy(&(startfileinfo+i)->filename,
|
|
|
|
&(startfileinfo+totalmodule)->filename,sizeof(FILEINFO));
|
|
|
|
//êîððåêòèðîâêà òàáëèö ñòðîê
|
|
|
|
for(j=0;j<pdbg;j++){
|
|
|
|
if(dbgmod[j]==(unsigned short)totalmodule)dbgmod[j]=(unsigned short)i;
|
|
|
|
}
|
|
|
|
i--;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
//ñîçäàòü òàáëèöó êîððåëÿöèé
|
|
|
|
corinfo=(struct _COR_INFO_ *)MALLOC(sizeof(_COR_INFO_));
|
|
|
|
corinfo->ofs=dbgloc[0];
|
|
|
|
corinfo->startline=0;
|
|
|
|
omodule=corinfo->file=dbgmod[0];
|
|
|
|
numcorrel=0;
|
|
|
|
for(j=1;j<pdbg;j++){
|
|
|
|
if((unsigned short)omodule!=dbgmod[j]){
|
|
|
|
(corinfo+numcorrel)->count=(unsigned short)(j-(corinfo+numcorrel)->startline);
|
|
|
|
(corinfo+numcorrel)->end=dbgloc[j]-1;
|
|
|
|
numcorrel++;
|
|
|
|
corinfo=(struct _COR_INFO_ *)REALLOC(corinfo,sizeof(_COR_INFO_)*(numcorrel+1));
|
|
|
|
(corinfo+numcorrel)->ofs=dbgloc[j];
|
|
|
|
(corinfo+numcorrel)->startline=j;
|
|
|
|
omodule=(corinfo+numcorrel)->file=dbgmod[j];
|
|
|
|
}
|
|
|
|
}
|
|
|
|
(corinfo+numcorrel)->count=(unsigned short)(pdbg-(corinfo+numcorrel)->startline);
|
|
|
|
(corinfo+numcorrel)->end=dbgloc[j-1]+1;
|
|
|
|
numcorrel++;
|
|
|
|
hout=CreateOutPut("tds","wb");
|
|
|
|
if(am32)retcode=CreateW32Debug();
|
|
|
|
else retcode=CreateDosDebug();
|
|
|
|
if(retcode==0&&fwrite(output,outptr,1,hout)!=1)retcode=-1;
|
|
|
|
if(retcode!=0)ErrWrite();
|
|
|
|
fclose(hout);
|
|
|
|
hout=NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void AddNameToTable(char *name)
|
|
|
|
{
|
|
|
|
int i=0;
|
|
|
|
char c;
|
|
|
|
do{
|
|
|
|
c=name[i++];
|
|
|
|
op(c);
|
|
|
|
}while(c!=0);
|
|
|
|
}
|
|
|
|
|
|
|
|
void AddSymbolList(struct idrec *ptr)
|
|
|
|
{
|
|
|
|
if(ptr!=NULL){
|
|
|
|
AddSymbolList(ptr->right);
|
|
|
|
if((ptr->rectok==tk_proc&&ptr->recsegm>=NOT_DYNAMIC)||
|
|
|
|
(ptr->rectok==tk_interruptproc&&ptr->recsegm>=NOT_DYNAMIC)||
|
|
|
|
(ptr->rectok>=tk_bits&&ptr->rectok<=tk_doublevar&&modelmem!=SMALL)||
|
|
|
|
(ptr->rectok==tk_structvar&&modelmem!=SMALL)){
|
|
|
|
AddNameToTable(ptr->recid);
|
|
|
|
(symbols+numsymbols)->idxname=numsymbols+1;
|
|
|
|
(symbols+numsymbols)->ofs=(unsigned short)(ptr->recpost==0?
|
|
|
|
(unsigned short)ptr->recnumber:
|
|
|
|
(unsigned short)ptr->recnumber+ooutptr);
|
|
|
|
if(modelmem==TINY&&comfile==file_exe)(symbols+numsymbols)->ofs-=(unsigned short)0x100;
|
|
|
|
// if(ptr->rectok==tk_proc)(symbols+numsymbols)->clas=0x18;
|
|
|
|
numsymbols++;
|
|
|
|
if(numsymbols==sizetabsym){
|
|
|
|
symbols=(_SMB_ *)REALLOC(symbols,(sizetabsym+MAXNUMSYM)*sizeof(_SMB_));
|
|
|
|
memset(&(symbols+sizetabsym)->idxname,0,sizeof(_SMB_)*MAXNUMSYM);
|
|
|
|
sizetabsym+=MAXNUMSYM;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
AddSymbolList(ptr->left);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void AddNameToPul(char *name)
|
|
|
|
{
|
|
|
|
static int sizebuf=0;
|
|
|
|
int i;
|
|
|
|
i=strlen(name);
|
|
|
|
if((lastofspul+i+2)>=sizebuf){
|
|
|
|
sizebuf+=STRLEN;
|
|
|
|
if(sizebuf==STRLEN)bufname=(unsigned char *)MALLOC(sizebuf);
|
|
|
|
else bufname=(unsigned char *)REALLOC(bufname,sizebuf);
|
|
|
|
}
|
|
|
|
bufname[lastofspul++]=(unsigned char)i;
|
|
|
|
strcpy((char *)(bufname+lastofspul),name);
|
|
|
|
lastofspul+=++i;
|
|
|
|
}
|
|
|
|
|
|
|
|
void AddGlobalName(struct idrec *ptr)
|
|
|
|
{
|
|
|
|
if(ptr!=NULL){
|
|
|
|
AddGlobalName(ptr->right);
|
|
|
|
if((ptr->rectok==tk_proc&&ptr->recsegm>=NOT_DYNAMIC)||
|
|
|
|
(ptr->rectok>=tk_bits&&ptr->rectok<=tk_doublevar)||
|
|
|
|
(ptr->rectok==tk_structvar)){
|
|
|
|
AddNameToPul(ptr->recid);
|
|
|
|
numsymbols++;
|
|
|
|
if(ptr->rectok==tk_proc){
|
|
|
|
outword(0x1c); //size
|
|
|
|
outdword(0x20); //type
|
|
|
|
}
|
|
|
|
else{
|
|
|
|
outword(0x18);
|
|
|
|
outdword(0x21);
|
|
|
|
}
|
|
|
|
outword(0);
|
|
|
|
outdword(0);
|
|
|
|
outdword(numsymbols); //name
|
|
|
|
outdword(0);
|
|
|
|
if(ptr->recpost==0){
|
|
|
|
outdword(ptr->recnumber); //offset
|
|
|
|
outword(segcode); //segm
|
|
|
|
}
|
|
|
|
else{
|
|
|
|
outdword(ptr->recnumber+(wbss!=FALSE?0:ooutptr));
|
|
|
|
outword(1);
|
|
|
|
}
|
|
|
|
if(ptr->rectok==tk_proc)outdword(0);
|
|
|
|
}
|
|
|
|
AddGlobalName(ptr->left);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
int CreateW32Debug()
|
|
|
|
{
|
|
|
|
int sstNames,sstDirectory;
|
|
|
|
int startcode=outptr;
|
|
|
|
int sstGlobalSym;
|
|
|
|
int sstsrc;
|
|
|
|
unsigned int i,j,jj,ofs;
|
|
|
|
for(;numsymbols<(short)totalmodule;numsymbols++)AddNameToPul((startfileinfo+numsymbols)->filename);
|
|
|
|
segcode=(wbss==FALSE?1:2);
|
|
|
|
outptr=0;
|
|
|
|
outdword(0x41304246); // TDS - signature
|
|
|
|
outdword(0); // offset of Subsection Directory (fill later)
|
|
|
|
//sstModule subsection
|
|
|
|
outdword(0); // OvlNum=0 & LibIndex=0
|
|
|
|
outword(segcode); // SegCount
|
|
|
|
outword(0x5643); // CV-style
|
|
|
|
outdword(1); // Name
|
|
|
|
for(i=0;i<4;i++)outdword(0);
|
|
|
|
// outdword(0); //Time
|
|
|
|
// outdword(0);
|
|
|
|
// outdword(0);
|
|
|
|
// outdword(0);
|
|
|
|
if(wbss){
|
|
|
|
outword(0x0001); // SegNumber
|
|
|
|
outword(0); // flag
|
|
|
|
outdword(0); // start
|
|
|
|
outdword(postsize); // len
|
|
|
|
}
|
|
|
|
outword(segcode); // SegNumber
|
|
|
|
outword(0x0001); // flag
|
|
|
|
outdword(startptr); // start
|
|
|
|
outdword(startcode); // len
|
|
|
|
sstsrc=outptr;
|
|
|
|
//sstSrcModule subsection
|
|
|
|
outword((short)numcorrel); //cFile - êîëè÷åñòâî SRC-ôàéëîâ(ñåãìåíòîâ)
|
|
|
|
outword((short)numcorrel); // SegCount (see SegCount in sstModule
|
|
|
|
ofs=14*numcorrel+4;
|
|
|
|
for(i=0,jj=0;i<(unsigned int)numcorrel;i++){
|
|
|
|
if(i!=0)jj=jj+((corinfo+i-1)->count+1)*6+22;
|
|
|
|
outdword(ofs+jj);
|
|
|
|
}
|
|
|
|
for(i=0;i<(unsigned int)numcorrel;i++){
|
|
|
|
outdword((corinfo+i)->ofs);
|
|
|
|
outdword((corinfo+i)->end);
|
|
|
|
}
|
|
|
|
for(i=0;i<(unsigned int)numcorrel;i++)outword(segcode); // ìàññèâ èíäåêñîâ ñåãìåíòîâ
|
|
|
|
for(i=0;i<(unsigned int)numcorrel;i++){
|
|
|
|
outword(1); // Segm#
|
|
|
|
outdword((corinfo+i)->file+1);// File#
|
|
|
|
outdword(outptr-sstsrc+12);
|
|
|
|
outdword((corinfo+i)->ofs);
|
|
|
|
outdword((corinfo+i)->end);
|
|
|
|
outword(segcode); //Segm#
|
|
|
|
jj=(corinfo+i)->count;
|
|
|
|
outword(jj+1); // Lines count
|
|
|
|
ofs=(corinfo+i)->startline;
|
|
|
|
for(j=0;j<jj;j++)outdword(dbgloc[j+ofs]);
|
|
|
|
outdword((corinfo+i)->end);
|
|
|
|
for(j=0;j<jj;j++)outword(dbgnum[j+ofs]);
|
|
|
|
outword(0);
|
|
|
|
}
|
|
|
|
//òàáëèöà ãëîáàëüíûõ ñèìâîëîâ
|
|
|
|
sstGlobalSym=outptr;
|
|
|
|
for(i=0;i<8;i++)outdword(0);
|
|
|
|
// outdword(0); //modindex
|
|
|
|
// outdword(0); //size correct later
|
|
|
|
// outdword(0);
|
|
|
|
// outdword(0);
|
|
|
|
// outdword(0);
|
|
|
|
// outdword(0); //num others correct later
|
|
|
|
// outdword(0); //total correct later
|
|
|
|
// outdword(0); //SymHash, AddrHash
|
|
|
|
outdword(0x02100008); //S_ENTRY32
|
|
|
|
outdword(EntryPoint());
|
|
|
|
outword(segcode);
|
|
|
|
AddGlobalName(treestart);
|
|
|
|
sstNames=outptr;
|
|
|
|
outdword(numsymbols);
|
|
|
|
outptr=sstGlobalSym+4;
|
|
|
|
outdword(sstNames-sstGlobalSym-32);
|
|
|
|
outptr+=12;
|
|
|
|
outdword(numsymbols-totalmodule);
|
|
|
|
outdword(numsymbols-totalmodule);
|
|
|
|
outptr=4;
|
|
|
|
sstDirectory=sstNames+4+lastofspul;
|
|
|
|
outdword(sstDirectory);
|
|
|
|
if(fwrite(output,sstNames+4,1,hout)!=1)return -1;
|
|
|
|
if(fwrite(bufname,lastofspul,1,hout)!=1)return -1;
|
|
|
|
free(bufname);
|
|
|
|
// Subsection Directory
|
|
|
|
outptr=0;
|
|
|
|
outdword(0x0C0010);
|
|
|
|
outdword(4); // cDir - number of subsections
|
|
|
|
outdword(0);
|
|
|
|
outdword(0);
|
|
|
|
//sstModule
|
|
|
|
outdword(0x10120);
|
|
|
|
outdword(8); //start
|
|
|
|
outdword(sstsrc-8); // size
|
|
|
|
// sstSrcModule
|
|
|
|
outdword(0x10127);
|
|
|
|
outdword(sstsrc); //start
|
|
|
|
outdword(sstNames-sstsrc);//size
|
|
|
|
//sstGlobalSym
|
|
|
|
outdword(0x129);
|
|
|
|
outdword(sstGlobalSym); //start
|
|
|
|
outdword(sstNames-sstGlobalSym); //size
|
|
|
|
// sstNames
|
|
|
|
outdword(0x130);
|
|
|
|
outdword(sstNames);
|
|
|
|
outdword(sstDirectory-sstGlobalSym);
|
|
|
|
outdword(0x41304246); // TDS - signature
|
|
|
|
outdword(sstDirectory+outptr+4); // TDS-len
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
int CreateDosDebug()
|
|
|
|
{
|
|
|
|
unsigned int i,j,count;
|
|
|
|
D16START d16header;
|
|
|
|
MODULE *module;
|
|
|
|
SFT *sft;
|
|
|
|
LT *lt;
|
|
|
|
CT *ct;
|
|
|
|
int corrnum=0,ii;
|
|
|
|
unsigned short beg,end;
|
|
|
|
outptr=0;
|
|
|
|
//16-áèò çàãîëîâîê
|
|
|
|
memset(&d16header,0,sizeof(D16START));
|
|
|
|
//òàáëèöà ãëîáàëüíûõ èìåí
|
|
|
|
symbols=(_SMB_ *)MALLOC(sizeof(_SMB_)*MAXNUMSYM);
|
|
|
|
memset(symbols,0,sizeof(_SMB_)*MAXNUMSYM);
|
|
|
|
AddSymbolList(treestart);
|
|
|
|
d16header.numname=totalmodule*2+numsymbols;
|
|
|
|
d16header.numsymbl=d16header.numgsymb=numsymbols;
|
|
|
|
|
|
|
|
d16header.sign=0x040352FB; //sign & version
|
|
|
|
d16header.imagesize=runfilesize; //image size
|
|
|
|
d16header.numsours=totalmodule; //1
|
|
|
|
d16header.numline=pdbg; //lines
|
|
|
|
d16header.numincl=totalmodule; //include files
|
|
|
|
d16header.numseg=totalmodule;//totalmodule; //1
|
|
|
|
d16header.numcorrel=numcorrel;//totalmodule; //Correlation
|
|
|
|
d16header.casesensiv=1;
|
|
|
|
// d16header.numtentr=NUMTYPES;
|
|
|
|
//òîëüêî äëÿ 128-áàéòîâîãî çàãîëîâêà
|
|
|
|
// d16header.fdebug=1;
|
|
|
|
|
|
|
|
d16header.ucnovn=0x380000;
|
|
|
|
d16header.sizeblock=sizeof(MODULE)*totalmodule+sizeof(SFT)*totalmodule+
|
|
|
|
sizeof(LT)*pdbg+sizeof(SEGMENT)*totalmodule+sizeof(CT)*numcorrel+
|
|
|
|
6*totalmodule+/*NUMTYPES*12+*/sizeof(_SMB_)*numsymbols/*+numsymbols*4*/;
|
|
|
|
d16header.reftsize=numsymbols*4;
|
|
|
|
|
|
|
|
//module table
|
|
|
|
module=(struct MODULE *)MALLOC(sizeof(MODULE)*totalmodule);
|
|
|
|
memset(module,0,sizeof(MODULE)*totalmodule);
|
|
|
|
//sourse file table
|
|
|
|
sft=(SFT *)MALLOC(sizeof(SFT)*totalmodule);
|
|
|
|
//segment table
|
|
|
|
segment=(struct SEGMENT *)MALLOC(sizeof(SEGMENT)*totalmodule);
|
|
|
|
memset(segment,0,sizeof(SEGMENT)*totalmodule);
|
|
|
|
//correlation table
|
|
|
|
ct=(CT *)MALLOC(sizeof(CT)*numcorrel);
|
|
|
|
for(i=0;i<totalmodule;i++){
|
|
|
|
//èìåíà ìîäóëåé
|
|
|
|
AddNameToTable((startfileinfo+i)->filename);
|
|
|
|
strcpy((char *)string3,(startfileinfo+i)->filename);
|
|
|
|
char *str=strrchr((char *)string3,'.');
|
|
|
|
if(str!=0){
|
|
|
|
str[0]=0;
|
|
|
|
str=strrchr((char *)string3,'\\');
|
|
|
|
if(str==NULL)str=(char *)string3;
|
|
|
|
else str++;
|
|
|
|
}
|
|
|
|
else str=(char *)string3;
|
|
|
|
AddNameToTable(str);
|
|
|
|
//òàáëèöà ìîäóëåé
|
|
|
|
(module+i)->name=i*2+2+numsymbols;
|
|
|
|
(module+i)->language=1;
|
|
|
|
(module+i)->memmodel=8;//modelmem==SMALL&&comfile==file_exe?9:8;
|
|
|
|
(module+i)->sourcount=1;//(unsigned short)totalmodule;
|
|
|
|
(module+i)->sourindex=(unsigned short)(i+1);
|
|
|
|
//èíôîðìàöèÿ îá èñõîäíûõ ôàéëàõ
|
|
|
|
(sft+i)->idx=i*2+1+numsymbols;
|
|
|
|
(sft+i)->time=(startfileinfo+i)->time;
|
|
|
|
count=0; //÷èñëî êîðåëÿöèé äëÿ äàííîãî ìîäóëÿ
|
|
|
|
for(ii=0;ii<numcorrel;ii++){//îáõîä òàáëèöû êîððåëÿöèè
|
|
|
|
if((corinfo+ii)->file==(unsigned short)i){ //êîðð äëÿ ýòîãî ìîäóëÿ
|
|
|
|
if(count==0){ //ïåðâûé áëîê
|
|
|
|
(segment+i)->ofs=beg=(unsigned short)(corinfo+ii)->ofs;
|
|
|
|
(segment+i)->correli=(unsigned short)(corrnum+1); //correlation index
|
|
|
|
(module+i)->corindex=(unsigned short)(corrnum+1);
|
|
|
|
}
|
|
|
|
(ct+corrnum)->beg=(corinfo+ii)->startline+1;
|
|
|
|
(ct+corrnum)->segidx=(unsigned short)(1+i); //segment idx
|
|
|
|
(ct+corrnum)->filidx=(unsigned short)(i+1); //file idx
|
|
|
|
(ct+corrnum)->count=(corinfo+ii)->count; //÷èñëî ëèíèé
|
|
|
|
end=(unsigned short)(corinfo+ii)->end;
|
|
|
|
corrnum++;
|
|
|
|
count++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
//òàáëèöà ñåãìåíòîâ
|
|
|
|
(segment+i)->idx=(unsigned short)(i+1); //segment index
|
|
|
|
(segment+i)->size=(unsigned short)(end-beg);//length
|
|
|
|
(segment+i)->correlc=(unsigned short)count;//(unsigned short)totalmodule; //correlation count
|
|
|
|
(module+i)->corcount=(unsigned short)count;
|
|
|
|
if(modelmem==TINY&&comfile==file_exe)(segment+i)->segm=0xfff0;
|
|
|
|
}
|
|
|
|
d16header.pol_size=outptr;
|
|
|
|
if(fwrite(&d16header,sizeof(D16START),1,hout)!=1)return -1;
|
|
|
|
if(fwrite(symbols,sizeof(_SMB_)*numsymbols,1,hout)!=1)return -1;
|
|
|
|
if(fwrite(module,sizeof(MODULE)*totalmodule,1,hout)!=1)return -1;
|
|
|
|
free(module);
|
|
|
|
if(fwrite(sft,sizeof(SFT)*totalmodule,1,hout)!=1)return -1;
|
|
|
|
free(sft);
|
|
|
|
//line table
|
|
|
|
lt=(LT *)MALLOC(sizeof(LT)*pdbg);
|
|
|
|
for(j=0;(unsigned int)j<pdbg;j++){
|
|
|
|
// printf("line %d loc %X\n",dbgnum[j],dbgloc[j]);
|
|
|
|
(lt+j)->line=(unsigned short)dbgnum[j];
|
|
|
|
(lt+j)->ofs=(unsigned short)dbgloc[j];
|
|
|
|
}
|
|
|
|
if(fwrite(lt,sizeof(LT)*pdbg,1,hout)!=1)return -1;
|
|
|
|
free(lt);
|
|
|
|
if(fwrite(segment,sizeof(SEGMENT)*totalmodule,1,hout)!=1)return -1;
|
|
|
|
free(segment);
|
|
|
|
if(fwrite(ct,sizeof(CT)*numcorrel,1,hout)!=1)return -1;
|
|
|
|
free(ct);
|
|
|
|
// if(fwrite(types,NUMTYPES*12,1,hout)!=1)return -1;
|
|
|
|
memset(&string3,0,6*totalmodule);
|
|
|
|
if(fwrite(&string3,6*totalmodule,1,hout)!=1)return -1;
|
|
|
|
/* if(numsymbols){
|
|
|
|
memset(symbols,0,4*numsymbols);
|
|
|
|
if(fwrite(symbols,4*numsymbols,1,hout)!=1)return -1;
|
|
|
|
}*/
|
|
|
|
free(symbols);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
void KillDataLine(int line)
|
|
|
|
{
|
|
|
|
(startfileinfo+dbgmod[line])->numdline--;
|
|
|
|
for(unsigned int j=line;(j+1)<pdbg;j++){
|
|
|
|
dbgloc[j]=dbgloc[j+1];
|
|
|
|
dbgnum[j]=dbgnum[j+1];
|
|
|
|
dbgmod[j]=dbgmod[j+1];
|
|
|
|
}
|
|
|
|
lstflag++;
|
|
|
|
lststring++;
|
|
|
|
lstend++;
|
|
|
|
pdbg--;
|
|
|
|
}
|
|
|
|
|
|
|
|
void GeneratLst()
|
|
|
|
{
|
|
|
|
unsigned int j;
|
|
|
|
unsigned long startip;
|
|
|
|
unsigned int offs2,line;
|
|
|
|
unsigned char flag;
|
|
|
|
hout=CreateOutPut("lst","wt");
|
|
|
|
if(lstend[pdbg-1]==0)lstend[pdbg-1]=endinptr;
|
|
|
|
startip=(comfile!=file_w32&&comfile!=file_bin?0:ImageBase);
|
|
|
|
fprintf(hout,"SPHINX/SHEKER C-- One Pass Disassembler. Version %d.%02d%s %s\n",ver1,ver2,betta,__DATE__);
|
|
|
|
for(j=0;j<pdbg;j++){
|
|
|
|
//printf("line %d loc %X\n",dbgnum[j],dbgloc[j]);
|
|
|
|
if((int)lstflag[j]!=0xFF){
|
|
|
|
flag=lstflag[j];
|
|
|
|
offs2=lstend[j];
|
|
|
|
outptr=dbgloc[j];
|
|
|
|
instruction_offset=outptr+startip;
|
|
|
|
seg_size=(unsigned char)(16+16*(flag&1));
|
|
|
|
line=dbgnum[j];
|
|
|
|
if(offs2!=outptr){
|
|
|
|
/*
|
|
|
|
if(line!=0)printf("%s %u:",(startfileinfo+dbgmod[j])->filename,line);
|
|
|
|
if(lststring[j]!=NULL)printf(" %s\n",lststring[j]);
|
|
|
|
else if(line!=0)printf("\n");
|
|
|
|
*/
|
|
|
|
fprintf(hout,"\n");
|
|
|
|
if(line!=0)fprintf(hout,"%s %u:",(startfileinfo+dbgmod[j])->filename,line);
|
|
|
|
if(lststring[j]!=NULL)fprintf(hout," %s\n",lststring[j]);
|
|
|
|
else if(line!=0)fprintf(hout,"\n");
|
|
|
|
while(outptr<offs2){
|
|
|
|
if(flag&0x1e)undata(instruction_offset,offs2-dbgloc[j],(flag>>1)&15);
|
|
|
|
else unassemble(instruction_offset);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if((dbg&1)!=0&&((flag&0xe)!=0||line==0)){
|
|
|
|
KillDataLine(j);
|
|
|
|
j--;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
fclose(hout);
|
|
|
|
hout=NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef DEBUGMODE
|
|
|
|
void printdebuginfo()
|
|
|
|
{
|
|
|
|
static FILE *df=NULL;
|
|
|
|
if((df=fopen("debug.tmp","w+t"))==NULL)df=stdout;
|
|
|
|
fprintf(df,"%s(%d)> %08X %08X tok=%d num=%08X flag=%08X scanmode=%d %s\n",startfileinfo==NULL?"":(startfileinfo+currentfileinfo)->filename,linenumber,input,inptr2,tok,itok.number,itok.flag,scanlexmode,itok.name);
|
|
|
|
fflush(df);
|
|
|
|
}
|
|
|
|
#endif
|
|
|