Permalink
Browse files

some TMatch fix for Delphi Win64

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Jan 10, 2019
1 parent 54dd708 commit 215437a15fe23ed1ac8b63f67ee22b1c7852224a
Showing with 7 additions and 3 deletions.
  1. +6 −2 SynTable.pas
  2. +1 −1 SynopseCommit.inc
@@ -2270,7 +2270,7 @@ TExprParserMatch = class(TExprParserAbstract)
/// returns TRUE if the expression is within the text buffer
function Search(aText: PUTF8Char; aTextLen: PtrInt): boolean; overload;
/// returns TRUE if the expression is within the text buffer
function Search(const aText: RawUTF8): boolean; overload;
function Search(const aText: RawUTF8): boolean; overload; {$ifdef HASINLINE}inline;{$endif}
end;

const
@@ -5266,8 +5266,12 @@ function SearchNoRange(aMatch: PMatch; aText: PUTF8Char; aTextLen: PtrInt): bool
var
c: AnsiChar;
pat, patend, txtend, txtretry, patretry: PUTF8Char;
label
fin;
begin
pat := pointer(aMatch.Pattern);
if pat = nil then
goto fin;
patend := pat + aMatch.PMax;
patretry := nil;
txtend := aText + aTextLen - 1;
@@ -5305,7 +5309,7 @@ function SearchNoRange(aMatch: PMatch; aText: PUTF8Char; aTextLen: PtrInt): bool
pat := patretry;
continue;
end;
result := false;
fin:result := false;
exit;
until false;
result := true;
@@ -1 +1 @@
'1.18.4949'
'1.18.4950'

0 comments on commit 215437a

Please sign in to comment.