Przeglądaj źródła

* removed "inline" directive from TGNUAssembler.WriteInstruction
because it triggers an internalerror when loading the nodetree
for that method from the ppu file

git-svn-id: trunk@2880 -

Jonas Maebe 19 lat temu
rodzic
commit
693412e70c
1 zmienionych plików z 2 dodań i 2 usunięć
  1. 2 2
      compiler/aggas.pas

+ 2 - 2
compiler/aggas.pas

@@ -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;