Browse Source

* set the fileinfo of typeconversions created using inserttypeconv*()
to that of the left node
* same for a typeconversion inserted in the typecheck pass of
taddrnode

git-svn-id: trunk@13579 -

Jonas Maebe 16 years ago
parent
commit
2f7457f37e
2 changed files with 3 additions and 0 deletions
  1. 2 0
      compiler/ncnv.pas
  2. 1 0
      compiler/nmem.pas

+ 2 - 0
compiler/ncnv.pas

@@ -249,6 +249,7 @@ implementation
         else
         else
          begin
          begin
            p:=ctypeconvnode.create(p,def);
            p:=ctypeconvnode.create(p,def);
+           p.fileinfo:=ttypeconvnode(p).left.fileinfo;
            typecheckpass(p);
            typecheckpass(p);
          end;
          end;
       end;
       end;
@@ -270,6 +271,7 @@ implementation
         else
         else
          begin
          begin
            p:=ctypeconvnode.create_internal(p,def);
            p:=ctypeconvnode.create_internal(p,def);
+           p.fileinfo:=ttypeconvnode(p).left.fileinfo;
            typecheckpass(p);
            typecheckpass(p);
          end;
          end;
       end;
       end;

+ 1 - 0
compiler/nmem.pas

@@ -402,6 +402,7 @@ implementation
             if not isprocvar then
             if not isprocvar then
               begin
               begin
                 left:=ctypeconvnode.create_proc_to_procvar(left);
                 left:=ctypeconvnode.create_proc_to_procvar(left);
+                left.fileinfo:=fileinfo;
                 typecheckpass(left);
                 typecheckpass(left);
               end;
               end;