paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 12:59:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Update for constexprint changes.

Browse Source 
git-svn-id: trunk@7915 -
This commit is contained in:
daniel 2007-07-01 20:58:55 +00:00
parent ec2d657a32
commit 3029d2393a
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/utils/ppudump.pp
View File

@ -25,6 +25,7 @@ program ppudump;
uses
SysUtils,
constexp,
ppu,
globals,
tokens;
@ -519,6 +520,13 @@ begin
end;
end;
function getexprint:Tconstexprint;
begin
getexprint.overflow:=false;
getexprint.signed:=boolean(ppufile.getbyte);
getexprint.svalue:=ppufile.getint64;
end;
Procedure ReadPosInfo;
var
@ -1718,7 +1726,7 @@ begin
scurrency : writeln('ucurrency');
else writeln('!! Warning: Invalid base type ',b);
end;
writeln(space,' Range : ',getint64,' to ',getint64);
writeln(space,' Range : ',constexp.tostr(getexprint),' to ',constexp.tostr(getexprint));
end;
ibfloatdef :