浏览代码

+ z80: implemented taicpu.CheckIfValid

git-svn-id: trunk@45181 -
nickysn 5 年之前
父节点
当前提交
552107f577
共有 1 个文件被更改,包括 7 次插入0 次删除
  1. 7 0
      compiler/z80/aasmcpu.pas

+ 7 - 0
compiler/z80/aasmcpu.pas

@@ -137,6 +137,7 @@ uses
          { register spilling code }
          function spilling_get_operation_type(opnr: longint): topertype;override;
 
+         function CheckIfValid:boolean;
          function GetString:string;
       end;
 
@@ -541,6 +542,12 @@ implementation
       end;
 
 
+    function taicpu.CheckIfValid: boolean;
+      begin
+        result:=FindInsEntry(nil);
+      end;
+
+
     function taicpu.GetString: string;
       var
         //i : longint;