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

* initialise error to false. Why was this not found yet? :-)

Browse Source
This commit is contained in:
marco 2004-11-14 15:55:25 +00:00
parent 8d238cd712
commit 2dfadfc8fd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -435,6 +435,7 @@ unit regexpr;
if (ref_singleline in flags) and (ref_multiline in flags) then if (ref_singleline in flags) and (ref_multiline in flags) then
exit; exit;
currentpos:=regexpr; currentpos:=regexpr;
error:=false;
new(endp); new(endp);
doregister(endp); doregister(endp);
endp^.typ:=ret_illegalend; endp^.typ:=ret_illegalend;
@ -593,7 +594,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:53 peter Revision 1.3 2004-11-14 15:55:25 marco
* initialise error to false. Why was this not found yet? :-)
Revision 1.2 2002/09/07 15:42:53 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:54:56 peter Revision 1.1 2002/01/29 17:54:56 peter