paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 19:57:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

* disable range/overflow checking for subsetreg/ref code, to prevent

Browse Source 
spurious errors when calculating masks (was also the case for the old
    code in cgobj)

git-svn-id: trunk@21380 -
This commit is contained in:
Jonas Maebe 2012-05-24 15:33:49 +00:00
parent 4bbaeeccc6
commit 0037de6ac9
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/hlcgobj.pas
View File

@ -994,6 +994,9 @@ implementation
end;
end;
{$push}
{$r-,q-}
procedure thlcgobj.a_load_subsetreg_reg(list: TAsmList; subsetsize, tosize: tdef; const sreg: tsubsetregister; destreg: tregister);
var
subsetregdef: torddef;
@ -2081,6 +2084,8 @@ implementation
end;
end;
{$pop}
function thlcgobj.get_bit_const_ref_sref(bitnumber: tcgint; refdef: tdef; const ref: treference): tsubsetreference;
begin
result.ref:=ref;