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

* fixed previous commit bug fix of getexplicitregister32

Browse Source 
(usableregs32 was decremented twice, thnaks Pierre for that hint)
This commit is contained in:
florian 1998-12-11 17:22:40 +00:00
parent 1b4cf9afb5
commit d439e323fd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/tgeni386.pas
View File

@ -311,9 +311,9 @@ implementation
function getexplicitregister32(r : tregister) : tregister; function getexplicitregister32(r : tregister) : tregister;
begin begin
dec(usablereg32);
if r in unused then if r in unused then
begin begin
dec(usablereg32);
unused:=unused-[r]; unused:=unused-[r];
usedinproc:=usedinproc or ($80 shr byte(r)); usedinproc:=usedinproc or ($80 shr byte(r));
getexplicitregister32:=R_ECX; getexplicitregister32:=R_ECX;
@ -370,7 +370,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.15 1998-12-11 16:10:13 florian Revision 1.16 1998-12-11 17:22:40 florian
* fixed previous commit bug fix of getexplicitregister32
(usableregs32 was decremented twice, thnaks Pierre for that hint)
Revision 1.15 1998/12/11 16:10:13 florian
+ shifting for 64 bit ints added + shifting for 64 bit ints added
* bug in getexplicitregister32 fixed: usableregs wasn't decremented !! * bug in getexplicitregister32 fixed: usableregs wasn't decremented !!