paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 08:43:07 +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 else
write(', '); write(', ');
write(varopt[i].str); write(varopt[i].str);
if varopt[i].mask = vo_has_section then
writeln(['Section name:',ppufile.getansistring]);
end; end;
writeln; writeln;
end; end;
@ -2479,6 +2477,10 @@ begin
{$else symansistr} {$else symansistr}
writeln([space,' Mangledname : ',getstring]); writeln([space,' Mangledname : ',getstring]);
{$endif symansistr} {$endif symansistr}
if vo_has_section in varoptions then
writeln(['Section name:',ppufile.getansistring]);
write ([space,' FieldVarSymDeref: ']);
readderef('');
end; end;
iblocalvarsym : iblocalvarsym :
@ -2978,6 +2980,7 @@ begin
readcommondef('UnicodeString definition',defoptions,strdef); readcommondef('UnicodeString definition',defoptions,strdef);
strdef.Len:=getaint; strdef.Len:=getaint;
writeln([space,' Length : ',strdef.Len]); writeln([space,' Length : ',strdef.Len]);
writeln([space,' Encoding : ',getword]);
end; end;
ibansistringdef : ibansistringdef :
@ -2987,6 +2990,7 @@ begin
readcommondef('AnsiString definition',defoptions,strdef); readcommondef('AnsiString definition',defoptions,strdef);
strdef.Len:=getaint; strdef.Len:=getaint;
writeln([space,' Length : ',strdef.Len]); writeln([space,' Length : ',strdef.Len]);
writeln([space,' Encoding : ',getword]);
end; end;
iblongstringdef : iblongstringdef :