فهرست منبع

* more nodedata printing fixes, similiar to r35477

git-svn-id: trunk@35480 -
florian 8 سال پیش
والد
کامیت
ec45a92fb5
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 2 2
      compiler/nbas.pas

+ 2 - 2
compiler/nbas.pas

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