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

* removed "inline" directive from TGNUAssembler.WriteInstruction

Browse Source 
because it triggers an internalerror when loading the nodetree
    for that method from the ppu file

git-svn-id: trunk@2880 -
This commit is contained in:
Jonas Maebe 2006-03-11 23:29:47 +00:00
parent 78cbcf8579
commit 693412e70c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aggas.pas
View File

@ -50,7 +50,7 @@ interface
function sectionname(atype:TAsmSectiontype;const aname:string):string;virtual;
procedure WriteSection(atype:TAsmSectiontype;const aname:string);
procedure WriteExtraHeader;virtual;
procedure WriteInstruction(hp: tai);{$ifdef USEINLINE}inline;{$endif}
procedure WriteInstruction(hp: tai);
public
procedure WriteTree(p:TAAsmoutput);override;
procedure WriteAsmList;override;
@ -1000,7 +1000,7 @@ implementation
end;
procedure TGNUAssembler.WriteInstruction(hp: tai);{$ifdef USEINLINE}inline;{$endif}
procedure TGNUAssembler.WriteInstruction(hp: tai);
begin
InstrWriter.WriteInstruction(hp);
end;