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

* now every available fpu register is used for

Browse Source 
fpu register variables
This commit is contained in:
florian 1999-08-04 14:21:07 +00:00
parent ab66749e27
commit d66fdc645a
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pass_2.pas
View File

@ -578,7 +578,7 @@ implementation
symtablestack^.next^.foreach({$ifndef TP}@{$endif}searchregvars);
{$endif dummy}
{ hold needed registers free }
for i:=maxvarregs downto maxvarregs-p^.registersfpu+1 do
for i:=maxfpuvarregs downto maxfpuvarregs-p^.registersfpu+1 do
regvars[i]:=nil;
{ now assign register }
for i:=1 to maxfpuvarregs-p^.registersfpu do
@ -610,6 +610,9 @@ implementation
{$endif dummy}
end;
end;
if cs_asm_source in aktglobalswitches then
procinfo.aktentrycode^.insert(new(pai_asm_comment,init(strpnew(tostr(p^.registersfpu)+
' registers on FPU stack used by temp. expressions'))));
for i:=1 to maxfpuvarregs do
begin
if assigned(regvars[i]) then
@ -645,7 +648,11 @@ implementation
end.
{
$Log$
Revision 1.29 1999-08-04 13:45:28 florian
Revision 1.30 1999-08-04 14:21:07 florian
* now every available fpu register is used for
fpu register variables
Revision 1.29 1999/08/04 13:45:28 florian
+ floating point register variables !!
* pairegalloc is now generated for register variables