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

* fixed errors found with new -CR code from Peter when cycling with -O2p3r

Browse Source
This commit is contained in:
Jonas Maebe 2002-06-24 12:43:00 +00:00
parent 9319168ca4
commit 09de3f8d5b
4 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/daopt386.pas
View File

@ -1477,7 +1477,7 @@ var
Begin {checks whether two Taicpu instructions are equal}
If Assigned(p1) And Assigned(p2) And
(Tai(p1).typ = ait_instruction) And
(Tai(p1).typ = ait_instruction) And
(Tai(p2).typ = ait_instruction) And
opscompatible(Taicpu(p1),Taicpu(p2)) and
(Taicpu(p1).oper[0].typ = Taicpu(p2).oper[0].typ) And
(Taicpu(p1).oper[1].typ = Taicpu(p2).oper[1].typ) And
@ -2591,7 +2591,10 @@ End.
{
$Log$
Revision 1.39 2002-06-09 12:56:04 jonas
Revision 1.40 2002-06-24 12:43:00 jonas
* fixed errors found with new -CR code from Peter when cycling with -O2p3r
Revision 1.39 2002/06/09 12:56:04 jonas
* IDIV reads edx too (but now the div/mod optimization fails :/ )
Revision 1.38 2002/05/18 13:34:22 peter

7
compiler/i386/n386mem.pas
View File

@ -347,7 +347,7 @@ implementation
right.free;
right:=t;
end
else if tordconstnode(taddnode(right).left).nodetype=ordconstn then
else if taddnode(right).left.nodetype=ordconstn then
begin
extraoffset:=tordconstnode(taddnode(right).left).value;
t:=taddnode(right).right;
@ -519,7 +519,10 @@ begin
end.
{
$Log$
Revision 1.33 2002-05-18 13:34:25 peter
Revision 1.34 2002-06-24 12:43:01 jonas
* fixed errors found with new -CR code from Peter when cycling with -O2p3r
Revision 1.33 2002/05/18 13:34:25 peter
* readded missing revisions
Revision 1.32 2002/05/16 19:46:51 carl

11
compiler/nbas.pas
View File

@ -160,7 +160,7 @@ implementation
verbose,globals,globtype,systems,
symconst,symdef,symsym,types,
pass_1,
ncal,nflw,rgobj,cgbase
nld,ncal,nflw,rgobj,cgbase
;
@ -380,8 +380,8 @@ implementation
CGMessage(cg_n_inefficient_code)
else
begin
texitnode(tstatementnode(hp.left).right).left:=tstatementnode(hp.right).right;
tstatementnode(hp.right).right:=nil;
texitnode(tstatementnode(hp.left).right).left:=tassignmentnode(hp.right).right;
tassignmentnode(hp.right).right:=nil;
hp.right.free;
hp.right:=nil;
end;
@ -675,7 +675,10 @@ begin
end.
{
$Log$
Revision 1.25 2002-05-18 13:34:09 peter
Revision 1.26 2002-06-24 12:43:00 jonas
* fixed errors found with new -CR code from Peter when cycling with -O2p3r
Revision 1.25 2002/05/18 13:34:09 peter
* readded missing revisions
Revision 1.24 2002/05/16 19:46:37 carl

9
compiler/regvars.pas
View File

@ -184,13 +184,13 @@ implementation
end
else
if (regvarinfo^.regvars[i].vartype.def.deftype in [orddef,enumdef]) and
(torddef(regvarinfo^.regvars[i].vartype.def).size=1) then
(regvarinfo^.regvars[i].vartype.def.size=1) then
begin
regvarinfo^.regvars[i].reg:=rg.makeregsize(varregs[i],OS_8);
end
else
if (regvarinfo^.regvars[i].vartype.def.deftype in [orddef,enumdef]) and
(torddef(regvarinfo^.regvars[i].vartype.def).size=2) then
(regvarinfo^.regvars[i].vartype.def.size=2) then
begin
regvarinfo^.regvars[i].reg:=rg.makeregsize(varregs[i],OS_16);
end
@ -464,7 +464,10 @@ end.
{
$Log$
Revision 1.33 2002-05-18 13:34:17 peter
Revision 1.34 2002-06-24 12:43:00 jonas
* fixed errors found with new -CR code from Peter when cycling with -O2p3r
Revision 1.33 2002/05/18 13:34:17 peter
* readded missing revisions
Revision 1.32 2002/05/16 19:46:44 carl