From 398ebc3d68623a0ab618e673978b34ebf03e4ec8 Mon Sep 17 00:00:00 2001
From: Bernd K <prof7bit@gmail.com>
Date: Sun, 20 Nov 2016 14:29:51 +0100
Subject: [PATCH] use only native FPC types in the application facing API

---
 hidapi.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hidapi.pas b/hidapi.pas
index 5787775..4e5f074 100644
--- 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;