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@6230 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-03-08 08:58:52 +00:00
parent 50c9401dcd
commit e6a4afedba
32 changed files with 41 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1432,7 +1432,7 @@ end;
procedure TSynLuaSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynLuaSyn.GetRange: Pointer;

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

@ -1853,7 +1853,7 @@ end;
procedure TSynPrologSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
procedure TSynPrologSyn.AndSymbolProc;

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

@ -1391,7 +1391,7 @@ end;
procedure TSynADSP21xxSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
procedure TSynADSP21xxSyn.ResetRange;

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

@ -141,7 +141,7 @@ type
implementation
uses
SynEditStrConst, SynEditStrConstExtra;
SynEditStrConst;
var
Identifiers: array[#0..#255] of ByteBool;

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

@ -1132,7 +1132,7 @@ end;
procedure TSynCACSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynCACSyn.IsFilterStored: Boolean;

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

@ -1565,7 +1565,7 @@ end;
procedure TSynCacheSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
//------------------------------------------------------------------------------

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

@ -2324,7 +2324,7 @@ end;
procedure TSynCobolSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynCobolSyn.GetRange: Pointer;

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

@ -1509,7 +1509,7 @@ end;
procedure TSynCSSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynCSSyn.GetIdentChars: TSynIdentChars;

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

@ -1829,7 +1829,7 @@ end;
procedure TSynDmlSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
procedure TSynDmlSyn.ResetRange;

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

@ -1363,7 +1363,7 @@ end;
procedure TSynDOTSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynDOTSyn.GetRange: Pointer;

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

@ -1408,7 +1408,7 @@ end;
procedure TSynEiffelSyn.SetRange(Value :Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynEiffelSyn.GetRange :Pointer;

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

@ -416,7 +416,7 @@ end;
procedure TSynGalaxySyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
procedure TSynGalaxySyn.SetKeyWords(const Value: TStrings);

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

@ -676,7 +676,7 @@ end;
procedure TSynGeneralSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
procedure TSynGeneralSyn.SetKeyWords(const Value: TStrings);

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

@ -1026,7 +1026,7 @@ end;
procedure TSynGWScriptSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynGWScriptSyn.GetIdentChars: TSynIdentChars;

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

@ -1109,7 +1109,7 @@ end;
procedure TSynHaskellSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynHaskellSyn.GetIdentChars: TSynIdentChars;

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

@ -804,7 +804,7 @@ end;
procedure TSynHP48Syn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
procedure TSynHP48Syn.ResetRange;

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

@ -909,7 +909,7 @@ end;
procedure TSynIdlSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynIdlSyn.GetRange: Pointer;

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

@ -564,7 +564,7 @@ end;
procedure TSynLDRSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynLDRSyn.GetRange: Pointer;

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

@ -943,7 +943,7 @@ end;
procedure TSynModelicaSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynModelicaSyn.GetIdentChars: TSynIdentChars;

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

@ -1133,7 +1133,7 @@ end;
procedure TSynRCSyn.SetRange(value: pointer);
begin
fRange:= TRangeState(PtrInt(value));
fRange:= TRangeState(PtrUInt(value));
end;
procedure TSynRCSyn.EnumUserSettings(Settings: TStrings);

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

@ -59,7 +59,6 @@ uses
QSynEditHighlighter,
{$ELSE}
Graphics,
SynEditTypes,
SynEditHighlighter,
{$ENDIF}
SysUtils,
@ -180,7 +179,6 @@ uses
QSynEditMiscProcs,
QSynEditStrConst;
{$ELSE}
SynEditMiscProcs,
SynEditStrConst, SynEditStrConstExtra;
{$ENDIF}
@ -743,7 +741,7 @@ begin
fHeredocChecksum := RangePointer.Checksum;
end;
{$ELSE}
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
{$ENDIF}
end;

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

@ -670,7 +670,7 @@ end; { ResetRange }
procedure TSynSDDSyn.SetRange(Value: Pointer);
begin
inherited;
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end; { SetRange }

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

@ -939,7 +939,7 @@ end;
procedure TSynSMLSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynSMLSyn.GetRange: Pointer;

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

@ -1117,7 +1117,7 @@ end;
procedure TSynSTSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
procedure TSynSTSyn.ResetRange;

5
components/extrasyn/SyneditHighlighters/synhighlightertcltk.pas
View File

@ -58,7 +58,6 @@ uses
QSynEditHighlighter,
{$ELSE}
Graphics,
SynEditTypes,
SynEditHighlighter,
{$ENDIF}
SysUtils,
@ -168,7 +167,7 @@ uses
{$IFDEF SYN_CLX}
QSynEditStrConst;
{$ELSE}
SynEditStrConst, SynEditStrConstExtra;
SynEditStrConst;
{$ENDIF}
const
@ -680,7 +679,7 @@ end;
procedure TSynTclTkSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
procedure TSynTclTkSyn.SetKeyWords(const Value: TStrings);

3
components/extrasyn/SyneditHighlighters/synhighlighterunreal.pas
View File

@ -55,7 +55,6 @@ uses
QSynEditTypes,
{$ELSE}
Graphics,
Registry,
SynEditHighlighter,
SynEditTypes,
{$ENDIF}
@ -1756,7 +1755,7 @@ end;
procedure TSynUnrealSyn.SetRange(Value: Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
procedure TSynUnrealSyn.EnumUserSettings(settings: TStrings);

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

@ -197,7 +197,7 @@ const
Reserved = [';', '/', '?', ':', '@', '&', '=', '+', '$', ',', '%', '#'];
URIChars = Reserved + Unreserved;
NeverAtEnd = Mark - [''''] + Reserved - ['/', '$'];
URIBreakChars = [#0..#255] - URIChars - [#0..#32];
// URIBreakChars = [#0..#255] - URIChars - [#0..#32];
EMailAddressChars = ['.', '_', '-', '@'] + AlphaNum;
NeverAtEMailAddressEnd = ['.', '@'];
@ -207,7 +207,7 @@ var
procedure MakeHashTable;
var
c: Char;
u: Byte;
u: Integer;
begin
FillChar(HashTable, sizeof(HashTable), 0);

1
components/extrasyn/SyneditHighlighters/synhighlightervbscript.pas
View File

@ -58,7 +58,6 @@ uses
QSynEditTypes,
{$ELSE}
Graphics,
Registry,
SynEditHighlighter,
SynEditTypes,
{$ENDIF}

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

@ -4941,7 +4941,7 @@ end;
procedure TSynVrml97Syn.SetRange(Value :Pointer);
begin
fRange := TRangeState(PtrInt(Value));
fRange := TRangeState(PtrUInt(Value));
end;
function TSynVrml97Syn.GetIdentChars :TSynIdentChars;

6
components/extrasyn/TestHighlighters/TestSynHighlighter.lpi
View File

@ -54,9 +54,10 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="111"/>
<CursorPos X="50" Y="133"/>
<TopLine Value="65"/>
<CursorPos X="35" Y="137"/>
<UsageCount Value="62"/>
<Bookmarks Count="1">
<Item0 Y="137" ID="2"/>
@ -806,7 +807,6 @@
</Unit108>
<Unit109>
<Filename Value="..\SyneditHighlighters\synhighlightergnuplot.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/>
<TopLine Value="823"/>
<CursorPos Y="856"/>

7
components/extrasyn/extrahighlighters.lpk
View File

@ -3,7 +3,7 @@
<Package Version="4">
<PathDelim Value="\"/>
<Name Value="ExtraHighlighters"/>
<Author Value="Various authors see each highlighter source file for more info."/>
<Author Value="Various authors, see each highlighter source file for more info."/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
@ -11,6 +11,11 @@
<OtherUnitFiles Value="SyneditHighlighters"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<IgnoredMessages idx5027="True" idx5024="True" idx4055="True"/>
</CompilerMessages>
</Other>
</CompilerOptions>
<Description Value="Extra highlighters for synedit"/>
<License Value="MPL GPL dual license."/>

8
components/extrasyn/extrahighlighters_dsgn.lpk
View File

@ -4,7 +4,7 @@
<PathDelim Value="\"/>
<Name Value="ExtraHighlighters_Dsgn"/>
<Type Value="DesignTime"/>
<Author Value="various authors see each highlighter file from more info."/>
<Author Value="various authors, see each highlighter file for more info."/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
@ -15,16 +15,12 @@
<Description Value="Extra highlighters for synedit"/>
<License Value="MPL, LGPL DUAL license."/>
<Version Major="1"/>
<Files Count="2">
<Files Count="1">
<Item1>
<Filename Value="uhighlighterreg.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="uHighlighterReg"/>
</Item1>
<Item2>
<Filename Value="images.lrs"/>
<Type Value="LRS"/>
</Item2>
</Files>
<RequiredPkgs Count="2">
<Item1>