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

* better error reporting

Browse Source 
* indentation
This commit is contained in:
florian 2025-03-02 14:58:48 +01:00
parent c89153242d
commit 7878a7b390
1 changed files with 9 additions and 9 deletions

18
compiler/avr/aasmcpu.pas
View File

@ -482,7 +482,7 @@ implementation
(taicpu(curtai).InsOffset-taicpu(curtai).oper[0]^.ref^.symbol.offset<-64*2)) then
begin
if inasmblock then
Message(asmw_e_brxx_out_of_range)
MessagePos(taicpu(curtai).fileinfo,asmw_e_brxx_out_of_range)
else
begin
current_asmdata.getjumplabel(l);
@ -504,14 +504,14 @@ implementation
in the reverse direction by 2 bytes, hence checking against a
distance of -2049*2 bytes. }
if not(inasmblock) and (taicpu(curtai).InsOffset-taicpu(curtai).oper[0]^.ref^.symbol.offset<=2047*2) and
(taicpu(curtai).InsOffset-taicpu(curtai).oper[0]^.ref^.symbol.offset>=-2049*2) and
{ jmps to function go outside the currently considered scope, so do not mess with them.
Those are generated by the peephole optimizer from call/ret sequences }
not(taicpu(curtai).oper[0]^.ref^.symbol.typ=AT_FUNCTION) then
begin
taicpu(curtai).opcode:=A_RJMP;
again:=true;
end;
(taicpu(curtai).InsOffset-taicpu(curtai).oper[0]^.ref^.symbol.offset>=-2049*2) and
{ jmps to function go outside the currently considered scope, so do not mess with them.
Those are generated by the peephole optimizer from call/ret sequences }
not(taicpu(curtai).oper[0]^.ref^.symbol.typ=AT_FUNCTION) then
begin
taicpu(curtai).opcode:=A_RJMP;
again:=true;
end;
A_STS:
begin
if current_settings.cputype in [cpu_avrtiny, cpu_avr1] then