paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* t386innode.pass_2 already doesn't call a helper anymore since a long

Browse Source 
time
This commit is contained in:
Jonas Maebe 2003-06-12 22:10:44 +00:00
parent 7ca760912b
commit 67e0cc3ad6
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i386/n386set.pas
View File

@ -74,19 +74,12 @@ implementation
exit; exit;
left_right_max; left_right_max;
{ this is not allways true due to optimization }
{ but if we don't set this we get problems with optimizing self code }
if tsetdef(right.resulttype.def).settype<>smallset then
include(current_procinfo.flags,pi_do_call)
else
begin
{ a smallset needs maybe an misc. register } { a smallset needs maybe an misc. register }
if (left.nodetype<>ordconstn) and if (left.nodetype<>ordconstn) and
not(right.location.loc in [LOC_CREGISTER,LOC_REGISTER]) and not(right.location.loc in [LOC_CREGISTER,LOC_REGISTER]) and
(right.registers32<1) then (right.registers32<1) then
inc(registers32); inc(registers32);
end; end;
end;
@ -737,7 +730,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.61 2003-06-03 21:11:09 peter Revision 1.62 2003-06-12 22:10:44 jonas
* t386innode.pass_2 already doesn't call a helper anymore since a long
time
Revision 1.61 2003/06/03 21:11:09 peter
* cg.a_load_* get a from and to size specifier * cg.a_load_* get a from and to size specifier
* makeregsize only accepts newregister * makeregsize only accepts newregister
* i386 uses generic tcgnotnode,tcgunaryminus * i386 uses generic tcgnotnode,tcgunaryminus