Explorar o código

* xmlcfg.pp, changed 'exit' to 'break' so that function won't exit without result assigned, Mantis #18589

git-svn-id: trunk@16803 -
sergei %!s(int64=14) %!d(string=hai) anos
pai
achega
124487b9b2
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fcl-xml/src/xmlcfg.pp

+ 1 - 1
packages/fcl-xml/src/xmlcfg.pp

@@ -354,7 +354,7 @@ begin
       if not (s[i] in AllowedChars) then
       begin
         EscapingNecessary := True;
-	exit;
+        break;
       end;
   end;