From 4f208267a9beb90390808093062170e91d4bd18d Mon Sep 17 00:00:00 2001
From: beware <beware@bircd.org>
Date: Mon, 15 Sep 2025 20:45:56 +0000
Subject: [PATCH] use thandle type

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

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;
-- 
2.30.2