Browse Source

* 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 years ago
parent
commit
95da9cb07a
1 changed files with 1 additions and 0 deletions
  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    }
                 {  readstr internally always uses ansistring, and to account for    }
                 {  chararrays with > 255 characters)                                }
                 {  chararrays with > 255 characters)                                }
                 inserttypeconv(filepara.left,cansistringtype);
                 inserttypeconv(filepara.left,cansistringtype);
+                filepara.resultdef:=filepara.left.resultdef;
                 if codegenerror then
                 if codegenerror then
                   exit;
                   exit;
               end
               end