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

regvar ppu writing doesn't affect any crc

Browse Source
This commit is contained in:
peter 2004-10-10 09:31:28 +00:00
parent 0f26252376
commit 5ca70455ed
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/symsym.pas
View File

@ -1235,10 +1235,10 @@ implementation
{ Note: This needs to write everything of tvarsym.write } { Note: This needs to write everything of tvarsym.write }
inherited writesym(ppufile); inherited writesym(ppufile);
ppufile.putbyte(byte(varspez)); ppufile.putbyte(byte(varspez));
oldintfcrc:=ppufile.do_interface_crc; oldintfcrc:=ppufile.do_crc;
ppufile.do_interface_crc:=false; ppufile.do_crc:=false;
ppufile.putbyte(byte(varregable)); ppufile.putbyte(byte(varregable));
ppufile.do_interface_crc:=oldintfcrc; ppufile.do_crc:=oldintfcrc;
ppufile.putlongint(fieldoffset); ppufile.putlongint(fieldoffset);
{ write only definition or definitionsym } { write only definition or definitionsym }
ppufile.puttype(vartype); ppufile.puttype(vartype);
@ -1385,10 +1385,10 @@ implementation
begin begin
inherited writesym(ppufile); inherited writesym(ppufile);
ppufile.putbyte(byte(varspez)); ppufile.putbyte(byte(varspez));
oldintfcrc:=ppufile.do_interface_crc; oldintfcrc:=ppufile.do_crc;
ppufile.do_interface_crc:=false; ppufile.do_crc:=false;
ppufile.putbyte(byte(varregable)); ppufile.putbyte(byte(varregable));
ppufile.do_interface_crc:=oldintfcrc; ppufile.do_crc:=oldintfcrc;
ppufile.putlongint(fieldoffset); ppufile.putlongint(fieldoffset);
ppufile.puttype(vartype); ppufile.puttype(vartype);
ppufile.putsmallset(varoptions); ppufile.putsmallset(varoptions);
@ -2218,7 +2218,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.180 2004-10-08 17:09:43 peter Revision 1.181 2004-10-10 09:31:28 peter
regvar ppu writing doesn't affect any crc
Revision 1.180 2004/10/08 17:09:43 peter
* tvarsym.varregable added, split vo_regable from varoptions * tvarsym.varregable added, split vo_regable from varoptions
Revision 1.179 2004/10/06 19:26:50 jonas Revision 1.179 2004/10/06 19:26:50 jonas