paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reverted r35424, wasn't ready for commit yet

Browse Source 
git-svn-id: trunk@35426 -
This commit is contained in:
Jonas Maebe 2017-02-11 21:21:44 +00:00
parent 265c8e7bbc
commit 015f034904
9 changed files with 18 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aarch64/racpugas.pas
View File

@ -58,7 +58,7 @@ Unit racpugas;
symconst,symsym,
procinfo,
rabase,rautils,
cgbase,cgutils,paramgr;
cgbase,cgutils;
function taarch64attreader.is_register(const s:string):boolean;
@ -609,8 +609,7 @@ Unit racpugas;
if hasdot and
(not oper.hastype) and
(tabstractnormalvarsym(oper.opr.localsym).owner.symtabletype=parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(oper.opr.localsymofs,l)
end;

5
compiler/arm/raarmgas.pas
View File

@ -68,7 +68,7 @@ Unit raarmgas;
symconst,symsym,
procinfo,
rabase,rautils,
cgbase,cgutils,paramgr;
cgbase,cgutils;
function tarmunifiedattreader.is_unified: boolean;
@ -636,8 +636,7 @@ Unit raarmgas;
if hasdot and
(not oper.hastype) and
(tabstractnormalvarsym(oper.opr.localsym).owner.symtabletype=parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(oper.opr.localsymofs,l)
end;

5
compiler/avr/raavrgas.pas
View File

@ -59,7 +59,7 @@ Unit raavrgas;
procinfo,
itcpugas,
rabase,rautils,
cgbase,cgutils,cgobj,paramgr
cgbase,cgutils,cgobj
;
@ -260,8 +260,7 @@ Unit raavrgas;
if hasdot and
(not oper.hastype) and
(tabstractnormalvarsym(oper.opr.localsym).owner.symtabletype=parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(oper.opr.localsymofs,l)
end;

5
compiler/mips/racpugas.pas
View File

@ -60,7 +60,7 @@ Interface
rabase,
rgbase,
itcpugas,
cgobj,paramgr
cgobj
;
@ -169,8 +169,7 @@ Interface
if hasdot and
(not oper.hastype) and
(tabstractnormalvarsym(oper.opr.localsym).owner.symtabletype=parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(oper.opr.localsymofs,l)
end;

5
compiler/powerpc/rappcgas.pas
View File

@ -56,7 +56,7 @@ Unit rappcgas;
{ parser }
procinfo,
rabase,rautils,
cgbase,cgobj,cgppc,paramgr
cgbase,cgobj,cgppc
;
procedure tppcattreader.ReadSym(oper : tppcoperand);
@ -341,8 +341,7 @@ Unit rappcgas;
if hasdot and
(not oper.hastype) and
(tabstractvarsym(oper.opr.localsym).owner.symtabletype=parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(oper.opr.localsymofs,l)
end;

5
compiler/powerpc64/rappcgas.pas
View File

@ -58,7 +58,7 @@ uses
{ parser }
procinfo,
rabase, rautils,
cgbase, cgobj, cgppc, paramgr
cgbase, cgobj, cgppc
;
procedure tppcattreader.ReadSym(oper: tppcoperand);
@ -352,8 +352,7 @@ var
(not oper.hastype) and
(tabstractvarsym(oper.opr.localsym).owner.symtabletype =
parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
(current_procinfo.procdef.proccalloption <> pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(oper.opr.localsymofs, l)
end;

5
compiler/sparc/racpugas.pas
View File

@ -57,7 +57,7 @@ Interface
scanner,
procinfo,
rabase,rautils,
cgobj,paramgr
cgobj
;
@ -222,8 +222,7 @@ Interface
if hasdot and
(not oper.hastype) and
(tabstractnormalvarsym(oper.opr.localsym).owner.symtabletype=parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(oper.opr.localsymofs,l)
end;

5
compiler/x86/rax86att.pas
View File

@ -68,7 +68,7 @@ Implementation
scanner,
procinfo,
itcpugas,
rabase,paramgr,
rabase,
cgbase
;
@ -461,8 +461,7 @@ Implementation
if hasdot and
(not oper.hastype) and
(oper.opr.localsym.owner.symtabletype=parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(oper.opr.localsymofs,l);
inc(oper.opr.localconstoffset,l);

5
compiler/x86/rax86int.pas
View File

@ -91,7 +91,7 @@ Unit Rax86int;
{ register allocator }
rabase,rautils,itx86int,
{ codegen }
cgbase,cgobj,procinfo,paramgr
cgbase,cgobj,procinfo
;
type
@ -1722,8 +1722,7 @@ Unit Rax86int;
and when the parameter is in a register (delphi compatible) }
if (not oper.hastype) and
(oper.opr.localsym.owner.symtabletype=parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
oper.opr.localforceref:=true;