+ New virtual method TATTReader.HandleDollar, useful for MIPS reader

git-svn-id: trunk@20220 -

compiler/raatt.pas

@@ -105,6 +105,7 @@ unit raatt;
          function consume(t : tasmtoken):boolean;
          procedure RecoverConsume(allowcomma:boolean);
          procedure handlepercent;virtual;
+         procedure handledollar;virtual;
          procedure HandleTargetDirective;virtual;
        end;
        tcattreader = class of tattreader;
@@ -174,6 +175,12 @@ unit raatt;
       end;
 
 
+    procedure tattreader.handledollar;
+      begin
+        c:=current_scanner.asmgetchar;
+        actasmtoken:=AS_DOLLAR;
+      end;
+
     procedure tattreader.handlepercent;
       begin
         c:=current_scanner.asmgetchar;
@@ -603,8 +610,7 @@ unit raatt;
 
              '$' :
                begin
-                 actasmtoken:=AS_DOLLAR;
-                 c:=current_scanner.asmgetchar;
+                 handledollar;
                  exit;
                end;