paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 15:05:58 +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; procedure ReadLoadUnit;
var var
ucrc,uintfcrc : longint; ucrc,uintfcrc : cardinal;
begin begin
while not ppufile.EndOfEntry do while not ppufile.EndOfEntry do
begin begin
inc(unitnumber); inc(unitnumber);
write('Uses unit: ',ppufile.getstring,' (Number: ',unitnumber,')'); write('Uses unit: ',ppufile.getstring,' (Number: ',unitnumber,')');
ucrc:=ppufile.getlongint; ucrc:=cardinal(ppufile.getlongint);
uintfcrc:=ppufile.getlongint; uintfcrc:=cardinal(ppufile.getlongint);
writeln(' (Crc: ',hexstr(ucrc,8),', IntfcCrc: ',hexstr(uintfcrc,8),')'); writeln(' (Crc: ',hexstr(ucrc,8),', IntfcCrc: ',hexstr(uintfcrc,8),')');
end; end;
end; end;
@ -523,7 +523,7 @@ type
var var
b : tdereftype; b : tdereftype;
first : boolean; first : boolean;
idx : word; idx : longint;
i,n : byte; i,n : byte;
pdata : pbyte; pdata : pbyte;
begin begin
@ -2083,7 +2083,10 @@ begin
end. end.
{ {
$Log$ $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 * tparaitem removed, use tparavarsym instead
* parameter order is now calculated from paranr value in tparavarsym * parameter order is now calculated from paranr value in tparavarsym