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

* no checkpointer code for dynarr to openarr

Browse Source
This commit is contained in:
peter 2004-11-01 17:15:47 +00:00
parent 6a0aa09b20
commit 2aceb6f856
3 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncgmem.pas
View File

@ -263,12 +263,10 @@ implementation
end;
end;
if (cs_gdb_heaptrc in aktglobalswitches) and
(cs_checkpointer in aktlocalswitches) and
(cs_checkpointer in aktlocalswitches) and
not(cs_compilesystem in aktmoduleswitches) and
not(
tpointerdef(left.resulttype.def).is_far or
is_dynamic_array(left.resulttype.def)
) then
not(tpointerdef(left.resulttype.def).is_far) and
not(nf_no_checkpointer in flags) then
begin
paraloc1.init;
paramanager.getintparaloc(pocall_default,1,paraloc1);
@ -879,7 +877,10 @@ begin
end.
{
$Log$
Revision 1.99 2004-11-01 15:31:57 peter
Revision 1.100 2004-11-01 17:15:47 peter
* no checkpointer code for dynarr to openarr
Revision 1.99 2004/11/01 15:31:57 peter
* -Or fix for absolute
Revision 1.98 2004/10/25 15:38:41 peter

6
compiler/ncnv.pas
View File

@ -994,6 +994,7 @@ implementation
{ left is reused }
left := nil;
result := cderefnode.create(result);
include(result.flags,nf_no_checkpointer);
result.resulttype := resulttype;
end;
@ -2466,7 +2467,10 @@ begin
end.
{
$Log$
Revision 1.158 2004-11-01 15:31:58 peter
Revision 1.159 2004-11-01 17:15:47 peter
* no checkpointer code for dynarr to openarr
Revision 1.158 2004/11/01 15:31:58 peter
* -Or fix for absolute
Revision 1.157 2004/10/24 11:44:28 peter

8
compiler/node.pas
View File

@ -208,6 +208,9 @@ interface
nf_procvarload,
nf_typedaddr,
{ tderefnode }
nf_no_checkpointer,
{ tvecnode }
nf_memindex,
nf_memseg,
@ -1132,7 +1135,10 @@ implementation
end.
{
$Log$
Revision 1.88 2004-10-31 21:45:03 peter
Revision 1.89 2004-11-01 17:15:47 peter
* no checkpointer code for dynarr to openarr
Revision 1.88 2004/10/31 21:45:03 peter
* generic tlocation
* move tlocation to cgutils