pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

extrasyn: Less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8124 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-10-27 14:38:35 +00:00
parent abb51a3028
commit 7cd8c31626
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/extrasyn/SyneditHighlighters/synhighlighterawk.pas
View File

@ -287,7 +287,7 @@ procedure TSynAWKSyn.IdentProc;
var var
i: Integer; i: Integer;
idx: Integer; idx: Integer;
s: string; s: string = '';
begin begin
i := Run; i := Run;
while (fLine[i] in ['a'..'z', 'A'..'Z']) do begin while (fLine[i] in ['a'..'z', 'A'..'Z']) do begin

4
components/extrasyn/SyneditHighlighters/synhighlighterhp48.pas
View File

@ -249,9 +249,9 @@ const
'A=PC'#13#10'C=PC'#13#10'APCEX'#13#10'CPCEX'#13#10'XM=0'#13#10'SB=0'#13#10'SR=0'#13#10'MP=0'#13#10'CLRHST'#13#10'?XM=0'#13#10'?SR=0'#13#10'?MP=0'#13#10'?SB=0'#13#10'RTNYES'#13#10'SKIPYES{'#13#10'{'#13#10'}'#13#10'UP'#13#10'EXIT'#13#10'EXITNC'#13#10'EXITC'#13#10'UPC'#13#10'UPNC' + 'A=PC'#13#10'C=PC'#13#10'APCEX'#13#10'CPCEX'#13#10'XM=0'#13#10'SB=0'#13#10'SR=0'#13#10'MP=0'#13#10'CLRHST'#13#10'?XM=0'#13#10'?SR=0'#13#10'?MP=0'#13#10'?SB=0'#13#10'RTNYES'#13#10'SKIPYES{'#13#10'{'#13#10'}'#13#10'UP'#13#10'EXIT'#13#10'EXITNC'#13#10'EXITC'#13#10'UPC'#13#10'UPNC' +
'}SKELSE{'#13#10'SKC{'#13#10'SKNC{'#13#10'SKUB{'#13#10'SKUBL{'#13#10'SKIPC{'#13#10'SKIPNC{'#13#10'EXIT2'#13#10'EXIT3'#13#10'UP2'#13#10'UP3'#13#10'}SKLSE{'#13#10'}SKEC{'#13#10'}SKENC{'#13#10; '}SKELSE{'#13#10'SKC{'#13#10'SKNC{'#13#10'SKUB{'#13#10'SKUBL{'#13#10'SKIPC{'#13#10'SKIPNC{'#13#10'EXIT2'#13#10'EXIT3'#13#10'UP2'#13#10'UP3'#13#10'}SKLSE{'#13#10'}SKEC{'#13#10'}SKENC{'#13#10;
function StringCrc(S: string): integer; function StringCrc(S: string): Cardinal;
var var
i: integer; i: Cardinal;
begin begin
result := 0; result := 0;
for i := 1 to length(s) do begin for i := 1 to length(s) do begin