Sfoglia il codice sorgente

* 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 anni fa
parent
commit
1f9d8420b6
1 ha cambiato i file con 3 aggiunte e 0 eliminazioni
  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