mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 19:09:16 +02:00
+ z80: implemented taicpu.CheckIfValid
git-svn-id: trunk@45181 -
This commit is contained in:
parent
d5b8e49da2
commit
552107f577
@ -137,6 +137,7 @@ uses
|
|||||||
{ register spilling code }
|
{ register spilling code }
|
||||||
function spilling_get_operation_type(opnr: longint): topertype;override;
|
function spilling_get_operation_type(opnr: longint): topertype;override;
|
||||||
|
|
||||||
|
function CheckIfValid:boolean;
|
||||||
function GetString:string;
|
function GetString:string;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -541,6 +542,12 @@ implementation
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function taicpu.CheckIfValid: boolean;
|
||||||
|
begin
|
||||||
|
result:=FindInsEntry(nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
function taicpu.GetString: string;
|
function taicpu.GetString: string;
|
||||||
var
|
var
|
||||||
//i : longint;
|
//i : longint;
|
||||||
|
Loading…
Reference in New Issue
Block a user