|
@@ -57,18 +57,20 @@ unit tgobj;
|
|
end;
|
|
end;
|
|
|
|
|
|
ttgobj = object
|
|
ttgobj = object
|
|
- unusedregsint,availabletempregsint : tregisterset;
|
|
|
|
- unusedregsfpu,availabletempregsfpu : tregisterset;
|
|
|
|
- unusedregsmm,availabletempregsmm : tregisterset;
|
|
|
|
- countusableregsint,
|
|
|
|
- countusableregsfpu,
|
|
|
|
- countusableregsmm : byte;
|
|
|
|
- c_countusableregsint,
|
|
|
|
- c_countusableregsfpu,
|
|
|
|
- c_countusableregsmm : byte;
|
|
|
|
-
|
|
|
|
- usedinproc : tregisterset;
|
|
|
|
-
|
|
|
|
|
|
+ unusedregsint,availabletempregsint : tregisterset;
|
|
|
|
+ unusedregsfpu,availabletempregsfpu : tregisterset;
|
|
|
|
+ unusedregsmm,availabletempregsmm : tregisterset;
|
|
|
|
+ countusableregsint,
|
|
|
|
+ countusableregsfpu,
|
|
|
|
+ countusableregsmm : byte;
|
|
|
|
+ c_countusableregsint,
|
|
|
|
+ c_countusableregsfpu,
|
|
|
|
+ c_countusableregsmm : byte;
|
|
|
|
+
|
|
|
|
+ usedinproc : tregisterset;
|
|
|
|
+
|
|
|
|
+ reg_pushes : array[firstreg..lastreg] of longint;
|
|
|
|
+ is_reg_var : array[firstreg..lastreg] of boolean;
|
|
{ contains all temps }
|
|
{ contains all temps }
|
|
templist : ptemprecord;
|
|
templist : ptemprecord;
|
|
{ contains all free temps using nextfree links }
|
|
{ contains all free temps using nextfree links }
|
|
@@ -692,7 +694,10 @@ unit tgobj;
|
|
end.
|
|
end.
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.2 1999-08-02 23:13:22 florian
|
|
|
|
|
|
+ Revision 1.3 1999-08-03 00:32:13 florian
|
|
|
|
+ * reg_vars and reg_pushes is now in tgobj
|
|
|
|
+
|
|
|
|
+ Revision 1.2 1999/08/02 23:13:22 florian
|
|
* more changes to compile for the Alpha
|
|
* more changes to compile for the Alpha
|
|
|
|
|
|
Revision 1.1 1999/08/02 17:14:12 florian
|
|
Revision 1.1 1999/08/02 17:14:12 florian
|