paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 05:41:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

reduced output

Browse Source 
git-svn-id: trunk@4260 -
This commit is contained in:
mattias 2003-06-11 22:58:49 +00:00
parent 4d558ca95e
commit fdeb618d36
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synhighlighterunixshellscript.pas
View File

@ -199,11 +199,16 @@ const
var
Identifiers: array[#0..#255] of ByteBool;
{$IFNDEF SYN_LAZARUS}
mHashTable: array[#0..#255] of Integer;
{$ENDIF}
procedure MakeIdentTable;
var
I, J: Char;
I: Char;
{$IFNDEF SYN_LAZARUS}
K: Char;
{$ENDIF}
begin
for I := #0 to #255 do
begin
@ -213,11 +218,13 @@ begin
else
Identifiers[I] := False;
end;
{$IFNDEF SYN_LAZARUS}
J := UpCase(I);
case I in ['_', 'a'..'z', 'A'..'Z'] of
True: mHashTable[I] := Ord(J) - 64
else mHashTable[I] := 0;
end;
{$ENDIF}
end;
end;