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

* more fixes

Browse Source
This commit is contained in:
florian 2000-09-22 22:42:52 +00:00
parent 0989ddf3bd
commit 68ceefdb2a
2 changed files with 24 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/n386add.pas
View File

@ -29,10 +29,11 @@ unit n386add;
nadd;
ti386addnode = class(taddnode)
procedure pass_2;override;
function getresflags(unsigned : boolean) : tresflags;
procedure SetResultLocation(cmpop,unsigned : boolean);
procedure addstring;
procedure pass_2;override;
function getresflags(unsigned : boolean) : tresflags;
procedure SetResultLocation(cmpop,unsigned : boolean);
procedure addstring;
procedure addset;
end;
implementation
@ -94,10 +95,10 @@ unit n386add;
((left.resulttype^.deftype<>setdef) or (psetdef(left.resulttype)^.settype=smallset)) and
(left.location.loc in [LOC_MEM,LOC_REFERENCE]) then
ungetiftemp(left.location.reference);
if (right^.resulttype^.deftype<>stringdef) and
((right^.resulttype^.deftype<>setdef) or (psetdef(right^.resulttype)^.settype=smallset)) and
(right^.location.loc in [LOC_MEM,LOC_REFERENCE]) then
ungetiftemp(right^.location.reference);
if (right.resulttype^.deftype<>stringdef) and
((right.resulttype^.deftype<>setdef) or (psetdef(right.resulttype)^.settype=smallset)) and
(right.location.loc in [LOC_MEM,LOC_REFERENCE]) then
ungetiftemp(right.location.reference);
{ in case of comparison operation the put result in the flags }
if cmpop then
begin
@ -450,7 +451,7 @@ unit n386add;
Addset
*****************************************************************************}
procedure addset(var p : ptree);
procedure ti386addnode.addset;
var
createset,
cmpop,
@ -644,15 +645,15 @@ unit n386add;
else
CGMessage(type_e_mismatch);
end;
SetResultLocation(cmpop,true,p);
SetResultLocation(cmpop,true);
end;
{*****************************************************************************
SecondAdd
pass_2
*****************************************************************************}
procedure secondadd(var p : ptree);
procedure ti386addnode.pass_2;
{ is also being used for xor, and "mul", "sub, or and comparative }
{ operators }
@ -962,7 +963,7 @@ unit n386add;
begin
{ adding elements is not commutative }
if swaped and (left.treetype=setelementn) then
swaptree(p);
swaptree;
{ are we adding set elements ? }
if right.treetype=setelementn then
begin
@ -2311,7 +2312,7 @@ unit n386add;
{$endif SUPPORT_MMX}
else CGMessage(type_e_mismatch);
end;
SetResultLocation(cmpop,unsigned,p);
SetResultLocation(cmpop,unsigned);
end;
procedure ti386addnode.pass_2;
@ -2324,7 +2325,10 @@ begin
end.
{
$Log$
Revision 1.2 2000-09-21 12:24:22 jonas
Revision 1.3 2000-09-22 22:42:52 florian
* more fixes
Revision 1.2 2000/09/21 12:24:22 jonas
* small fix to my changes for full boolean evaluation support (moved
opsize determination for boolean operations back in boolean
processing block)
@ -2332,5 +2336,4 @@ end.
Revision 1.1 2000/09/20 21:23:32 florian
* initial revision
}

8
compiler/nadd.pas
View File

@ -32,14 +32,13 @@ interface
function firstpass : tnode;override;
procedure make_bool_equal_size;
end;
tcaddnode : class of taddnode;
var
{ caddnode is used to create nodes of the add type }
{ the virtual constructor allows to assign }
{ another class type to caddnode => processor }
{ specific node types can be created }
caddnode : tcaddnode;
caddnode : class of taddnode;
function isbinaryoverloaded(var p : pnode) : boolean;
@ -1228,7 +1227,10 @@ begin
end.
{
$Log$
Revision 1.4 2000-09-21 12:22:42 jonas
Revision 1.5 2000-09-22 22:42:52 florian
* more fixes
Revision 1.4 2000/09/21 12:22:42 jonas
* put piece of code between -dnewoptimizations2 since it wasn't
necessary otherwise
+ support for full boolean evaluation (from tcadd)