paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 01:49:08 +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, symconst,symsym,
procinfo, procinfo,
rabase,rautils, rabase,rautils,
cgbase,cgutils,paramgr; cgbase,cgutils;
function taarch64attreader.is_register(const s:string):boolean; function taarch64attreader.is_register(const s:string):boolean;
@ -609,8 +609,7 @@ Unit racpugas;
if hasdot and if hasdot and
(not oper.hastype) and (not oper.hastype) and
(tabstractnormalvarsym(oper.opr.localsym).owner.symtabletype=parasymtable) and (tabstractnormalvarsym(oper.opr.localsym).owner.symtabletype=parasymtable) and
((oper.opr.localsym.localloc.loc<>LOC_REGISTER) or (current_procinfo.procdef.proccalloption<>pocall_register) then
not paramanager.push_addr_param(oper.opr.localsym.varspez,oper.opr.localsym.vardef,current_procinfo.procdef.proccalloption)) then
Message(asmr_e_cannot_access_field_directly_for_parameters); Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(oper.opr.localsymofs,l) inc(oper.opr.localsymofs,l)
end; end;

5
compiler/arm/raarmgas.pas
View File

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

5
compiler/avr/raavrgas.pas
View File

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

5
compiler/mips/racpugas.pas
View File

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

5
compiler/powerpc/rappcgas.pas
View File

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

5
compiler/powerpc64/rappcgas.pas
View File

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

5
compiler/sparc/racpugas.pas
View File

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

5
compiler/x86/rax86att.pas
View File

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

5
compiler/x86/rax86int.pas
View File

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