paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better suitable error message for out of range constants

Browse Source 
git-svn-id: trunk@38290 -
This commit is contained in:
florian 2018-02-19 21:19:08 +00:00
parent 6c69e10613
commit 90051fd7d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/avr/raavr.pas
View File

@ -367,7 +367,7 @@ unit raavr;
// Need to check if original value was signed or simply sign overflowed in 16 bit? // Need to check if original value was signed or simply sign overflowed in 16 bit?
if ((taicpu(Result).oper[i]^.val > AVRInstrConstraint[opcode].Operands[i].max) or if ((taicpu(Result).oper[i]^.val > AVRInstrConstraint[opcode].Operands[i].max) or
(taicpu(Result).oper[i]^.val < AVRInstrConstraint[opcode].Operands[i].min)) then (taicpu(Result).oper[i]^.val < AVRInstrConstraint[opcode].Operands[i].min)) then
Message(cg_e_parasize_too_big); Message(asmr_e_constant_out_of_bounds);
end; end;
end; end;
end; end;