Added some missing imports

zyantific · Feb 26, 2018 · 0ddec52 · 0ddec52
1 parent ae626eb
commit 0ddec52
Showing 1 changed file with 42 additions and 0 deletions.
diff --git a/Zydis/Zydis.pas b/Zydis/Zydis.pas
@@ -1257,6 +1257,22 @@ function ZydisMnemonicGetStaticString(Mnemonic: TZydisMnemonic): PZydisStaticStr
   external {$IFDEF ZYDIS_DYNAMIC_LINK}ZYDIS_LIBRARY_NAME{$ENDIF}
   name ZYDIS_SYMBOL_PREFIX + 'ZydisMnemonicGetStaticString';
 
+{* ---------------------------------------------------------------------------------------------- *}
+{* MetaInfo                                                                                       *}
+{* ---------------------------------------------------------------------------------------------- *}
+
+function ZydisCategoryGetString(Category: TZydisInstructionCategory): PAnsiChar; cdecl;
+  external {$IFDEF ZYDIS_DYNAMIC_LINK}ZYDIS_LIBRARY_NAME{$ENDIF}
+  name ZYDIS_SYMBOL_PREFIX + 'ZydisCategoryGetString';
+
+function ZydisISASetGetString(ISASet: TZydisISASet): PAnsiChar; cdecl;
+  external {$IFDEF ZYDIS_DYNAMIC_LINK}ZYDIS_LIBRARY_NAME{$ENDIF}
+  name ZYDIS_SYMBOL_PREFIX + 'ZydisISASetGetString';
+
+function ZydisISAExtGetString(ISAExt: TZydisISAExt): PAnsiChar; cdecl;
+  external {$IFDEF ZYDIS_DYNAMIC_LINK}ZYDIS_LIBRARY_NAME{$ENDIF}
+  name ZYDIS_SYMBOL_PREFIX + 'ZydisISAExtGetString';
+
 {* ---------------------------------------------------------------------------------------------- *}
 {* Decoder                                                                                        *}
 {* ---------------------------------------------------------------------------------------------- *}
@@ -1384,6 +1400,16 @@   TZydisMnemonicHelper = record helper for TZydisMnemonic
     function ToString: String; inline;
   end;
 
+{* ---------------------------------------------------------------------------------------------- *}
+{* ZydisRegister                                                                                  *}
+{* ---------------------------------------------------------------------------------------------- *}
+
+type
+  TZydisRegisterHelper = record helper for TZydisRegister
+  public
+    function ToString: String; inline;
+  end;
+
 {* ---------------------------------------------------------------------------------------------- *}
 
 {* ============================================================================================== *}
@@ -1604,6 +1630,22 @@ function TZydisStringHelper.Init(const Text: PAnsiChar): TZydisStatus;
   Result := ZydisStringInit(Self, Text);
 end;
 
+{* ---------------------------------------------------------------------------------------------- *}
+{* ZydisRegister                                                                                  *}
+{* ---------------------------------------------------------------------------------------------- *}
+
+function TZydisRegisterHelper.ToString: String;
+var
+  S: PAnsiChar;
+begin
+  Result := '';
+  S := ZydisRegisterGetString(Self);
+  if Assigned(S) then
+  begin
+    Result := String(AnsiString(S));
+  end;
+end;
+
 {* ---------------------------------------------------------------------------------------------- *}
 {* ZydisMnemonic                                                                                  *}
 {* ---------------------------------------------------------------------------------------------- *}