paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

section order changed to get closer output from coff writer

Browse Source
This commit is contained in:
pierre 1999-03-10 13:25:42 +00:00
parent a514c02e9b
commit 337f054764
3 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aasm.pas
View File

@ -72,8 +72,9 @@ unit aasm;
tsection=(sec_none, tsection=(sec_none,
sec_code,sec_data,sec_bss, sec_code,sec_data,sec_bss,
sec_stab,sec_stabstr,
sec_idata2,sec_idata4,sec_idata5,sec_idata6,sec_idata7,sec_edata, 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. end.
{ {
$Log$ $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 + smartlinking for ag386bin
Revision 1.35 1999/03/05 13:09:48 peter Revision 1.35 1999/03/05 13:09:48 peter

8
compiler/ag386nsm.pas
View File

@ -342,8 +342,9 @@ unit ag386nsm;
ait_section2nasmstr : array[tsection] of string[8]= ait_section2nasmstr : array[tsection] of string[8]=
('','.text','.data','.bss', ('','.text','.data','.bss',
'.stab','.stabstr',
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata', '.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
'.stab','.stabstr',''); '');
Function PadTabs(const p:string;addch:char):string; Function PadTabs(const p:string;addch:char):string;
var var
@ -751,7 +752,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $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 !) * some m68k fixes (still not compilable !)
* new(tobj) does not give warning if tobj has no VMT ! * new(tobj) does not give warning if tobj has no VMT !

11
compiler/ag68kmit.pas
View File

@ -259,8 +259,10 @@ unit ag68kmit;
(#9'.long'#9,#9'.short'#9,#9'.byte'#9); (#9'.long'#9,#9'.short'#9,#9'.byte'#9);
ait_section2str : array[tsection] of string[8]= ait_section2str : array[tsection] of string[8]=
('','.text','.data','.bss','.idata2','.idata4','.idata5','.idata6','.idata7', ('','.text','.data','.bss',
'.edata','.stab','.stabstr'); '.stab','.stabstr',
'.idata2','.idata4','.idata5','.idata6','.idata7',
'.edata','');
procedure tm68kmitasmlist.WriteTree(p:paasmoutput); procedure tm68kmitasmlist.WriteTree(p:paasmoutput);
var var
@ -666,7 +668,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
end. end.
{ {
$Log$ $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 !) * some m68k fixes (still not compilable !)
* new(tobj) does not give warning if tobj has no VMT ! * new(tobj) does not give warning if tobj has no VMT !