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

* last memory leaks found when compiler

Browse Source 
a native atari compiler fixed
This commit is contained in:
pierre 1998-10-15 12:41:16 +00:00
parent 1e9ae4a7ea
commit 397be1fe09
3 changed files with 23 additions and 5 deletions

8
compiler/cg68kcal.pas
View File

@ -511,6 +511,8 @@ implementation
p^.methodpointer:=genzeronode(callparan);
p^.methodpointer^.location.loc:=LOC_REGISTER;
p^.methodpointer^.location.register:=R_A5;
{ change dispose type !! }
p^.disposetyp:=dt_mbleft_and_method;
{ make a reference }
new(r);
reset_reference(r^);
@ -1047,7 +1049,11 @@ implementation
end.
{
$Log$
Revision 1.9 1998-10-14 11:28:16 florian
Revision 1.10 1998-10-15 12:41:16 pierre
* last memory leaks found when compiler
a native atari compiler fixed
Revision 1.9 1998/10/14 11:28:16 florian
* emitpushreferenceaddress gets now the asmlist as parameter
* m68k version compiles with -duseansistrings

10
compiler/cg68kcnv.pas
View File

@ -1026,7 +1026,7 @@ implementation
procedure second_proc_to_procvar(p,hp : ptree;convtyp : tconverttype);
begin
secondpass(hp);
{ secondpass(hp); already done in secondtypeconv PM }
clear_location(p^.location);
p^.location.loc:=LOC_REGISTER;
del_reference(hp^.location.reference);
@ -1142,6 +1142,8 @@ implementation
else
internalerror(10061);
end;
freelabel(truelabel);
freelabel(falselabel);
truelabel:=oldtruelabel;
falselabel:=oldfalselabel;
end;
@ -1396,7 +1398,11 @@ implementation
end.
{
$Log$
Revision 1.9 1998-10-14 11:28:17 florian
Revision 1.10 1998-10-15 12:41:17 pierre
* last memory leaks found when compiler
a native atari compiler fixed
Revision 1.9 1998/10/14 11:28:17 florian
* emitpushreferenceaddress gets now the asmlist as parameter
* m68k version compiles with -duseansistrings

10
compiler/cg68kset.pas
View File

@ -453,7 +453,9 @@ implementation
{ the complex one first }
firstcomplex(p);
secondpass(p^.left);
set_location(p^.location,p^.left^.location);
{
unnecessary !! PM
set_location(p^.location,p^.left^.location);}
{ are too few registers free? }
pushed:=maybe_push(p^.right^.registers32,p);
secondpass(p^.right);
@ -812,7 +814,11 @@ implementation
end.
{
$Log$
Revision 1.6 1998-10-13 16:50:11 pierre
Revision 1.7 1998-10-15 12:41:19 pierre
* last memory leaks found when compiler
a native atari compiler fixed
Revision 1.6 1998/10/13 16:50:11 pierre
* undid some changes of Peter that made the compiler wrong
for m68k (I had to reinsert some ifdefs)
* removed several memory leaks under m68k