paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 03:30:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* undo accidently committed changes from r11398

Browse Source 
git-svn-id: trunk@11399 -
This commit is contained in:
tom_at_work 2008-07-18 15:33:48 +00:00
parent 6958bbfdda
commit cc911887a8
1 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/raatt.pas
View File

@ -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;