فهرست منبع

* set correct fileinfo for the asmnodes (so that the start fileinfo of
assembler functions doesn't get changed into the end fileinfo)

git-svn-id: trunk@20825 -

Jonas Maebe 13 سال پیش
والد
کامیت
1f9d8420b6
1فایلهای تغییر یافته به همراه3 افزوده شده و 0 حذف شده
  1. 3 0
      compiler/pstatmnt.pas

+ 3 - 0
compiler/pstatmnt.pas

@@ -995,12 +995,15 @@ implementation
         Marker  : tai;
         Marker  : tai;
         reg     : tregister;
         reg     : tregister;
         asmreader : tbaseasmreader;
         asmreader : tbaseasmreader;
+        entrypos : tfileposinfo;
       begin
       begin
          Inside_asm_statement:=true;
          Inside_asm_statement:=true;
          if assigned(asmmodeinfos[current_settings.asmmode]) then
          if assigned(asmmodeinfos[current_settings.asmmode]) then
            begin
            begin
              asmreader:=asmmodeinfos[current_settings.asmmode]^.casmreader.create;
              asmreader:=asmmodeinfos[current_settings.asmmode]^.casmreader.create;
+             entrypos:=current_filepos;
              asmstat:=casmnode.create(asmreader.assemble as TAsmList);
              asmstat:=casmnode.create(asmreader.assemble as TAsmList);
+             asmstat.fileinfo:=entrypos;
              asmreader.free;
              asmreader.free;
            end
            end
          else
          else