paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 05:29:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed error 10 with succ() and pref()

Browse Source
This commit is contained in:
peter 1998-08-31 08:52:03 +00:00
parent 5eaee9c9ad
commit 886c7ec88f
2 changed files with 12 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/cg386cal.pas
View File

@ -2087,29 +2087,11 @@ implementation
end;
emitoverflowcheck(p^.left^.left);
end;
{$ifdef OLDINC}
in_inc_byte..in_dec_dword:
begin
secondpass(p^.left);
if cs_check_overflow in aktlocalswitches then
begin
{ SINCE THE CARRY FLAG IS NEVER SET BY DEC/INC, we must use }
{ ADD and SUB to check for overflow for unsigned operations. }
exprasmlist^.concat(new(pai386,op_const_ref(ad2instr[p^.inlinenumber],
in2size[p^.inlinenumber],1,newreference(p^.left^.location.reference))));
emitoverflowcheck(p^.left);
end
else
exprasmlist^.concat(new(pai386,op_ref(in2instr[p^.inlinenumber],
in2size[p^.inlinenumber],newreference(p^.left^.location.reference))));
end;
{$endif OLDINC}
in_assigned_x :
begin
secondpass(p^.left^.left);
p^.location.loc:=LOC_FLAGS;
if (p^.left^.left^.location.loc=LOC_REGISTER) or
(p^.left^.left^.location.loc=LOC_CREGISTER) then
if (p^.left^.left^.location.loc in [LOC_REGISTER,LOC_CREGISTER]) then
begin
exprasmlist^.concat(new(pai386,op_reg_reg(A_OR,S_L,
p^.left^.left^.location.register,
@ -2192,15 +2174,13 @@ implementation
asmop:=A_BTR;
if psetdef(p^.left^.resulttype)^.settype=smallset then
begin
if p^.left^.right^.left^.location.loc in
[LOC_CREGISTER,LOC_REGISTER] then
if p^.left^.right^.left^.location.loc in [LOC_CREGISTER,LOC_REGISTER] then
hregister:=p^.left^.right^.left^.location.register
else
begin
hregister:=R_EDI;
exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,
newreference(p^.left^.right^.left^.location.reference),
R_EDI)));
newreference(p^.left^.right^.left^.location.reference),R_EDI)));
end;
if (p^.left^.left^.location.loc=LOC_REFERENCE) then
exprasmlist^.concat(new(pai386,op_reg_ref(asmop,S_L,R_EDI,
@ -2316,7 +2296,10 @@ implementation
end.
{
$Log$
Revision 1.18 1998-08-20 21:36:38 peter
Revision 1.19 1998-08-31 08:52:03 peter
* fixed error 10 with succ() and pref()
Revision 1.18 1998/08/20 21:36:38 peter
* fixed 'with object do' bug
Revision 1.17 1998/08/19 16:07:36 jonas

6
compiler/pass_1.pas
View File

@ -3910,6 +3910,7 @@ unit pass_1;
in_pred_x,
in_succ_x:
begin
inc(p^.registers32);
p^.resulttype:=p^.left^.resulttype;
p^.location.loc:=LOC_REGISTER;
if not is_ordinal(p^.resulttype) then
@ -5326,7 +5327,10 @@ unit pass_1;
end.
{
$Log$
Revision 1.65 1998-08-28 12:51:40 florian
Revision 1.66 1998-08-31 08:52:05 peter
* fixed error 10 with succ() and pref()
Revision 1.65 1998/08/28 12:51:40 florian
+ ansistring to pchar type cast fixed
Revision 1.64 1998/08/28 10:54:22 peter