paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

turbopower_ipro: less hints

Browse Source
This commit is contained in:
mattias 2024-03-05 15:38:09 +01:00
parent 1c135fc40e
commit 6bfe7d15c8
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/turbopower_ipro/ipmsg.pas
View File

@ -662,7 +662,7 @@ type
TIp6BitTable = array[0..63] of AnsiChar; TIp6BitTable = array[0..63] of AnsiChar;
const {- BinHex encoding table } const {- BinHex encoding table }
IpBinHexTable : TIp6BitTable = ( {%H-}IpBinHexTable : TIp6BitTable = (
'!', '"', '#', '$', '%', '&', '''', '(', '!', '"', '#', '$', '%', '&', '''', '(',
')', '*', '+', ',', '-', '0', '1', '2', ')', '*', '+', ',', '-', '0', '1', '2',
'3', '4', '5', '6', '8', '9', '@', 'A', '3', '4', '5', '6', '8', '9', '@', 'A',
@ -724,7 +724,7 @@ const { UUEncode encoding table }
const const
HexDigits : array[0..$F] of AnsiChar = '0123456789ABCDEF'; HexDigits : array[0..$F] of AnsiChar = '0123456789ABCDEF';
RLEChar : Byte = $90; RLEChar : Byte = $90;
BinHexFileType : array[0..3] of Byte = ($49, $42, $4D, $3F); { "IBM?" } {%H-}BinHexFileType : array[0..3] of Byte = ($49, $42, $4D, $3F); { "IBM?" }
CRLF = #13#10; CRLF = #13#10;
MaxLine = 1000; MaxLine = 1000;
MaxLineEncode = 77; MaxLineEncode = 77;
@ -2030,7 +2030,7 @@ var
I : Integer; I : Integer;
C : Char; C : Char;
InBuf : array[0..3] of Char; InBuf : array[0..3] of Char;
OutBuf : array[0..2] of Byte; {%H-}OutBuf : array[0..2] of Byte;
Done : Boolean; Done : Boolean;
Abort : Boolean; Abort : Boolean;
BufStream : TIpBufferedStream; BufStream : TIpBufferedStream;
@ -2081,7 +2081,7 @@ end;
procedure TIpMimeEntity.DecodeBinHex(OutStream : TStream); procedure TIpMimeEntity.DecodeBinHex(OutStream : TStream);
var var
InBuf : array[1..4] of Byte; InBuf : array[1..4] of Byte;
OutBuf : array[1..3] of Byte; {%H-}OutBuf : array[1..3] of Byte;
i : Byte; i : Byte;
btThis, btLast, btNext : Byte; btThis, btLast, btNext : Byte;
ch : AnsiChar; ch : AnsiChar;
@ -2409,7 +2409,7 @@ procedure TIpMimeEntity.DecodeUUEncode(OutStream : TStream);
var var
I, O, Len, Count : Byte; I, O, Len, Count : Byte;
InBuf : array[0..85] of Byte; InBuf : array[0..85] of Byte;
OutBuf : array[0..65] of Byte; {%H-}OutBuf : array[0..65] of Byte;
FirstLine : Boolean; FirstLine : Boolean;
Abort : Boolean; Abort : Boolean;
BufStream : TIpBufferedStream; BufStream : TIpBufferedStream;
@ -2509,7 +2509,7 @@ procedure TIpMimeEntity.EncodeBinHex(InStream : TStream;
const aFileName : string); const aFileName : string);
var var
HeaderFileName : string; HeaderFileName : string;
CRC : Word; {%H-}CRC : Word;
DataOffset : DWord; DataOffset : DWord;
PrevByte, CurrByte, i : Byte; PrevByte, CurrByte, i : Byte;
Header : BinHexHeader; Header : BinHexHeader;
@ -2669,7 +2669,7 @@ procedure TIpMimeEntity.EncodeUUEncode(InStream : TStream;
var var
I, O, Count, Temp : Byte; I, O, Count, Temp : Byte;
InBuf : array[1..45] of Byte; InBuf : array[1..45] of Byte;
OutBuf : array[0..63] of AnsiChar; {%H-}OutBuf : array[0..63] of AnsiChar;
Abort : Boolean; Abort : Boolean;
begin begin
Abort := False; Abort := False;

4
components/turbopower_ipro/ipstrms.pas
View File

@ -273,7 +273,7 @@ type
implementation implementation
const const
LineTerm : array [TIpLineTerminator] of {%H-}LineTerm : array [TIpLineTerminator] of
array [0..1] of AnsiChar = array [0..1] of AnsiChar =
('', #13, #10, #13#10, ''); ('', #13, #10, #13#10, '');
@ -1490,7 +1490,7 @@ end;
procedure TIpAnsiTextStream.WriteLineArray(aCharArray : PAnsiChar; procedure TIpAnsiTextStream.WriteLineArray(aCharArray : PAnsiChar;
aLen : Longint); aLen : Longint);
var var
C : AnsiChar; {%H-}C : AnsiChar;
begin begin
if not Assigned(FStream) then if not Assigned(FStream) then
Exit; Exit;