diff options
| author | Erich Eckner <git@eckner.net> | 2015-10-19 16:36:06 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-10-19 16:45:41 +0200 |
| commit | 8c21488c33ee752d347d5f29af1e917c0af1ccb0 (patch) | |
| tree | 3998ca9af5219ca91d0426c67fb13d4802f7f0c8 | |
| parent | b336784693af5b73d1c9855ba6a43ee530a13b4b (diff) | |
| download | units-8c21488c33ee752d347d5f29af1e917c0af1ccb0.tar.xz | |
signed -> unsigned in lowlevelunit.pas und irdecoderunit.pas
| -rw-r--r-- | irdecoderunit.pas | 2 | ||||
| -rw-r--r-- | 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 |