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

* Bug workaround for problem with "exit(<some string type>)"

Browse Source
This commit is contained in:
sg 1999-12-05 22:00:10 +00:00
parent 8272526892
commit 57cfd593f1
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fcl/xml/dom.pp
View File

@ -1064,8 +1064,10 @@ var
i: Integer; i: Integer;
begin begin
for i := 0 to FAttributes.Count - 1 do for i := 0 to FAttributes.Count - 1 do
if FAttributes.Item[i].NodeName = name then if FAttributes.Item[i].NodeName = name then begin
exit(FAttributes.Item[i].NodeValue); Result := FAttributes.Item[i].NodeValue;
exit;
end;
Result := ''; Result := '';
end; end;
@ -1252,7 +1254,10 @@ end.
{ {
$Log$ $Log$
Revision 1.5 1999-07-12 12:19:49 michael Revision 1.6 1999-12-05 22:00:10 sg
* Bug workaround for problem with "exit(<some string type>)"
Revision 1.5 1999/07/12 12:19:49 michael
+ More fixes from Sebastian Guenther + More fixes from Sebastian Guenther
Revision 1.4 1999/07/11 20:20:11 michael Revision 1.4 1999/07/11 20:20:11 michael