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

* used target_asm.id instead of target_info.assem

Browse Source
This commit is contained in:
peter 2001-04-21 15:34:49 +00:00
parent e0ecf5ab1b
commit 7583ae7d01
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/assemble.pas
View File

@ -1466,10 +1466,9 @@ Implementation
var
a : TAssembler;
begin
if assigned(CAssembler[target_info.assem]) then
a:=CAssembler[target_info.assem].Create(smart)
else
if not assigned(CAssembler[target_asm.id]) then
Message(asmw_f_assembler_output_not_supported);
a:=CAssembler[target_asm.id].Create(smart);
a.MakeObject;
a.Free;
end;
@ -1505,9 +1504,9 @@ Implementation
procedure InitAssembler;
begin
initoutputformat:=target_info.assem;
aktoutputformat:=target_info.assem;
set_target_asm(target_info.assem);
{ target_asm is already set by readarguments }
initoutputformat:=target_asm.id;
aktoutputformat:=target_asm.id;
end;
@ -1518,7 +1517,10 @@ Implementation
end.
{
$Log$
Revision 1.18 2001-04-18 22:01:53 peter
Revision 1.19 2001-04-21 15:34:49 peter
* used target_asm.id instead of target_info.assem
Revision 1.18 2001/04/18 22:01:53 peter
* registration of targets and assemblers
Revision 1.17 2001/04/13 01:22:06 peter