paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:00:28 +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 type
tattreader = class(tasmreader) tattreader = class(tasmreader)
protected
actasmtoken : tasmtoken; actasmtoken : tasmtoken;
prevasmtoken : tasmtoken; prevasmtoken : tasmtoken;
procedure BuildRecordOffsetSize(const expr: string;var offset:aint;var size:aint; var mangledname: string; needvmtofs: boolean); procedure SetupTables;
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 BuildConstant(constsize: byte); procedure BuildConstant(constsize: byte);
procedure BuildConstantOperand(oper : toperand);
procedure BuildRealConstant(typ : tfloattype); procedure BuildRealConstant(typ : tfloattype);
procedure BuildStringConstant(asciiz: boolean); procedure BuildStringConstant(asciiz: boolean);
private procedure BuildRecordOffsetSize(const expr: string;var offset:aint;var size:aint; var mangledname: string; needvmtofs: boolean);
procedure SetupTables; procedure BuildConstSymbolExpression(allowref,betweenbracket,needofs:boolean;var value:aint;var asmsym:string;var asmsymtyp:TAsmsymtype);
public function BuildConstExpression(allowref,betweenbracket:boolean): aint;
function Assemble: tlinkedlist;override; function Assemble: tlinkedlist;override;
protected
procedure handleopcode;virtual;abstract; procedure handleopcode;virtual;abstract;
function is_asmopcode(const s: string) : boolean;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; Function is_asmdirective(const s: string):boolean;
procedure GetToken; function is_register(const s:string):boolean;virtual;
protected
function is_locallabel(const s: string):boolean; function is_locallabel(const s: string):boolean;
procedure RecoverConsume(allowcomma:boolean); procedure GetToken;
function consume(t : tasmtoken):boolean; function consume(t : tasmtoken):boolean;
procedure RecoverConsume(allowcomma:boolean);
procedure handlepercent;virtual;
end; end;
tcattreader = class of tattreader; tcattreader = class of tattreader;