Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. #include "tok.h"
  2.  
  3. #include "coff.h"
  4.  
  5.  
  6.  
  7. char *meserr="Plese, send this obj and sources files to me (sheker@mail.ru)";
  8.  
  9. struct LISTINCLFILE{
  10.  
  11.         char *name;
  12.  
  13.         int typefind;
  14.  
  15.         int type;
  16.  
  17. };
  18.  
  19.  
  20.  
  21. enum{
  22.  
  23.         s_extern,
  24.  
  25.         s_code,
  26.  
  27.         s_data,
  28.  
  29.         s_bss
  30.  
  31. };
  32.  
  33.  
  34.  
  35. struct LISTNAMESYMBOL{
  36.  
  37.         int idx;        //¨­¤¥ªá ¨¬¥­¨
  38.  
  39.         int seg;
  40.  
  41.         int adr;
  42.  
  43.         idrec *rec;
  44.  
  45.         int dbg;
  46.  
  47.         char name[IDLENGTH];
  48.  
  49. }*listnamesymbol;
  50.  
  51.  
  52.  
  53. char *curobjname;
  54.  
  55.  
  56.  
  57. int numobj=0,numname;
  58.  
  59. LISTINCLFILE *listobj;
  60.  
  61. unsigned int adr_end;
  62.  
  63.  
  64.  
  65. void LoadObj();
  66.  
  67. void AddPost(unsigned long loc,int type,unsigned int num);
  68.  
  69. int searchtree2(idrec *fptr,ITOK *itok4,int *tok4,unsigned char *string4);
  70.  
  71.  
  72.  
  73. int GetSegm(int seg)
  74.  
  75. {
  76.  
  77. OBJECT_ENTRY *obj;
  78.  
  79.         if(seg){
  80.  
  81.                 seg--;
  82.  
  83.                 obj=(OBJECT_ENTRY *)(input+(sizeof(COFF_HEADER)+sizeof(OBJECT_ENTRY)*seg));
  84.  
  85.                 seg=obj->vsize;
  86.  
  87.         }
  88.  
  89.         return seg;
  90.  
  91. }
  92.  
  93.  
  94.  
  95. int GetOffSec(int seg)
  96.  
  97. {
  98.  
  99. OBJECT_ENTRY *obj;
  100.  
  101.         if(seg){
  102.  
  103.                 seg--;
  104.  
  105.                 obj=(OBJECT_ENTRY *)(input+(sizeof(COFF_HEADER)+sizeof(OBJECT_ENTRY)*seg));
  106.  
  107.                 seg=obj->sectionRVA;
  108.  
  109.         }
  110.  
  111.         return seg;
  112.  
  113. }
  114.  
  115.  
  116.  
  117. void AddNameObj(char *name,int typefind,int type)
  118.  
  119. {
  120.  
  121. int len;
  122.  
  123.         len=strlen(name);
  124.  
  125.         if(!numobj)listobj=(LISTINCLFILE *)MALLOC(sizeof(LISTINCLFILE));
  126.  
  127.         else listobj=(LISTINCLFILE *)REALLOC(listobj,sizeof(LISTINCLFILE)*(numobj+1));
  128.  
  129.         (listobj+numobj)->name=BackString(name);
  130.  
  131.         (listobj+numobj)->typefind=typefind;
  132.  
  133.         (listobj+numobj)->type=type;
  134.  
  135.         numobj++;
  136.  
  137. }
  138.  
  139.  
  140.  
  141. void AddObj()
  142.  
  143. {
  144.  
  145. int hold;
  146.  
  147.         for(int i=0;i<numobj;i++){
  148.  
  149.                 curobjname=(listobj+i)->name;
  150.  
  151. //              puts(curobjname);
  152.  
  153.                 hold=loadfile(curobjname,(listobj+i)->typefind);
  154.  
  155.                 if(hold==1||hold==-1){
  156.  
  157.                         unableopenfile(curobjname);
  158.  
  159.                         continue;
  160.  
  161.                 }
  162.  
  163.                 if((listobj+i)->type==0)LoadObj();
  164.  
  165.                 free(input);
  166.  
  167.         }
  168.  
  169. }
  170.  
  171.  
  172.  
  173. int GetAlighSize(long flag)
  174.  
  175. {
  176.  
  177. int align=0;
  178.  
  179.         int i=(flag&IMAGE_SCN_ALIGN_MASK)>>20;
  180.  
  181.         if(i)align=1<<(i-1);
  182.  
  183.         if(align==1)align=0;
  184.  
  185.         return align;
  186.  
  187. }
  188.  
  189.  
  190.  
  191. void ConvertName(char *name)
  192.  
  193. {
  194.  
  195. int i1,i2;
  196.  
  197. char c;
  198.  
  199.         tok=tk_ID;
  200.  
  201.         i1=i2=0;
  202.  
  203.         c=name[i1];
  204.  
  205.         if(c=='?'){
  206.  
  207.                 i1++;
  208.  
  209.                 c=name[i1];
  210.  
  211.                 if(c=='?'){
  212.  
  213.                         i1=2;
  214.  
  215.                         c=name[i1];
  216.  
  217.                 }
  218.  
  219.         }
  220.  
  221.         else if(c=='_'){
  222.  
  223.                 if(strncmp(name,"__imp__",7)==0){
  224.  
  225.                         i1=7;
  226.  
  227.                         c=name[i1];
  228.  
  229.                 }
  230.  
  231.                 else if(name[1]=='$'){
  232.  
  233.                         i1=2;
  234.  
  235.                         c=name[i1];
  236.  
  237.                 }
  238.  
  239.         }
  240.  
  241.         while(c!=0){
  242.  
  243.                 if(c>='a'&&c<='z')tok=tk_id;
  244.  
  245.                 name[i2]=c;
  246.  
  247.                 i1++;
  248.  
  249.                 i2++;
  250.  
  251.                 c=name[i1];
  252.  
  253.                 if(c=='@'||c=='$')break;
  254.  
  255.         }
  256.  
  257.         name[i2]=0;
  258.  
  259. }
  260.  
  261.  
  262.  
  263. void AddPost(unsigned long loc,int type,unsigned int num)
  264.  
  265. {
  266.  
  267.         CheckPosts();
  268.  
  269.         (postbuf+posts)->num=num;
  270.  
  271.         (postbuf+posts)->type=type;
  272.  
  273.         (postbuf+posts)->loc=loc;
  274.  
  275.         posts++;
  276.  
  277. }
  278.  
  279.  
  280.  
  281. void ScanSection(int numobj)
  282.  
  283. {
  284.  
  285. int poutptr,poutptrdata,ppostsize,align;
  286.  
  287. OBJECT_ENTRY *obj;
  288.  
  289. long flag;
  290.  
  291.         poutptr=outptr;
  292.  
  293.         poutptrdata=outptrdata;
  294.  
  295.         ppostsize=postsize;
  296.  
  297.         for(int i=0;i<numobj;i++){
  298.  
  299.                 obj=(OBJECT_ENTRY *)(input+(sizeof(COFF_HEADER)+sizeof(OBJECT_ENTRY)*i));
  300.  
  301.                 flag=obj->flags;
  302.  
  303.                 align=GetAlighSize(flag);
  304.  
  305.                 obj->vsize=-1;
  306.  
  307.                 if((flag&IMAGE_SCN_CNT_CODE)&&(flag&IMAGE_SCN_MEM_EXECUTE)){//ᥪæ¨ï ª®¤ 
  308.  
  309.                         obj->vsize=s_code;
  310.  
  311.                         obj->sectionRVA=poutptr=Align(poutptr,align);
  312.  
  313.                         poutptr+=obj->psize;
  314.  
  315.                         if(splitdata==FALSE)poutptrdata=poutptr;
  316.  
  317.                 }
  318.  
  319.                 else{
  320.  
  321.                         if((flag&IMAGE_SCN_MEM_READ)&&(flag&IMAGE_SCN_MEM_WRITE)){
  322.  
  323.                                 if(flag&IMAGE_SCN_CNT_INITIALIZED_DATA){        //ᥪæ¨ï ¨­¨æ¨ «¨§¨à®¢ ­­ëå ¤ ­­ëå
  324.  
  325.                                         obj->vsize=s_data;
  326.  
  327.                                         obj->sectionRVA=poutptrdata=Align(poutptrdata,align);
  328.  
  329.                                         poutptrdata+=obj->psize;
  330.  
  331.                                         if(splitdata==FALSE)poutptr=poutptrdata;
  332.  
  333.                                 }
  334.  
  335.                                 else if(flag&IMAGE_SCN_CNT_UNINITIALIZED_DATA){ //ᥪæ¨ï bss
  336.  
  337.                                         obj->vsize=s_bss;
  338.  
  339.                                         obj->sectionRVA=ppostsize=Align(postsize,align);
  340.  
  341.                                         postsize+=obj->psize;
  342.  
  343.                                 }
  344.  
  345.                         }
  346.  
  347.                 }
  348.  
  349.         }
  350.  
  351. }
  352.  
  353.  
  354.  
  355. void AddLstName(int numname)
  356.  
  357. {
  358.  
  359. unsigned int minofs;
  360.  
  361. int i,j,minname;
  362.  
  363. int oseg;
  364.  
  365. unsigned int ooutptr,ooutptrdata;
  366.  
  367.         ooutptr=outptr;
  368.  
  369.         ooutptrdata=outptrdata;
  370.  
  371.         for(i=0;i<numname;i++){
  372.  
  373.                 if((listnamesymbol+i)->dbg==0){
  374.  
  375.                         oseg=(listnamesymbol+i)->seg;
  376.  
  377.                         minofs=(listnamesymbol+i)->adr;
  378.  
  379.                         minname=i;
  380.  
  381.                         for(j=i+1;j<numname;j++){
  382.  
  383.                                 if(splitdata==FALSE)goto checkadr;
  384.  
  385.                                 else if((listnamesymbol+j)->seg==oseg){
  386.  
  387. checkadr:
  388.  
  389.                                         if(minofs>=(listnamesymbol+j)->adr&&(listnamesymbol+j)->dbg==0){
  390.  
  391.                                                 if(minofs==(listnamesymbol+j)->adr){
  392.  
  393.                                                         (listnamesymbol+minname)->dbg=1;
  394.  
  395.                                                 }
  396.  
  397.                                                 minofs=(listnamesymbol+j)->adr;
  398.  
  399.                                                 minname=j;
  400.  
  401.                                                 oseg=(listnamesymbol+j)->seg;
  402.  
  403.                                         }
  404.  
  405.                                 }
  406.  
  407.                         }
  408.  
  409.                         if(minname!=i)i--;
  410.  
  411. //                      printf("seg=%d adr=%d %s\n",oseg,(listnamesymbol+minname)->adr,(listnamesymbol+minname)->name);
  412.  
  413.                         if(oseg==s_code){
  414.  
  415.                                 if((listnamesymbol+minname)->rec){
  416.  
  417.                                         idrec *ptr;
  418.  
  419.                                         ptr=(listnamesymbol+minname)->rec;
  420.  
  421.                                         if(ptr->rectok==tk_undefproc||ptr->rectok==tk_proc||ptr->rectok==tk_interruptproc)goto dproc;
  422.  
  423.                                         outptrdata=(listnamesymbol+minname)->adr;
  424.  
  425.                                         if(splitdata==FALSE)outptr=outptrdata;
  426.  
  427.                                         AddDataNullLine(3,(listnamesymbol+minname)->name);
  428.  
  429.                                 }
  430.  
  431.                                 else{
  432.  
  433. dproc:
  434.  
  435.                                         outptr=(listnamesymbol+minname)->adr;//12.08.04 00:05 +ooutptr;
  436.  
  437.                                         AddCodeNullLine((listnamesymbol+minname)->name);
  438.  
  439.                                 }
  440.  
  441.                         }
  442.  
  443.                         else if(oseg==s_data){
  444.  
  445.                                 outptrdata=(listnamesymbol+minname)->adr;//12.08.04 01:19 +ooutptrdata;
  446.  
  447.                                 if(splitdata==FALSE)outptr=outptrdata;
  448.  
  449.                                 AddDataNullLine(3,(listnamesymbol+minname)->name);
  450.  
  451.                         }
  452.  
  453.                         (listnamesymbol+minname)->dbg=1;
  454.  
  455.                 }
  456.  
  457.         }
  458.  
  459.         outptr=ooutptr;
  460.  
  461.         outptrdata=ooutptrdata;
  462.  
  463. }
  464.  
  465.  
  466.  
  467. int ScanName(COFF_HEADER *head)
  468.  
  469. {
  470.  
  471. int size,i,j,numname,seg,count;
  472.  
  473. IMAGE_SYMBOL *tsym;
  474.  
  475. unsigned int ooutptr,ooutptrdata,opostsize;
  476.  
  477. idrec *rec;
  478.  
  479.         ooutptr=outptr;
  480.  
  481.         ooutptrdata=outptrdata;
  482.  
  483.         opostsize=postsize;
  484.  
  485.         numname=head->COFFsize;
  486.  
  487.         size=numname*sizeof(IMAGE_SYMBOL)+head->pCOFF;
  488.  
  489.         listnamesymbol=(LISTNAMESYMBOL *)MALLOC(sizeof(LISTNAMESYMBOL)*numname);
  490.  
  491.         for(i=0,j=0;i<numname;i++){
  492.  
  493.                 tsym=(IMAGE_SYMBOL *)(input+head->pCOFF+i*sizeof(IMAGE_SYMBOL));
  494.  
  495.                 (listnamesymbol+j)->rec=0;
  496.  
  497.                 if(tsym->SectionNumber>=0){
  498.  
  499.                         (listnamesymbol+j)->idx=i;
  500.  
  501.                         if(tsym->N.Name.Short==0){
  502.  
  503.                                 strcpy((char *)string,(char *)(input+size+tsym->N.Name.Long));
  504.  
  505.                         }
  506.  
  507.                         else{
  508.  
  509.                                 strncpy((char *)string,(char *)tsym->N.sname,8);
  510.  
  511.                                 string[8]=0;
  512.  
  513.                         }
  514.  
  515.                         //¯à¥®¡à §®¢ âì ¨¬ï
  516.  
  517.                         ConvertName((char *)string);
  518.  
  519.                         seg=(listnamesymbol+j)->seg=GetSegm(tsym->SectionNumber);
  520.  
  521. //                      printf("find name \"%s\" seg=%d type=%d class=%d\n",(char *)string,seg,tsym->Type,tsym->StorageClass);
  522.  
  523.                         (listnamesymbol+j)->adr=tsym->Value+GetOffSec(tsym->SectionNumber);
  524.  
  525.                         (listnamesymbol+j)->dbg=0;
  526.  
  527.                         strcpy((listnamesymbol+j)->name,(char *)string);
  528.  
  529.                         if(seg==s_data){
  530.  
  531.                                 outptrdata=(listnamesymbol+j)->adr;//12.08.04 01:20 +ooutptrdata;
  532.  
  533.                                 count=FindOff(string,DS);
  534.  
  535.                         }
  536.  
  537.                         else if(seg==s_bss){
  538.  
  539.                                 postsize=(listnamesymbol+j)->adr;//12.08.04 01:20 +opostsize;
  540.  
  541.                                 count=FindOff(string,VARPOST);
  542.  
  543.                         }
  544.  
  545.                         else if(seg==s_code){
  546.  
  547.                                 outptr=(listnamesymbol+j)->adr;//11.08.04 23:59 +ooutptr;
  548.  
  549.                                 count=FindOff(string,CS);
  550.  
  551. //                              printf("adr=%08X count=%d\n",outptr,count);
  552.  
  553.                         }
  554.  
  555.                         displaytokerrors=FALSE;
  556.  
  557.                         if(searchtree2(treestart,&itok,&tok,string)){
  558.  
  559.                                 rec=(listnamesymbol+j)->rec=itok.rec;
  560.  
  561.                                 rec->count+=count;
  562.  
  563.                                 if(tok==tk_undefproc||tok==tk_declare){
  564.  
  565.                                         tok=tk_proc;
  566.  
  567.                                         itok.number=outptr;
  568.  
  569. //                                      printf("%08X %08X %s\n",(listnamesymbol+j)->adr,ooutptr,itok.name);
  570.  
  571.                                         updatecall(updatetree(),(unsigned int)itok.number,0);
  572.  
  573.                                 }
  574.  
  575.                                 else if(tok!=tk_apiproc&&tsym->SectionNumber!=0)idalreadydefined();
  576.  
  577. //                              if(tok==tk_proc||(tok>=tk_charvar&&tok<=tk_floatvar))
  578.  
  579. //                              printf("tok=%d %s\n",tok,itok.name);
  580.  
  581.                         }
  582.  
  583.                         else{
  584.  
  585.                                 if(seg==s_extern/*&&tsym->Type==32*/){  //¢­¥è­¨© ®¡ê¥ªâ «î¡®£® ⨯ 
  586.  
  587.                                         strcpy(itok.name,(char *)string);
  588.  
  589. //                                      printf("undef proc \"%s\"\n",itok.name);
  590.  
  591.                                         string[0]=0;
  592.  
  593.                                         itok.flag=(unsigned char)(tok==tk_ID?tp_fastcall:(comfile==file_w32?tp_stdcall:tp_pascal));
  594.  
  595.                                         tok=tk_undefproc;
  596.  
  597.                                         itok.number=secondcallnum;
  598.  
  599.                                         itok.segm=NOT_DYNAMIC;
  600.  
  601.                                         itok.rm=tk_void;
  602.  
  603.                                         itok.post=0;
  604.  
  605.                                         rec=(listnamesymbol+j)->rec=addtotree(itok.name);
  606.  
  607.                                         rec->count=count;
  608.  
  609.                                         secondcallnum++;
  610.  
  611.                                 }
  612.  
  613.                                 else{
  614.  
  615. //                                      printf("type=%d seg=%d\n",tsym->Type,seg);
  616.  
  617.                                         if(/*tsym->Type==32*/tsym->StorageClass!=3&&seg==s_code){
  618.  
  619.                                                 tok=tk_proc;
  620.  
  621.                                                 itok.number=outptr;
  622.  
  623.                                                 itok.segm=NOT_DYNAMIC;
  624.  
  625.                                                 itok.rm=tk_void;
  626.  
  627.                                                 itok.post=0;
  628.  
  629.                                                 strcpy(itok.name,(char *)string);
  630.  
  631.                                                 string[0]=0;
  632.  
  633.                                                 itok.flag=(unsigned char)(tok==tk_ID?tp_fastcall:(comfile==file_w32?tp_stdcall:tp_pascal));
  634.  
  635.                                                 rec=(listnamesymbol+j)->rec=addtotree(itok.name);
  636.  
  637.                                                 rec->count=count;
  638.  
  639.                                         }
  640.  
  641.                                         else{
  642.  
  643.                                                 (listnamesymbol+j)->rec=NULL;
  644.  
  645. //                                              printf("undef \"%s\"\n",string);
  646.  
  647.                                                 if(seg==s_extern){
  648.  
  649. //                                                      puts("323");
  650.  
  651.                                                         preerror(meserr);
  652.  
  653. //                      printf("Type=%d Class=%d seg=%d %s\n",tsym->Type,tsym->StorageClass,seg,string);
  654.  
  655. //                                                      printf("??? %s\n",string);
  656.  
  657.                                                 }
  658.  
  659.                                         }
  660.  
  661.                                 }
  662.  
  663.                         }
  664.  
  665. //                      printf("Type=%d Class=%d %s\n",tsym->Type,tsym->StorageClass,string);
  666.  
  667.                         j++;
  668.  
  669.                 }
  670.  
  671.                 i+=tsym->NumberOfAuxSymbols;
  672.  
  673.         }
  674.  
  675.         if(j!=numname){
  676.  
  677.                 listnamesymbol=(LISTNAMESYMBOL *)REALLOC(listnamesymbol,sizeof(LISTNAMESYMBOL)*j);
  678.  
  679.         }
  680.  
  681.         outptr=ooutptr;
  682.  
  683.         outptrdata=ooutptrdata;
  684.  
  685.         postsize=opostsize;
  686.  
  687.         if(dbg&2)AddLstName(j);
  688.  
  689.         return j;
  690.  
  691. }
  692.  
  693.  
  694.  
  695. void LoadObj()
  696.  
  697. {
  698.  
  699. COFF_HEADER *head;
  700.  
  701. int numobj,align,size,i,j,numrel;
  702.  
  703. OBJECT_ENTRY *obj;
  704.  
  705. unsigned char *buf;
  706.  
  707. IMAGE_RELOCATION *trel;
  708.  
  709.         head=(COFF_HEADER *)input;
  710.  
  711.         if(head->cpu!=0x14C){
  712.  
  713.                 sprintf((char *)string,"file %s is not supported format",curobjname);
  714.  
  715.                 preerror((char *)string);
  716.  
  717.                 return;
  718.  
  719.         }
  720.  
  721.         if(comfile!=file_w32){
  722.  
  723.                 preerror("include obj file posible only for windows programs");
  724.  
  725.                 return;
  726.  
  727.         }
  728.  
  729.         linenumber=0;
  730.  
  731.         numobj=head->numobj;
  732.  
  733.         ScanSection(numobj);
  734.  
  735.         numname=ScanName(head);
  736.  
  737.         for(i=0;i<numobj;i++){
  738.  
  739.                 obj=(OBJECT_ENTRY *)(input+(sizeof(COFF_HEADER)+sizeof(OBJECT_ENTRY)*i));
  740.  
  741.                 align=GetAlighSize(obj->flags);
  742.  
  743.                 size=obj->psize;
  744.  
  745.                 adr_end=outptr+size;
  746.  
  747.                 numrel=obj->NumberOfRelocations;
  748.  
  749.                 trel=(IMAGE_RELOCATION *)(input+obj->PointerToRelocations);
  750.  
  751.                 buf=(unsigned char *)(input+obj->pOffset);
  752.  
  753. //              printf("type=%d section=%d\n",(trel+j)->Type,obj->vsize);
  754.  
  755.                 switch(obj->vsize){
  756.  
  757.                         case s_code:
  758.  
  759.                                 if(align)AlignCD(CS,align);
  760.  
  761.                                 adr_end=Align(outptr+size,4);
  762.  
  763.                                 for(j=0;j<numrel;j++){
  764.  
  765.                                         int adr;
  766.  
  767.                                         LISTNAMESYMBOL *lns;
  768.  
  769.                                         int ii;
  770.  
  771.                                         for(ii=0;ii<numname;ii++){
  772.  
  773.                                                 if((listnamesymbol+ii)->idx==(trel+j)->SymbolTableIndex)break;
  774.  
  775.                                         }
  776.  
  777.                                         lns=(LISTNAMESYMBOL *)(listnamesymbol+ii);
  778.  
  779.                                         idrec *rec=lns->rec;
  780.  
  781. //                                      printf("type=%d seg=%d tok=%d num=%d %s\n",(trel+j)->Type,lns->seg,rec->rectok,rec->recnumber,lns->name);
  782.  
  783.                                         switch((trel+j)->Type){
  784.  
  785.                                                 case IMAGE_REL_I386_DIR32:
  786.  
  787.                                                         *(long *)&buf[(trel+j)->VirtualAddress]+=lns->adr;
  788.  
  789.                                                         switch(lns->seg){
  790.  
  791.                                                                 case s_code:
  792.  
  793.                                                                         adr=(trel+j)->VirtualAddress+outptr;
  794.  
  795.                                                                         AddPost(adr,FIX_CODE32,0);
  796.  
  797.                                                                         break;
  798.  
  799.                                                                 case s_data:
  800.  
  801.                                                                         adr=(trel+j)->VirtualAddress+outptrdata;
  802.  
  803.                                                                         AddPost(adr,FIX_VAR32,0);
  804.  
  805.                                                                         break;
  806.  
  807.                                                                 case s_bss:
  808.  
  809.                                                                         adr=(trel+j)->VirtualAddress+outptr;
  810.  
  811.                                                                         AddPost(adr,POST_VAR32,0);
  812.  
  813.                                                                         *(long *)&buf[(trel+j)->VirtualAddress]+=postsize;
  814.  
  815.                                                                         break;
  816.  
  817.                                                                 default:
  818.  
  819.                                                                         if(rec!=NULL){
  820.  
  821.                                                                                 adr=(trel+j)->VirtualAddress+outptr;
  822.  
  823.                                                                                 if(rec->rectok==tk_apiproc){
  824.  
  825.                                                                                         AddPost(adr,CALL_32I,rec->recnumber);
  826.  
  827.                                                                                 }
  828.  
  829.                                                                                 else if(rec->rectok==tk_undefproc){
  830.  
  831.                                                                                         AddPost(adr,CALL_32,rec->recnumber);
  832.  
  833.                                                                                 }
  834.  
  835.                                                                                 else if(rec->rectok==tk_proc){
  836.  
  837.                                                                                         AddPost(adr,FIX_CODE_ADD,adr_end);
  838.  
  839.                                                                                         AddPost(adr_end,FIX_CODE32,0);
  840.  
  841.                                                                                         if(dbg&2){
  842.  
  843.                                                                                                 int ooutptr=outptr;
  844.  
  845.                                                                                                 outptr=adr_end;
  846.  
  847.                                                                                                 AddDataNullLine(4,lns->name);
  848.  
  849.                                                                                                 outptr=ooutptr;
  850.  
  851.                                                                                         }
  852.  
  853.                                                                                         *(long *)&output[adr_end]=rec->recnumber;
  854.  
  855.                                                                                         adr_end+=4;
  856.  
  857.                                                                                 }
  858.  
  859.                                                                                 rec->count++;
  860.  
  861.                                                                         }
  862.  
  863.                                                                         break;
  864.  
  865.                                                         }
  866.  
  867.                                                         break;
  868.  
  869.                                                 case IMAGE_REL_I386_REL32:
  870.  
  871.                                                         adr=(trel+j)->VirtualAddress+outptr;
  872.  
  873.                                                         if(rec!=NULL){
  874.  
  875.                                                                 if(rec->rectok!=tk_proc){
  876.  
  877.                                                                         AddPost(adr,CALL_32,rec->recnumber);
  878.  
  879.                                                                 }
  880.  
  881.                                                                 else{
  882.  
  883.                                                                         *(long *)&buf[(trel+j)->VirtualAddress]=rec->recnumber-adr-4;
  884.  
  885.                                                                 }
  886.  
  887.                                                         }
  888.  
  889.                                                         else{
  890.  
  891.                                                                 *(long *)&buf[(trel+j)->VirtualAddress]=lns->adr-adr-4;
  892.  
  893.                                                         }
  894.  
  895.                                                         if(rec)rec->count++;
  896.  
  897.                                                         break;
  898.  
  899.                                                 default:
  900.  
  901. //                                                      puts("432");
  902.  
  903.                                                         preerror(meserr);
  904.  
  905.                                                         break;
  906.  
  907.                                         }
  908.  
  909.                                 }
  910.  
  911. /*                              if(dbg&2){
  912.  
  913.                                         sprintf((char *)string,"code from %s",curobjname);
  914.  
  915.                                         AddCodeNullLine((char *)string);
  916.  
  917.                                 }*/
  918.  
  919.                                 for(j=0;j<size;j++)op(buf[j]);
  920.  
  921.                                 outptr=adr_end;
  922.  
  923.                                 break;
  924.  
  925.                         case s_data:
  926.  
  927.                                 if(align)AlignCD(DS,align);
  928.  
  929.                                 for(j=0;j<numrel;j++){
  930.  
  931.                                         int adr;
  932.  
  933.                                         LISTNAMESYMBOL *lns;
  934.  
  935.                                         int ii;
  936.  
  937.                                         for(ii=0;ii<numname;ii++){
  938.  
  939.                                                 if((listnamesymbol+ii)->idx==(trel+j)->SymbolTableIndex)break;
  940.  
  941.                                         }
  942.  
  943.                                         lns=(LISTNAMESYMBOL *)(listnamesymbol+ii);
  944.  
  945.                                         idrec *rec=lns->rec;
  946.  
  947.                                         switch((trel+j)->Type){
  948.  
  949.                                                 case IMAGE_REL_I386_DIR32:
  950.  
  951.                                                         *(long *)&buf[(trel+j)->VirtualAddress]+=lns->adr;
  952.  
  953.                                                         switch(lns->seg){
  954.  
  955.                                                                 case s_code:
  956.  
  957.                                                                         adr=(trel+j)->VirtualAddress+outptr;
  958.  
  959.                                                                         AddPost(adr,FIX_CODE32,0);
  960.  
  961.                                                                         break;
  962.  
  963.                                                                 case s_data:
  964.  
  965.                                                                         adr=(trel+j)->VirtualAddress+outptrdata;
  966.  
  967.                                                                         AddPost(adr,FIX_VAR32,0);
  968.  
  969.                                                                         break;
  970.  
  971.                                                                 case s_bss:
  972.  
  973.                                                                         adr=(trel+j)->VirtualAddress+outptr;
  974.  
  975.                                                                         AddPost(adr,POST_VAR32,0);
  976.  
  977.                                                                         *(long *)&buf[(trel+j)->VirtualAddress]+=postsize;
  978.  
  979.                                                                         break;
  980.  
  981.                                                                 default:
  982.  
  983. //                                                                      puts("472");
  984.  
  985.                                                                         preerror(meserr);
  986.  
  987. /*                                                                      if(rec!=NULL){
  988.  
  989.                                                                                 adr=(trel+j)->VirtualAddress+outptr;
  990.  
  991.                                                                                 if(rec->rectok==tk_apiproc){
  992.  
  993.                                                                                         AddPost(adr,CALL_32I,rec->recnumber);
  994.  
  995.                                                                                 }
  996.  
  997.                                                                                 else if(rec->rectok==tk_undefproc){
  998.  
  999.                                                                                         AddPost(adr,CALL_32,rec->recnumber);
  1000.  
  1001.                                                                                 }
  1002.  
  1003.                                                                                 rec->count++;
  1004.  
  1005.                                                                         }*/
  1006.  
  1007.                                                                         break;
  1008.  
  1009.                                                         }
  1010.  
  1011.                                                         break;
  1012.  
  1013.                                                 case IMAGE_REL_I386_REL32:
  1014.  
  1015. //                                                      puts("488");
  1016.  
  1017.                                                         preerror(meserr);
  1018.  
  1019. /*                                                      adr=(trel+j)->VirtualAddress+outptr;
  1020.  
  1021.                                                         if(rec!=NULL){
  1022.  
  1023.                                                                 if(rec->rectok!=tk_proc){
  1024.  
  1025.                                                                         AddPost(adr,CALL_32,rec->recnumber);
  1026.  
  1027.                                                                 }
  1028.  
  1029.                                                                 else{
  1030.  
  1031.                                                                         *(long *)&buf[(trel+j)->VirtualAddress]=rec->recnumber-adr-4;
  1032.  
  1033.                                                                 }
  1034.  
  1035.                                                         }
  1036.  
  1037.                                                         else{
  1038.  
  1039.                                                                 *(long *)&buf[(trel+j)->VirtualAddress]=lns->adr-adr-4;
  1040.  
  1041.                                                         }
  1042.  
  1043.                                                         if(rec)rec->count++;*/
  1044.  
  1045.                                                         break;
  1046.  
  1047.                                         }
  1048.  
  1049.                                 }
  1050.  
  1051.                                 for(j=0;j<size;j++)opd(buf[j]);
  1052.  
  1053.                                 break;
  1054.  
  1055.                         case s_bss:
  1056.  
  1057.                                 if(align)postsize=Align(postsize,align);
  1058.  
  1059.                                 postsize+=size;
  1060.  
  1061.                                 break;
  1062.  
  1063.                 }
  1064.  
  1065.         }
  1066.  
  1067. }
  1068.  
  1069.