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

Adapt ppudump to fix introduced in revision 39912

Browse Source 
git-svn-id: trunk@39914 -
This commit is contained in:
pierre 2018-10-12 06:05:50 +00:00
parent 66e7c78a8f
commit a898ae856f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3313,7 +3313,7 @@ begin
strdef:=TPpuStringDef.Create(ParentDef);
strdef.StrType:=stWide;
readcommondef('WideString definition',defoptions,strdef);
strdef.Len:=getaint;
strdef.Len:=getasizeint;
writeln([space,' Length : ',strdef.Len]);
end;
@ -3322,7 +3322,7 @@ begin
strdef:=TPpuStringDef.Create(ParentDef);
strdef.StrType:=stUnicode;
readcommondef('UnicodeString definition',defoptions,strdef);
strdef.Len:=getaint;
strdef.Len:=getasizeint;
writeln([space,' Length : ',strdef.Len]);
writeln([space,' Encoding : ',getword]);
end;
@ -3332,7 +3332,7 @@ begin
strdef:=TPpuStringDef.Create(ParentDef);
strdef.StrType:=stAnsi;
readcommondef('AnsiString definition',defoptions,strdef);
strdef.Len:=getaint;
strdef.Len:=getasizeint;
writeln([space,' Length : ',strdef.Len]);
writeln([space,' Encoding : ',getword]);
end;
@ -3342,7 +3342,7 @@ begin
strdef:=TPpuStringDef.Create(ParentDef);
strdef.StrType:=stLong;
readcommondef('Longstring definition',defoptions,strdef);
strdef.Len:=getaint;
strdef.Len:=getasizeint;
writeln([space,' Length : ',strdef.Len]);
end;