paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 04:18:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* report resolveref errors on the correct line number

Browse Source 
git-svn-id: trunk@23153 -
This commit is contained in:
Jonas Maebe 2012-12-15 22:54:22 +00:00
parent 6ac8b4fbdf
commit c37c039905
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ncgbas.pas
View File

@ -131,7 +131,7 @@ interface
end; end;
end; end;
procedure ResolveRef(var op:toper); procedure ResolveRef(const filepos: tfileposinfo; var op:toper);
var var
sym : tabstractnormalvarsym; sym : tabstractnormalvarsym;
{$ifdef x86} {$ifdef x86}
@ -186,7 +186,7 @@ interface
LOC_REGISTER : LOC_REGISTER :
begin begin
if getoffset then if getoffset then
Message(asmr_e_invalid_reference_syntax); MessagePos(filepos,asmr_e_invalid_reference_syntax);
{ Subscribed access } { Subscribed access }
if forceref or if forceref or
(sofs<>0) then (sofs<>0) then
@ -213,10 +213,10 @@ interface
op.typ:=top_reg; op.typ:=top_reg;
op.reg:=NR_NO; op.reg:=NR_NO;
if getoffset then if getoffset then
Message(asmr_e_invalid_reference_syntax); MessagePos(filepos,asmr_e_invalid_reference_syntax);
{ Using an MM/FPU register in a reference is not possible } { Using an MM/FPU register in a reference is not possible }
if forceref or (sofs<>0) then if forceref or (sofs<>0) then
Message1(asmr_e_invalid_ref_register,std_regname(sym.localloc.register)) MessagePos1(filepos,asmr_e_invalid_ref_register,std_regname(sym.localloc.register))
else else
op.reg:=sym.localloc.register; op.reg:=sym.localloc.register;
end; end;
@ -227,7 +227,7 @@ interface
result is returned via a complex location result is returned via a complex location
(more than one register, ...) } (more than one register, ...) }
if (vo_is_funcret in tabstractvarsym(sym).varoptions) then if (vo_is_funcret in tabstractvarsym(sym).varoptions) then
Message(asmr_e_complex_function_result_location) MessagePos(filepos,asmr_e_complex_function_result_location)
else else
internalerror(2012082101); internalerror(2012082101);
{ recover } { recover }
@ -285,7 +285,7 @@ interface
{ fixup the references } { fixup the references }
for i:=1 to taicpu(hp2).ops do for i:=1 to taicpu(hp2).ops do
begin begin
ResolveRef(taicpu(hp2).oper[i-1]^); ResolveRef(taicpu(hp2).fileinfo,taicpu(hp2).oper[i-1]^);
with taicpu(hp2).oper[i-1]^ do with taicpu(hp2).oper[i-1]^ do
begin begin
case typ of case typ of
@ -329,7 +329,7 @@ interface
{$endif} {$endif}
{ fixup the references } { fixup the references }
for i:=1 to taicpu(hp).ops do for i:=1 to taicpu(hp).ops do
ResolveRef(taicpu(hp).oper[i-1]^); ResolveRef(taicpu(hp).fileinfo,taicpu(hp).oper[i-1]^);
{$ifdef x86} {$ifdef x86}
{ can only be checked now that all local operands } { can only be checked now that all local operands }
{ have been resolved } { have been resolved }