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

* check if procinfo.def is assigned before storing registersfpu

Browse Source
This commit is contained in:
peter 1998-09-21 10:01:06 +00:00
parent d7c4af3627
commit ce9bc412b6
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pass_2.pas
View File

@ -470,7 +470,9 @@ implementation
make_const_global:=true; make_const_global:=true;
do_secondpass(p); do_secondpass(p);
procinfo.def^.fpu_used:=p^.registersfpu; if assigned(procinfo.def) then
procinfo.def^.fpu_used:=p^.registersfpu;
{ all registers can be used again } { all registers can be used again }
resetusableregisters; resetusableregisters;
end; end;
@ -481,7 +483,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.4 1998-09-21 08:45:16 pierre Revision 1.5 1998-09-21 10:01:06 peter
* check if procinfo.def is assigned before storing registersfpu
Revision 1.4 1998/09/21 08:45:16 pierre
+ added vmt_offset in tobjectdef.write for fututre use + added vmt_offset in tobjectdef.write for fututre use
(first steps to have objects without vmt if no virtual !!) (first steps to have objects without vmt if no virtual !!)
+ added fpu_used field for tabstractprocdef : + added fpu_used field for tabstractprocdef :