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

* avoid spurious range errors due to longint+qword expressions (results in

Browse Source 
both values getting converted to a qword, which causes a range error
    in case the longint is smaller than 0)

git-svn-id: trunk@21621 -
This commit is contained in:
Jonas Maebe 2012-06-15 16:58:27 +00:00
parent 46d98a1f4e
commit 313e976256
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aasmcpu.pas
View File

@ -1038,8 +1038,11 @@ implementation
begin
currsym:=objdata.symbolref(ref^.symbol);
l:=ref^.offset;
{$push}
{$r-}
if assigned(currsym) then
inc(l,currsym.address);
{$pop}
{ when it is a forward jump we need to compensate the
offset of the instruction since the previous time,
because the symbol address is then still using the
@ -2212,8 +2215,11 @@ implementation
begin
getvalsym(c-40);
data:=currval-insend;
{$push}
{$r-}
if assigned(currsym) then
inc(data,currsym.address);
{$pop}
if (data>127) or (data<-128) then
Message1(asmw_e_short_jmp_out_of_range,tostr(data));
objdata.writebytes(data,1);