2
0
Эх сурвалжийг харах

* 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 жил өмнө
parent
commit
1f9d8420b6
1 өөрчлөгдсөн 3 нэмэгдсэн , 0 устгасан
  1. 3 0
      compiler/pstatmnt.pas

+ 3 - 0
compiler/pstatmnt.pas

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