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

- removed storing/loading unused byte for tprocdef.fpu_used

Browse Source 
git-svn-id: trunk@27434 -
This commit is contained in:
Jonas Maebe 2014-04-01 21:41:14 +00:00
parent 0a7b795744
commit 806bf0b88e
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/symdef.pas
View File

@ -4257,8 +4257,6 @@ implementation
minparacount:=0; minparacount:=0;
maxparacount:=0; maxparacount:=0;
ppufile.getderef(returndefderef); ppufile.getderef(returndefderef);
{ TODO: remove fpu_used loading}
ppufile.getbyte;
proctypeoption:=tproctypeoption(ppufile.getbyte); proctypeoption:=tproctypeoption(ppufile.getbyte);
proccalloption:=tproccalloption(ppufile.getbyte); proccalloption:=tproccalloption(ppufile.getbyte);
ppufile.getnormalset(procoptions); ppufile.getnormalset(procoptions);
@ -4284,7 +4282,6 @@ implementation
ppufile.putderef(returndefderef); ppufile.putderef(returndefderef);
oldintfcrc:=ppufile.do_interface_crc; oldintfcrc:=ppufile.do_interface_crc;
ppufile.do_interface_crc:=false; ppufile.do_interface_crc:=false;
ppufile.putbyte(0);
ppufile.putbyte(ord(proctypeoption)); ppufile.putbyte(ord(proctypeoption));
ppufile.putbyte(ord(proccalloption)); ppufile.putbyte(ord(proccalloption));
ppufile.putnormalset(procoptions); ppufile.putnormalset(procoptions);