From deafba6cdc276a351c5e0cd11d5d1e640dc98510 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 5 Dec 2017 08:35:42 +0100
Subject: irdecoderunit.pas: bugfix wenn Taste unbekannt

---
 irdecoderunit.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/irdecoderunit.pas b/irdecoderunit.pas
index 4063085..3aa2c40 100644
--- a/irdecoderunit.pas
+++ b/irdecoderunit.pas
@@ -31,8 +31,8 @@ type
     procedure init;
     procedure tastenDruckAnhaengen(lw: longword);
     procedure befehlAusfuehren(cmd,params: string);
-    function findeZeichen(lw: longword): int64;
-    function findeBefehl(lw: longword): int64;
+    function findeZeichen(lw: longword): longword;
+    function findeBefehl(lw: longword): longword;
     procedure befehlVlltEntprellen(num: longint);
   public
     constructor create(inputName, konfigName: string; watte, debug: boolean);
@@ -177,7 +177,7 @@ begin
   end;
 end;
 
-function tIRDecoder.findeZeichen(lw: longword): int64;
+function tIRDecoder.findeZeichen(lw: longword): longword;
 var
   mi,ma: int64;
 begin
@@ -202,11 +202,11 @@ begin
   result:=mi;
   if zeichenTabelle[result]<>lw then begin
     writeln(stderr,'Kann Tastencode '''+intToHex(lw,4)+''' nicht finden, ignoriere Taste!');
-    result:=not 0;
+    result:=longword(not 0);
   end;
 end;
 
-function tIRDecoder.findeBefehl(lw: longword): int64;
+function tIRDecoder.findeBefehl(lw: longword): longword;
 var
   mi,ma: int64;
 begin
-- 
cgit v1.2.3-70-g09d2