X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/808a50cfd5b22c3503854d0d71075caec07c53cd..803cf6668d9e89c244e5fbc7f996a460470338dd:/unitsettc.pas?ds=sidebyside

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;