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

* fixed 'not not boolean', the location was not set to register

Browse Source
This commit is contained in:
peter 1998-10-20 13:12:38 +00:00
parent 309ac0b4cb
commit 887c29f7a2
2 changed files with 129 additions and 142 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
compiler/cg386mat.pas
View File

@ -420,16 +420,12 @@ implementation
hl : plabel; hl : plabel;
opsize : topsize; opsize : topsize;
begin begin
if (p^.resulttype^.deftype=orddef) and if is_boolean(p^.resulttype) then
(porddef(p^.resulttype)^.typ in [bool8bit,bool16bit,bool32bit]) then begin
opsize:=def_opsize(p^.resulttype);
case p^.left^.location.loc of
LOC_JUMP :
begin begin
case porddef(p^.resulttype)^.typ of
bool8bit : opsize:=S_B;
bool16bit : opsize:=S_W;
bool32bit : opsize:=S_L;
end;
case p^.location.loc of
LOC_JUMP : begin
hl:=truelabel; hl:=truelabel;
truelabel:=falselabel; truelabel:=falselabel;
falselabel:=hl; falselabel:=hl;
@ -439,36 +435,34 @@ implementation
truelabel:=falselabel; truelabel:=falselabel;
falselabel:=hl; falselabel:=hl;
end; end;
LOC_FLAGS : begin LOC_FLAGS :
begin
secondpass(p^.left); secondpass(p^.left);
p^.location.resflags:=flagsinvers[p^.left^.location.resflags]; p^.location.resflags:=flagsinvers[p^.left^.location.resflags];
end; end;
LOC_REGISTER : begin LOC_REGISTER :
begin
secondpass(p^.left); secondpass(p^.left);
p^.location.register:=p^.left^.location.register; p^.location.register:=p^.left^.location.register;
exprasmlist^.concat(new(pai386,op_const_reg(A_XOR,opsize,1,p^.location.register))); exprasmlist^.concat(new(pai386,op_const_reg(A_XOR,opsize,1,p^.location.register)));
end; end;
LOC_CREGISTER : begin LOC_CREGISTER :
begin
secondpass(p^.left); secondpass(p^.left);
clear_location(p^.location);
p^.location.loc:=LOC_REGISTER; p^.location.loc:=LOC_REGISTER;
case porddef(p^.resulttype)^.typ of p^.location.register:=def_getreg(p^.resulttype);
bool8bit : p^.location.register:=reg32toreg8(getregister32);
bool16bit : p^.location.register:=reg32toreg16(getregister32);
bool32bit : p^.location.register:=getregister32;
end;
emit_reg_reg(A_MOV,opsize,p^.left^.location.register,p^.location.register); emit_reg_reg(A_MOV,opsize,p^.left^.location.register,p^.location.register);
exprasmlist^.concat(new(pai386,op_const_reg(A_XOR,opsize,1,p^.location.register))); exprasmlist^.concat(new(pai386,op_const_reg(A_XOR,opsize,1,p^.location.register)));
end; end;
LOC_REFERENCE, LOC_REFERENCE,
LOC_MEM : begin LOC_MEM :
begin
secondpass(p^.left); secondpass(p^.left);
del_reference(p^.left^.location.reference); clear_location(p^.location);
p^.location.loc:=LOC_REGISTER; p^.location.loc:=LOC_REGISTER;
case porddef(p^.resulttype)^.typ of p^.location.register:=def_getreg(p^.resulttype);
bool8bit : p^.location.register:=reg32toreg8(getregister32); del_reference(p^.left^.location.reference);
bool16bit : p^.location.register:=reg32toreg16(getregister32);
bool32bit : p^.location.register:=getregister32;
end;
if p^.left^.location.loc=LOC_CREGISTER then if p^.left^.location.loc=LOC_CREGISTER then
emit_reg_reg(A_MOV,opsize,p^.left^.location.register,p^.location.register) emit_reg_reg(A_MOV,opsize,p^.left^.location.register,p^.location.register)
else else
@ -479,7 +473,8 @@ implementation
end; end;
end end
{$ifdef SUPPORT_MMX} {$ifdef SUPPORT_MMX}
else if (cs_mmx in aktlocalswitches) and is_mmx_able_array(p^.left^.resulttype) then else
if (cs_mmx in aktlocalswitches) and is_mmx_able_array(p^.left^.resulttype) then
begin begin
secondpass(p^.left); secondpass(p^.left);
p^.location.loc:=LOC_MMXREGISTER; p^.location.loc:=LOC_MMXREGISTER;
@ -492,16 +487,14 @@ implementation
LOC_CMMXREGISTER: LOC_CMMXREGISTER:
begin begin
p^.location.register:=getregistermmx; p^.location.register:=getregistermmx;
emit_reg_reg(A_MOVQ,S_NO,p^.left^.location.register, emit_reg_reg(A_MOVQ,S_NO,p^.left^.location.register,p^.location.register);
p^.location.register);
end; end;
LOC_REFERENCE,LOC_MEM: LOC_REFERENCE,LOC_MEM:
begin begin
del_reference(p^.left^.location.reference); del_reference(p^.left^.location.reference);
p^.location.register:=getregistermmx; p^.location.register:=getregistermmx;
exprasmlist^.concat(new(pai386,op_ref_reg(A_MOVQ,S_NO, exprasmlist^.concat(new(pai386,op_ref_reg(A_MOVQ,S_NO,
newreference(p^.left^.location.reference), newreference(p^.left^.location.reference),p^.location.register)));
p^.location.register)));
end; end;
end; end;
{ load mask } { load mask }
@ -509,8 +502,7 @@ implementation
{ lower 32 bit } { lower 32 bit }
emit_reg_reg(A_PXOR,S_D,R_MM7,p^.location.register); emit_reg_reg(A_PXOR,S_D,R_MM7,p^.location.register);
{ shift mask } { shift mask }
exprasmlist^.concat(new(pai386,op_const_reg(A_PSLLQ,S_NO, exprasmlist^.concat(new(pai386,op_const_reg(A_PSLLQ,S_NO,32,R_MM7)));
32,R_MM7)));
{ higher 32 bit } { higher 32 bit }
emit_reg_reg(A_PXOR,S_D,R_MM7,p^.location.register); emit_reg_reg(A_PXOR,S_D,R_MM7,p^.location.register);
end end
@ -518,17 +510,18 @@ implementation
else else
begin begin
secondpass(p^.left); secondpass(p^.left);
clear_location(p^.location);
p^.location.loc:=LOC_REGISTER; p^.location.loc:=LOC_REGISTER;
case p^.left^.location.loc of case p^.left^.location.loc of
LOC_REGISTER : begin LOC_REGISTER :
begin
p^.location.register:=p^.left^.location.register; p^.location.register:=p^.left^.location.register;
exprasmlist^.concat(new(pai386,op_reg(A_NOT,S_L,p^.location.register))); exprasmlist^.concat(new(pai386,op_reg(A_NOT,S_L,p^.location.register)));
end; end;
LOC_CREGISTER : begin LOC_CREGISTER :
begin
p^.location.register:=getregister32; p^.location.register:=getregister32;
emit_reg_reg(A_MOV,S_L,p^.left^.location.register, emit_reg_reg(A_MOV,S_L,p^.left^.location.register,p^.location.register);
p^.location.register);
exprasmlist^.concat(new(pai386,op_reg(A_NOT,S_L,p^.location.register))); exprasmlist^.concat(new(pai386,op_reg(A_NOT,S_L,p^.location.register)));
end; end;
LOC_REFERENCE,LOC_MEM : LOC_REFERENCE,LOC_MEM :
@ -536,23 +529,10 @@ implementation
del_reference(p^.left^.location.reference); del_reference(p^.left^.location.reference);
p^.location.register:=getregister32; p^.location.register:=getregister32;
exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L, exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,
newreference(p^.left^.location.reference), newreference(p^.left^.location.reference),p^.location.register)));
p^.location.register)));
exprasmlist^.concat(new(pai386,op_reg(A_NOT,S_L,p^.location.register))); exprasmlist^.concat(new(pai386,op_reg(A_NOT,S_L,p^.location.register)));
end; end;
end; end;
{if p^.left^.location.loc=loc_register then
p^.location.register:=p^.left^.location.register
else
begin
del_locref(p^.left^.location);
p^.location.register:=getregister32;
exprasmlist^.concat(new(pai386,op_loc_reg(A_MOV,S_L,
p^.left^.location,
p^.location.register)));
end;
exprasmlist^.concat(new(pai386,op_reg(A_NOT,S_L,p^.location.register)));}
end; end;
end; end;
@ -561,7 +541,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.9 1998-10-20 08:06:42 pierre Revision 1.10 1998-10-20 13:12:38 peter
* fixed 'not not boolean', the location was not set to register
Revision 1.9 1998/10/20 08:06:42 pierre
* several memory corruptions due to double freemem solved * several memory corruptions due to double freemem solved
=> never use p^.loc.location:=p^.left^.loc.location; => never use p^.loc.location:=p^.left^.loc.location;
+ finally I added now by default + finally I added now by default

