paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support for generating multiple script files (.sh/.bat/.cmd/...) with link

Browse Source 
commands

git-svn-id: trunk@20847 -
This commit is contained in:
Jonas Maebe 2012-04-11 18:07:01 +00:00
parent ebc542a48b
commit ec1cceb3d1
1 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/script.pas
View File

@ -101,6 +101,7 @@ var
Function ScriptFixFileName(const s:TCmdStr):TCmdStr;
Procedure GenerateAsmRes(const st : TCmdStr);
Function GenerateScript(const st : TCmdStr): TAsmScript;
implementation
@ -459,25 +460,30 @@ end;
Procedure GenerateAsmRes(const st : TCmdStr);
var
scripttyp : tscripttype;
begin
if cs_link_on_target in current_settings.globalswitches then
scripttyp := target_info.script
else
scripttyp := source_info.script;
case scripttyp of
script_unix :
AsmRes:=TAsmScriptUnix.Create(st);
script_dos :
AsmRes:=TAsmScriptDos.Create(st);
script_amiga :
AsmRes:=TAsmScriptAmiga.Create(st);
script_mpw :
AsmRes:=TAsmScriptMPW.Create(st);
end;
AsmRes:=GenerateScript(st);
end;
function GenerateScript(const st: TCmdStr): TAsmScript;
var
scripttyp : tscripttype;
begin
if cs_link_on_target in current_settings.globalswitches then
scripttyp := target_info.script
else
scripttyp := source_info.script;
case scripttyp of
script_unix :
Result:=TAsmScriptUnix.Create(st);
script_dos :
Result:=TAsmScriptDos.Create(st);
script_amiga :
Result:=TAsmScriptAmiga.Create(st);
script_mpw :
Result:=TAsmScriptMPW.Create(st);
end;
end;
{****************************************************************************
Link Response