paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 15:39:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 223 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@349 -
This commit is contained in:
peter 2005-06-10 07:27:34 +00:00
parent 76f5ab6274
commit 4b3c325d8a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/base/regexpr/regexpr.pp
View File

@ -181,9 +181,11 @@ unit regexpr;
readchars:=cs_nonwordchars;
end;
else
begin
error:=true;
exit;
begin //Some basic escaping...
readchars := [currentpos^];
inc (currentpos);
{error:=true;
exit;}
end;
end;
end;