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

* don't call FPC_CHECKPOINTER for references built from a LOC_CONSTANT

Browse Source 
(mantis )

git-svn-id: trunk@13031 -
This commit is contained in:
Jonas Maebe 2009-04-24 13:08:39 +00:00
parent a6f20cdba9
commit 8de8d4c29b
1 changed files with 3 additions and 1 deletions

4
compiler/ncgmem.pas
View File

@ -225,7 +225,9 @@ implementation
(cs_checkpointer in current_settings.localswitches) and
not(cs_compilesystem in current_settings.moduleswitches) and
not(tpointerdef(left.resultdef).is_far) and
not(nf_no_checkpointer in flags) then
not(nf_no_checkpointer in flags) and
{ can be NR_NO in case of LOC_CONSTANT }
(location.reference.base<>NR_NO) then
begin
paraloc1.init;
paramanager.getintparaloc(pocall_default,1,paraloc1);