use only native FPC types in the application facing API

dioannidis · Nov 20, 2016 · 398ebc3 · 398ebc3
1 parent d9bb2fc
commit 398ebc3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hidapi.pas b/hidapi.pas
@@ -45,7 +45,7 @@ interface
   THidDevice = object
     function Write(const Data; Length: SizeInt): SizeInt;
     function Read(out Data; Length: SizeInt): SizeInt;
-    function ReadTimeout(out Data; Length: SizeInt; Millis: cint): SizeInt;
+    function ReadTimeout(out Data; Length: SizeInt; Millis: Integer): SizeInt;
     function SetNonBlocking(NonBlock: Integer): Integer;
     function SendFeatureReport(const Data; Length: SizeInt): SizeInt;
     function GetFeatureReport(out Data; Length: SizeInt): SizeInt;
@@ -180,7 +180,7 @@ function THidDevice.Read(out Data; Length: SizeInt): SizeInt;
   Result :=  hid_read(@Self, @Data, Length);
 end;
 
-function THidDevice.ReadTimeout(out Data; Length: SizeInt; Millis: cint): SizeInt;
+function THidDevice.ReadTimeout(out Data; Length: SizeInt; Millis: Integer): SizeInt;
 begin
   Result :=  hid_read_timeout(@Self, @Data, Length, Millis);
 end;