git-svn-id: trunk@35480 -
@@ -1226,8 +1226,8 @@ implementation
for f in tempinfo^.flags do
begin
if notfirst then
- write(',');
- write(f);
+ write(t,',');
+ write(t,f);
notfirst:=true;
end;
writeln(t,'])');