jvcllaz: Fix a series of issues with Linux

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6318 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-18 22:20:45 +00:00
parent 0e4645f9bf
commit bfdb6c5eaa
66 changed files with 3102 additions and 3573 deletions

View File

@@ -79,7 +79,10 @@ uses
const
WordTableSize = 10007; {a prime}
SoundexTableSize = 26 * 7 * 7 * 7; {the exact number of Soundexes}
cDelimiters: TSysCharSet = [#0..#32, '.', ',', '<', '>', '=', '!', '?', ':', ';', '"', '''', '(', ')', '[', ']', '{', '}', '+', '|'];
cDelimiters: TSysCharSet = [
#0..#32, '.', ',', '<', '>', '=', '!', '?', ':', ';', '"', '''',
'(', ')', '[', ']', '{', '}', '+', '|'
];
type
TSoundex = string[4];
@@ -608,14 +611,5 @@ begin
SpellChecker.UserDictionary := Value;
end;
{$IFDEF UNITVERSIONING}
initialization
RegisterUnitVersion(HInstance, UnitVersioning);
{$ENDIF UNITVERSIONING}
{$IFDEF UNITVERSIONING}
finalization
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
end.

View File

@@ -407,12 +407,5 @@ begin
Result := (FWordEnd <= L);
end;
{$IFDEF UNITVERSIONING}
initialization
RegisterUnitVersion(HInstance, UnitVersioning);
finalization
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
end.