paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-19 20:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented tz80reader.is_asmopcode

Browse Source 
git-svn-id: branches/z80@44783 -
This commit is contained in:
nickysn 2020-04-18 14:32:44 +00:00
parent 5a94c2adbe
commit 6e0bdaf128
1 changed files with 15 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
compiler/z80/raz80asm.pas
View File

@ -63,7 +63,7 @@ Unit raz80asm;
tz80reader = class(tasmreader) tz80reader = class(tasmreader)
actasmtoken : tasmtoken; actasmtoken : tasmtoken;
//function is_asmopcode(const s: string):boolean;override; function is_asmopcode(const s: string):boolean;
function is_register(const s:string):boolean; function is_register(const s:string):boolean;
//procedure handleopcode;override; //procedure handleopcode;override;
//procedure BuildReference(oper : tz80operand); //procedure BuildReference(oper : tz80operand);
@ -99,6 +99,20 @@ Unit raz80asm;
*****************************************************************************} *****************************************************************************}
function tz80reader.is_asmopcode(const s: string):boolean;
begin
actcondition:=C_None;
actopcode:=tasmop(PtrUInt(iasmops.Find(s)));
if actopcode<>A_NONE then
begin
actasmtoken:=AS_OPCODE;
is_asmopcode:=true;
end
else
is_asmopcode:=false;
end;
function tz80reader.is_register(const s:string):boolean; function tz80reader.is_register(const s:string):boolean;
begin begin
is_register:=false; is_register:=false;
@ -596,81 +610,6 @@ Unit raz80asm;
// end; // end;
//function tz80reader.is_asmopcode(const s: string):boolean;
//
// const
// { sorted by length so longer postfixes will match first }
// postfix2strsorted : array[1..19] of string[2] = (
// 'EP','SB','BT','SH',
// 'IA','IB','DA','DB','FD','FA','ED','EA',
// 'B','D','E','P','T','H','S');
//
// var
// len,
// j,
// sufidx : longint;
// hs : string;
// maxlen : longint;
// icond : tasmcond;
// Begin
// { making s a value parameter would break other assembler readers }
// hs:=s;
// is_asmopcode:=false;
//
// { clear op code }
// actopcode:=A_None;
//
// actcondition:=C_None;
//
// { first, handle B else BLS is read wrong }
// if ((copy(hs,1,2)='BR') and (length(hs)=4)) then
// begin
// for icond:=low(tasmcond) to high(tasmcond) do
// begin
// if copy(hs,2,3)=uppercond2str[icond] then
// begin
// actopcode:=A_BRxx;
// actasmtoken:=AS_OPCODE;
// actcondition:=icond;
// is_asmopcode:=true;
// exit;
// end;
// end;
// end;
// maxlen:=max(length(hs),5);
// actopcode:=A_NONE;
// for j:=maxlen downto 1 do
// begin
// actopcode:=tasmop(PtrUInt(iasmops.Find(copy(hs,1,j))));
// if actopcode<>A_NONE then
// begin
// actasmtoken:=AS_OPCODE;
// { strip op code }
// delete(hs,1,j);
// break;
// end;
// end;
// if actopcode=A_NONE then
// exit;
// { search for condition, conditions are always 2 chars }
// if length(hs)>1 then
// begin
// for icond:=low(tasmcond) to high(tasmcond) do
// begin
// if copy(hs,1,2)=uppercond2str[icond] then
// begin
// actcondition:=icond;
// { strip condition }
// delete(hs,1,2);
// break;
// end;
// end;
// end;
// { if we stripped all postfixes, it's a valid opcode }
// is_asmopcode:=length(hs)=0;
// end;
procedure tz80reader.ConvertCalljmp(instr : tz80instruction); procedure tz80reader.ConvertCalljmp(instr : tz80instruction);
var var
newopr : toprrec; newopr : toprrec;