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

+ register allocators are set to nil now after they are freed

Browse Source
This commit is contained in:
florian 2003-12-18 01:03:52 +00:00
parent ce052a6eba
commit 7bd24b32c3
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/powerpc/cgcpu.pas
View File

@ -186,8 +186,11 @@ const
procedure tcgppc.done_register_allocators; procedure tcgppc.done_register_allocators;
begin begin
rg[R_INTREGISTER].free; rg[R_INTREGISTER].free;
rg[R_INTREGISTER]:=nil;
rg[R_FPUREGISTER].free; rg[R_FPUREGISTER].free;
rg[R_FPUREGISTER]:=nil;
rg[R_MMREGISTER].free; rg[R_MMREGISTER].free;
rg[R_MMREGISTER]:=nil;
end; end;
@ -2314,7 +2317,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.148 2003-12-16 21:49:47 florian Revision 1.149 2003-12-18 01:03:52 florian
+ register allocators are set to nil now after they are freed
Revision 1.148 2003/12/16 21:49:47 florian
* fixed ppc compilation * fixed ppc compilation
Revision 1.147 2003/12/15 21:37:09 jonas Revision 1.147 2003/12/15 21:37:09 jonas