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

* fixed loading of negative constants in some record regvar fields

Browse Source 
git-svn-id: trunk@3640 -
This commit is contained in:
Jonas Maebe 2006-05-23 09:07:03 +00:00
parent 4c41e2c677
commit 32a9702965
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/cgobj.pas
View File

@ -953,7 +953,7 @@ implementation
else
bitmask := (1 shl startbit) - 1;
a_op_const_reg(list,OP_AND,subsetregsize,bitmask,subsetreg);
a_op_const_reg(list,OP_OR,subsetregsize,a shl startbit,subsetreg);
a_op_const_reg(list,OP_OR,subsetregsize,(a shl startbit) and not(bitmask),subsetreg);
end;