Explorar o código

* write assembler error at the correct position, first fix for #12595

git-svn-id: trunk@12157 -
florian %!s(int64=17) %!d(string=hai) anos
pai
achega
145dc4d8d6
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/x86/aasmcpu.pas

+ 1 - 1
compiler/x86/aasmcpu.pas

@@ -1180,12 +1180,12 @@ implementation
         optimize }
         if (Insentry=nil) or ((InsEntry^.flags and IF_PASS2)<>0) then
          begin
+           current_filepos:=fileinfo;
            { We need intel style operands }
            SetOperandOrder(op_intel);
            { create the .ot fields }
            create_ot(objdata);
            { set the file postion }
-           current_filepos:=fileinfo;
          end
         else
          begin