+ TUsedRegs.Dump

git-svn-id: trunk@38067 -

compiler/aoptobj.pas

@@ -85,6 +85,9 @@ Unit AoptObj;
         Function IsUsed(Reg: TRegister): Boolean;
         { get all the currently used registers }
         Function GetUsedRegs: TRegSet;
+
+        { outputs  the current set }
+        Procedure Dump(var t : text);
       Private
         Typ : TRegisterType;
         UsedRegs: TRegSet;
@@ -452,6 +455,18 @@ Unit AoptObj;
       End;
 
 
+    procedure TUsedRegs.Dump(var t: text);
+      var
+        i: dword;
+      begin
+        write(t,Typ,' ');
+        for i:=low(TRegSet) to high(TRegSet) do
+          if i in UsedRegs then
+            write(t,i,' ');
+         writeln(t);
+      end;
+
+
     Destructor TUsedRegs.Destroy;
       Begin
         inherited destroy;