From: beware <beware@bircd.org>
Date: Mon, 15 Sep 2025 20:45:56 +0000 (+0000)
Subject: use thandle type
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/4f208267a9beb90390808093062170e91d4bd18d?ds=inline

use thandle type
---

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;