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

* fixed range errors

Browse Source 
git-svn-id: trunk@6185 -
This commit is contained in:
Jonas Maebe 2007-01-25 15:19:00 +00:00
parent 879a1594e1
commit ee2a4bc8f2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/cgcpu.pas
View File

@ -763,19 +763,19 @@ unit cgcpu;
case op of
OP_AND,OP_OR,OP_XOR:
begin
cg.a_op_const_ref(list,op,OS_32,lo(value),ref);
cg.a_op_const_ref(list,op,OS_32,aint(lo(value)),ref);
tempref:=ref;
inc(tempref.offset,4);
cg.a_op_const_ref(list,op,OS_32,hi(value),tempref);
cg.a_op_const_ref(list,op,OS_32,aint(hi(value)),tempref);
end;
OP_ADD, OP_SUB:
begin
get_64bit_ops(op,op1,op2);
// can't use a_op_const_ref because this may use dec/inc
list.concat(taicpu.op_const_ref(op1,S_L,lo(value),ref));
list.concat(taicpu.op_const_ref(op1,S_L,aint(lo(value)),ref));
tempref:=ref;
inc(tempref.offset,4);
list.concat(taicpu.op_const_ref(op2,S_L,hi(value),tempref));
list.concat(taicpu.op_const_ref(op2,S_L,aint(hi(value)),tempref));
end;
else
internalerror(200204022);