Explorar el Código

section order changed to get closer output from coff writer

pierre hace 26 años
padre
commit
337f054764
Se han modificado 3 ficheros con 20 adiciones y 7 borrados
  1. 6 2
      compiler/aasm.pas
  2. 6 2
      compiler/ag386nsm.pas
  3. 8 3
      compiler/ag68kmit.pas

+ 6 - 2
compiler/aasm.pas

@@ -72,8 +72,9 @@ unit aasm;
 
        tsection=(sec_none,
          sec_code,sec_data,sec_bss,
+         sec_stab,sec_stabstr,
          sec_idata2,sec_idata4,sec_idata5,sec_idata6,sec_idata7,sec_edata,
-         sec_stab,sec_stabstr,sec_fake
+         sec_fake
        );
 
 
@@ -1012,7 +1013,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.36  1999-03-08 14:51:04  peter
+  Revision 1.37  1999-03-10 13:25:42  pierre
+    section order changed to get closer output from coff writer
+
+  Revision 1.36  1999/03/08 14:51:04  peter
     + smartlinking for ag386bin
 
   Revision 1.35  1999/03/05 13:09:48  peter

+ 6 - 2
compiler/ag386nsm.pas

@@ -342,8 +342,9 @@ unit ag386nsm;
 
       ait_section2nasmstr : array[tsection] of string[8]=
        ('','.text','.data','.bss',
+        '.stab','.stabstr',
         '.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
-        '.stab','.stabstr','');
+        '');
 
     Function PadTabs(const p:string;addch:char):string;
     var
@@ -751,7 +752,10 @@ ait_stab_function_name : ;
 end.
 {
   $Log$
-  Revision 1.23  1999-03-04 13:55:39  pierre
+  Revision 1.24  1999-03-10 13:25:44  pierre
+    section order changed to get closer output from coff writer
+
+  Revision 1.23  1999/03/04 13:55:39  pierre
     * some m68k fixes (still not compilable !)
     * new(tobj) does not give warning if tobj has no VMT !
 

+ 8 - 3
compiler/ag68kmit.pas

@@ -259,8 +259,10 @@ unit ag68kmit;
         (#9'.long'#9,#9'.short'#9,#9'.byte'#9);
 
       ait_section2str : array[tsection] of string[8]=
-       ('','.text','.data','.bss','.idata2','.idata4','.idata5','.idata6','.idata7',
-        '.edata','.stab','.stabstr');
+       ('','.text','.data','.bss',
+        '.stab','.stabstr',
+        '.idata2','.idata4','.idata5','.idata6','.idata7',
+        '.edata','');
 
     procedure tm68kmitasmlist.WriteTree(p:paasmoutput);
     var
@@ -666,7 +668,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
 end.
 {
   $Log$
-  Revision 1.20  1999-03-04 13:55:40  pierre
+  Revision 1.21  1999-03-10 13:25:45  pierre
+    section order changed to get closer output from coff writer
+
+  Revision 1.20  1999/03/04 13:55:40  pierre
     * some m68k fixes (still not compilable !)
     * new(tobj) does not give warning if tobj has no VMT !