paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 19:57:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

* varspez shouldn't be part of the crc

Browse Source 
git-svn-id: trunk@5058 -
This commit is contained in:
florian 2006-10-29 12:37:05 +00:00
parent b64548e25c
commit 30ea65a89c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symsym.pas
View File

@ -1575,6 +1575,8 @@ implementation
procedure tparavarsym.ppuwrite(ppufile:tcompilerppufile);
var
oldintfcrc : boolean;
begin
inherited ppuwrite(ppufile);
ppufile.putword(paranr);
@ -1583,7 +1585,10 @@ implementation
we write them to the unit file.
This enables constant folding for inline procedures loaded from units
}
ppufile.putbyte(ord(vs_readwritten));
oldintfcrc:=ppufile.do_crc;
ppufile.do_crc:=false;
ppufile.putbyte(ord(varstate));
ppufile.do_crc:=oldintfcrc;
if vo_has_explicit_paraloc in varoptions then
begin