Просмотр исходного кода

* fixed missing propagation of changed parameter type
of first readstr parameter in case it wasn't a string

git-svn-id: trunk@7514 -

Jonas Maebe 18 лет назад
Родитель
Сommit
95da9cb07a
1 измененных файлов с 1 добавлено и 0 удалено
  1. 1 0
      compiler/ninl.pas

+ 1 - 0
compiler/ninl.pas

@@ -891,6 +891,7 @@ implementation
                 {  readstr internally always uses ansistring, and to account for    }
                 {  chararrays with > 255 characters)                                }
                 inserttypeconv(filepara.left,cansistringtype);
+                filepara.resultdef:=filepara.left.resultdef;
                 if codegenerror then
                   exit;
               end