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