paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 11:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made script target indepedent

Browse Source
This commit is contained in:
peter 2001-08-07 18:44:09 +00:00
parent 7d45ac61de
commit bcb8c55d04
1 changed files with 8 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/script.pas
View File

@ -347,30 +347,14 @@ end;
Procedure GenerateAsmRes(const st : string);
begin
{$ifdef i386}
case target_info.target of
target_i386_linux,
target_i386_freebsd,
target_i386_sunos,
target_i386_beos :
case target_info.script of
script_unix :
AsmRes:=TAsmScriptUnix.Create(st);
else
script_dos :
AsmRes:=TAsmScriptDos.Create(st);
end;
{$else not i386}
{$ifdef m68k}
case target_info.target of
target_m68k_amiga :
script_amiga :
AsmRes:=TAsmScriptAmiga.Create(st);
target_m68k_linux :
AsmRes:=TAsmScriptUnix.Create(st);
else
AsmRes:=TAsmScriptDos.Create(st);
end;
{$else not m68k}
AsmRes:=TAsmScriptUnix.Create(st);
{$endif not m68k}
{$endif not i386}
end;
@ -398,7 +382,10 @@ end;
end.
{
$Log$
Revision 1.11 2001-07-30 20:59:27 peter
Revision 1.12 2001-08-07 18:44:09 peter
* made script target indepedent
Revision 1.11 2001/07/30 20:59:27 peter
* m68k updates from v10 merged
Revision 1.10 2001/07/10 21:01:35 peter