From cc911887a8af4d116ed25cc84db6cb2e600a3b4a Mon Sep 17 00:00:00 2001
From: tom_at_work <tom_at_work@idefix.freepascal.org>
Date: Fri, 18 Jul 2008 15:33:48 +0000
Subject: [PATCH] * undo accidently committed changes from r11398

git-svn-id: trunk@11399 -
---
 compiler/raatt.pas | 24 +++++++++---------------
 1 file changed, 9 insertions(+), 15 deletions(-)

diff --git a/compiler/raatt.pas b/compiler/raatt.pas
index a40a5bf760..cf8c0edce6 100644
--- a/compiler/raatt.pas
+++ b/compiler/raatt.pas
@@ -79,32 +79,26 @@ unit raatt;
 
     type
        tattreader = class(tasmreader)
-       protected
          actasmtoken    : tasmtoken;
          prevasmtoken   : tasmtoken;
-         procedure BuildRecordOffsetSize(const expr: string;var offset:aint;var size:aint; var mangledname: string; needvmtofs: boolean);
-         function BuildConstExpression(allowref,betweenbracket:boolean): aint;
-         procedure BuildConstSymbolExpression(allowref,betweenbracket,needofs:boolean;var value:aint;var asmsym:string;var asmsymtyp:TAsmsymtype);
-         procedure BuildConstantOperand(oper : toperand);
+         procedure SetupTables;
          procedure BuildConstant(constsize: byte);
+         procedure BuildConstantOperand(oper : toperand);
          procedure BuildRealConstant(typ : tfloattype);
          procedure BuildStringConstant(asciiz: boolean);
-       private
-         procedure SetupTables;
-       public
+         procedure BuildRecordOffsetSize(const expr: string;var offset:aint;var size:aint; var mangledname: string; needvmtofs: boolean);
+         procedure BuildConstSymbolExpression(allowref,betweenbracket,needofs:boolean;var value:aint;var asmsym:string;var asmsymtyp:TAsmsymtype);
+         function BuildConstExpression(allowref,betweenbracket:boolean): aint;
          function Assemble: tlinkedlist;override;
-       protected
          procedure handleopcode;virtual;abstract;
          function is_asmopcode(const s: string) : boolean;virtual;abstract;
-         function is_register(const s:string):boolean;virtual;
-         procedure handlepercent;virtual;
-       private
          Function is_asmdirective(const s: string):boolean;
-         procedure GetToken;
-       protected
+         function is_register(const s:string):boolean;virtual;
          function is_locallabel(const s: string):boolean;
-         procedure RecoverConsume(allowcomma:boolean);
+         procedure GetToken;
          function consume(t : tasmtoken):boolean;
+         procedure RecoverConsume(allowcomma:boolean);
+         procedure handlepercent;virtual;
        end;
        tcattreader = class of tattreader;