Skip to content
Permalink
Browse files

fixed PosExStringPas/PosExPas with negative Offsets (should return 0)

  • Loading branch information
Arnaud Bouchez
Arnaud Bouchez committed Dec 2, 2019
1 parent 0e01b30 commit 9fce260627c8c99ea4bf76716523d695c0f1983a
Showing with 3 additions and 3 deletions.
  1. +2 −2 SynCommons.pas
  2. +1 −1 SynopseCommit.inc
AfterTestT, AfterTest0, Ret, Exit;
begin
result := 0;
if (p=nil) or (pSub=nil) or (Offset<1) then
if (p=nil) or (pSub=nil) or (PtrInt(Offset)<=0) then
goto Exit;
{$ifdef FPC}
len := _LStrLenP(p);
AfterTestT, AfterTest0, Ret, Exit;
begin
result := 0;
if (p=nil) or (pSub=nil) or (Offset<1) then
if (p=nil) or (pSub=nil) or (PtrInt(Offset)<=0) then
goto Exit;
{$ifdef FPC}
len := _LStrLenP(p);
@@ -1 +1 @@
'1.18.5485'
'1.18.5486'

0 comments on commit 9fce260

Please sign in to comment.
You can’t perform that action at this time.