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

* fixed crash with writing of the linker script

Browse Source
This commit is contained in:
peter 2001-07-10 21:01:35 +00:00
parent 5c0d161bef
commit f44c50aafb
2 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/script.pas
View File

@ -58,7 +58,6 @@ type
var var
AsmRes : TAsmScript; AsmRes : TAsmScript;
LinkRes : TLinkRes;
implementation implementation
@ -238,7 +237,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.9 2001-04-18 22:01:58 peter Revision 1.10 2001-07-10 21:01:35 peter
* fixed crash with writing of the linker script
Revision 1.9 2001/04/18 22:01:58 peter
* registration of targets and assemblers * registration of targets and assemblers
Revision 1.8 2001/04/13 01:22:14 peter Revision 1.8 2001/04/13 01:22:14 peter

33
compiler/targets/t_go32v2.pas
View File

@ -166,20 +166,6 @@ begin
ScriptRes.Add('OUTPUT_FORMAT("coff-go32-exe")'); ScriptRes.Add('OUTPUT_FORMAT("coff-go32-exe")');
ScriptRes.Add('ENTRY(start)'); ScriptRes.Add('ENTRY(start)');
{ Write path to search libraries }
HPath:=TStringListItem(current_module.locallibrarysearchpath.First);
while assigned(HPath) do
begin
LinkRes.Add('SEARCH_PATH("'+GetShortName(HPath.Str)+'")');
HPath:=TStringListItem(HPath.Next);
end;
HPath:=TStringListItem(LibrarySearchPath.First);
while assigned(HPath) do
begin
LinkRes.Add('SEARCH_PATH("'+GetShortName(HPath.Str)+'")');
HPath:=TStringListItem(HPath.Next);
end;
ScriptRes.Add('SECTIONS'); ScriptRes.Add('SECTIONS');
ScriptRes.Add('{'); ScriptRes.Add('{');
ScriptRes.Add(' .text 0x1000+SIZEOF_HEADERS : {'); ScriptRes.Add(' .text 0x1000+SIZEOF_HEADERS : {');
@ -226,6 +212,20 @@ begin
ScriptRes.Add(' }'); ScriptRes.Add(' }');
ScriptRes.Add(' }'); ScriptRes.Add(' }');
{ Write path to search libraries }
HPath:=TStringListItem(current_module.locallibrarysearchpath.First);
while assigned(HPath) do
begin
ScriptRes.Add('SEARCH_DIR("'+GetShortName(HPath.Str)+'")');
HPath:=TStringListItem(HPath.Next);
end;
HPath:=TStringListItem(LibrarySearchPath.First);
while assigned(HPath) do
begin
ScriptRes.Add('SEARCH_DIR("'+GetShortName(HPath.Str)+'")');
HPath:=TStringListItem(HPath.Next);
end;
{ Write staticlibraries } { Write staticlibraries }
if not StaticLibFiles.Empty then if not StaticLibFiles.Empty then
begin begin
@ -481,7 +481,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.8 2001-07-01 20:16:20 peter Revision 1.9 2001-07-10 21:01:35 peter
* fixed crash with writing of the linker script
Revision 1.8 2001/07/01 20:16:20 peter
* alignmentinfo record added * alignmentinfo record added
* -Oa argument supports more alignment settings that can be specified * -Oa argument supports more alignment settings that can be specified
per type: PROC,LOOP,VARMIN,VARMAX,CONSTMIN,CONSTMAX,RECORDMIN per type: PROC,LOOP,VARMIN,VARMAX,CONSTMIN,CONSTMAX,RECORDMIN