|
@@ -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 !!
|
|
|
|
|
|
florian