paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 20:20:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed rangecheck error with derefdata

Browse Source
This commit is contained in:
peter 2004-11-16 20:49:08 +00:00
parent 87d2861f89
commit 4ef34e7e43
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/utils/ppudump.pp
View File

@ -387,14 +387,14 @@ end;
procedure ReadLoadUnit;
var
ucrc,uintfcrc : longint;
ucrc,uintfcrc : cardinal;
begin
while not ppufile.EndOfEntry do
begin
inc(unitnumber);
write('Uses unit: ',ppufile.getstring,' (Number: ',unitnumber,')');
ucrc:=ppufile.getlongint;
uintfcrc:=ppufile.getlongint;
ucrc:=cardinal(ppufile.getlongint);
uintfcrc:=cardinal(ppufile.getlongint);
writeln(' (Crc: ',hexstr(ucrc,8),', IntfcCrc: ',hexstr(uintfcrc,8),')');
end;
end;
@ -523,7 +523,7 @@ type
var
b : tdereftype;
first : boolean;
idx : word;
idx : longint;
i,n : byte;
pdata : pbyte;
begin
@ -2083,7 +2083,10 @@ begin
end.
{
$Log$
Revision 1.59 2004-11-15 23:35:31 peter
Revision 1.60 2004-11-16 20:49:08 peter
* fixed rangecheck error with derefdata
Revision 1.59 2004/11/15 23:35:31 peter
* tparaitem removed, use tparavarsym instead
* parameter order is now calculated from paranr value in tparavarsym