paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:09:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation

Browse Source 
git-svn-id: trunk@5141 -
This commit is contained in:
Jonas Maebe 2006-11-01 01:10:58 +00:00
parent aa65525fff
commit c2c0b7a4e7
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/powerpc/agppcmpw.pas
View File

@ -1123,7 +1123,7 @@ interface
var
currentasmlist : TExternalAssembler;
procedure writeexternal(p:tnamedindexitem;arg:pointer);
procedure writeexternal(p:tasmsymbol);
var
s:string;
@ -1202,10 +1202,16 @@ interface
end;
procedure TPPCMPWAssembler.WriteExternals;
var
i : longint;
begin
currentasmlist:=self;
current_asmdata.asmsymboldict.foreach_static(@writeexternal,nil);
end;
// current_asmdata.asmsymboldict.foreach_static(@writeexternal,nil);
for i:=0 to current_asmdata.AsmSymbolDict.Count-1 do
begin
writeexternal(tasmsymbol(current_asmdata.AsmSymbolDict[i]));
end;
end;
function TPPCMPWAssembler.DoAssemble : boolean;