2
0
Эх сурвалжийг харах

+ z80: implemented taicpu.CheckIfValid

git-svn-id: trunk@45181 -
nickysn 5 жил өмнө
parent
commit
552107f577

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