paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TPPCMPWAssembler: small improvement for the debug output of writeexternal()

Browse Source 
git-svn-id: trunk@36884 -
This commit is contained in:
svenbarth 2017-08-12 14:25:00 +00:00
parent 86e50d4a26
commit 4c71fb9e28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/powerpc/agppcmpw.pas
View File

@ -1101,7 +1101,7 @@ interface
begin begin
if tasmsymbol(p).bind in [AB_EXTERNAL,AB_EXTERNAL_INDIRECT] then if tasmsymbol(p).bind in [AB_EXTERNAL,AB_EXTERNAL_INDIRECT] then
begin begin
//Writeln('ZZZ ',p.name,' ',p.classname,' ',Ord(tasmsymbol(p).typ)); //Writeln('ZZZ ',p.name,' ',p.typ);
s:= p.name; s:= p.name;
replaced:= ReplaceForbiddenChars(s); replaced:= ReplaceForbiddenChars(s);