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