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

Fix remaining failure for make testppudump at compiler level

Browse Source 
git-svn-id: trunk@27568 -
This commit is contained in:
pierre 2014-04-13 19:31:55 +00:00
parent ce0bd81273
commit 365666c833
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/utils/ppuutils/ppudump.pp
View File

@ -1883,8 +1883,6 @@ begin
else
write(', ');
write(varopt[i].str);
if varopt[i].mask = vo_has_section then
writeln(['Section name:',ppufile.getansistring]);
end;
writeln;
end;
@ -2479,6 +2477,10 @@ begin
{$else symansistr}
writeln([space,' Mangledname : ',getstring]);
{$endif symansistr}
if vo_has_section in varoptions then
writeln(['Section name:',ppufile.getansistring]);
write ([space,' FieldVarSymDeref: ']);
readderef('');
end;
iblocalvarsym :
@ -2978,6 +2980,7 @@ begin
readcommondef('UnicodeString definition',defoptions,strdef);
strdef.Len:=getaint;
writeln([space,' Length : ',strdef.Len]);
writeln([space,' Encoding : ',getword]);
end;
ibansistringdef :
@ -2987,6 +2990,7 @@ begin
readcommondef('AnsiString definition',defoptions,strdef);
strdef.Len:=getaint;
writeln([space,' Length : ',strdef.Len]);
writeln([space,' Encoding : ',getword]);
end;
iblongstringdef :