16
compiler/tcmat.pas
View File

@ -278,13 +278,15 @@ implementation
{$ifdef SUPPORT_MMX} {$ifdef SUPPORT_MMX}
p^.registersmmx:=p^.left^.registersmmx; p^.registersmmx:=p^.left^.registersmmx;
{$endif SUPPORT_MMX} {$endif SUPPORT_MMX}
if is_equal(p^.resulttype,booldef) then if is_boolean(p^.resulttype) then
begin begin
p^.registers32:=p^.left^.registers32; p^.registers32:=p^.left^.registers32;
if ((p^.location.loc=LOC_REFERENCE) or if (p^.location.loc in [LOC_REFERENCE,LOC_MEM,LOC_CREGISTER]) then
(p^.location.loc=LOC_CREGISTER)) and begin
(p^.registers32<1) then p^.location.loc:=LOC_REGISTER;
if (p^.registers32<1) then
p^.registers32:=1; p^.registers32:=1;
end;
end end
else else
{$ifdef SUPPORT_MMX} {$ifdef SUPPORT_MMX}
@ -300,7 +302,6 @@ implementation
begin begin
p^.left:=gentypeconvnode(p^.left,s32bitdef); p^.left:=gentypeconvnode(p^.left,s32bitdef);
firstpass(p^.left); firstpass(p^.left);
if codegenerror then if codegenerror then
exit; exit;
@ -322,7 +323,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.4 1998-10-13 16:50:25 pierre Revision 1.5 1998-10-20 13:12:39 peter
* fixed 'not not boolean', the location was not set to register
Revision 1.4 1998/10/13 16:50:25 pierre
* undid some changes of Peter that made the compiler wrong * undid some changes of Peter that made the compiler wrong
for m68k (I had to reinsert some ifdefs) for m68k (I had to reinsert some ifdefs)
* removed several memory leaks under m68k * removed several memory leaks under m68k