X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/881f7470d3b4e20015e4c9ddcd1625a2bafe39b9..4f208267a9beb90390808093062170e91d4bd18d:/unitsettc.pas

diff --git a/unitsettc.pas b/unitsettc.pas
index 7dc1229..32fb580 100644
--- a/unitsettc.pas
+++ b/unitsettc.pas
@@ -22,7 +22,7 @@ var
 
 procedure settc;
 var
-  hprocess,hthread:integer;
+  hprocess,hthread:thandle;
 begin
   if (refcount = 0) then begin
     hProcess := GetCurrentProcess;
@@ -37,7 +37,7 @@ end;
 
 procedure unsettc;
 var
-  hprocess,hthread:integer;
+  hprocess,hthread:thandle;
 begin
   dec(refcount);
   if (refcount < 0) then refcount := 0;