paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 09:39:33 +01: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); Procedure GenerateAsmRes(const st : string);
begin begin
{$ifdef i386} case target_info.script of
case target_info.target of script_unix :
target_i386_linux,
target_i386_freebsd,
target_i386_sunos,
target_i386_beos :
AsmRes:=TAsmScriptUnix.Create(st); AsmRes:=TAsmScriptUnix.Create(st);
else script_dos :
AsmRes:=TAsmScriptDos.Create(st); AsmRes:=TAsmScriptDos.Create(st);
end; script_amiga :
{$else not i386}
{$ifdef m68k}
case target_info.target of
target_m68k_amiga :
AsmRes:=TAsmScriptAmiga.Create(st); AsmRes:=TAsmScriptAmiga.Create(st);
target_m68k_linux :
AsmRes:=TAsmScriptUnix.Create(st);
else
AsmRes:=TAsmScriptDos.Create(st);
end; end;
{$else not m68k}
AsmRes:=TAsmScriptUnix.Create(st);
{$endif not m68k}
{$endif not i386}
end; end;
@ -398,7 +382,10 @@ end;
end. end.
{ {
$Log$ $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 * m68k updates from v10 merged
Revision 1.10 2001/07/10 21:01:35 peter Revision 1.10 2001/07/10 21:01:35 peter