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

* checkpointer code was wrong!

Browse Source
This commit is contained in:
pierre 1999-05-18 22:11:52 +00:00
parent d7b52d0183
commit 385c1ec248
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cg386mem.pas
View File

@ -318,8 +318,8 @@ implementation
(cs_gdb_heaptrc in aktglobalswitches) and
(cs_checkpointer in aktglobalswitches) then
begin
exprasmlist^.concat(new(pai386,op_ref(
A_PUSH,S_L,newreference(p^.location.reference))));
exprasmlist^.concat(new(pai386,op_reg(
A_PUSH,S_L,p^.location.reference.base)));
emitcall('FPC_CHECKPOINTER',true);
end;
end;
@ -884,7 +884,10 @@ implementation
end.
{
$Log$
Revision 1.41 1999-05-18 21:58:29 florian
Revision 1.42 1999-05-18 22:11:52 pierre
* checkpointer code was wrong!
Revision 1.41 1999/05/18 21:58:29 florian
* fixed some bugs related to temp. ansistrings and functions results
which return records/objects/arrays which need init/final.