From 8c21488c33ee752d347d5f29af1e917c0af1ccb0 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Mon, 19 Oct 2015 16:36:06 +0200 Subject: signed -> unsigned in lowlevelunit.pas und irdecoderunit.pas --- irdecoderunit.pas | 2 +- lowlevelunit.pas | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/irdecoderunit.pas b/irdecoderunit.pas index 1234678..c4cb658 100644 --- a/irdecoderunit.pas +++ b/irdecoderunit.pas @@ -36,7 +36,7 @@ end; function tIRDecoder.zeileVerarbeitet: boolean; var s: string; - inByte: longint; + inByte: longword; begin result:=ttySLeser.gibZeile(s); if not result then exit; diff --git a/lowlevelunit.pas b/lowlevelunit.pas index eb54b39..729752c 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -80,8 +80,8 @@ procedure fehler(s: string); function hexDump(p: pointer; cnt: longint): string; function base64ToBin(var s: string): boolean; -function base64Decode(const s: string; out i: int64): boolean; overload; -function base64Decode(const s: string; out i: longint): boolean; overload; +function base64Decode(const s: string; out i: qword): boolean; overload; +function base64Decode(const s: string; out i: longword): boolean; overload; var base64Chars: array[0..63] of char; @@ -683,7 +683,7 @@ begin result:=true; end; -function base64Decode(const s: string; out i: int64): boolean; overload; +function base64Decode(const s: string; out i: qword): boolean; overload; var j: longint; b: byte; @@ -698,9 +698,9 @@ begin result:=true; end; -function base64Decode(const s: string; out i: longint): boolean; overload; +function base64Decode(const s: string; out i: longword): boolean; overload; var - j: int64; + j: qword; begin result:=base64Decode(s,j); if result then -- cgit v1.2.3-70-g09d2