paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 17:10:31 +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); procedure tparavarsym.ppuwrite(ppufile:tcompilerppufile);
var
oldintfcrc : boolean;
begin begin
inherited ppuwrite(ppufile); inherited ppuwrite(ppufile);
ppufile.putword(paranr); ppufile.putword(paranr);
@ -1583,7 +1585,10 @@ implementation
we write them to the unit file. we write them to the unit file.
This enables constant folding for inline procedures loaded from units 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 if vo_has_explicit_paraloc in varoptions then
begin begin