Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* x86: Correct fileinfo for OptPass2MOV

J. Gareth "Curious Kit" Moreton 3 years ago
parent
6eede0f71f
commit
f7dcb68c5a
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      compiler/x86/aoptx86.pas

+ 1 - 0
compiler/x86/aoptx86.pas
View File 

@@ -8219,6 +8219,7 @@ unit aoptx86;
 
                             { Shouldn't fail here }
 
                             { Shouldn't fail here }
 
                             InternalError(2021040701);
 
                             InternalError(2021040701);
 
 
 
+                          taicpu(NewInstr).fileinfo := taicpu(hp2).fileinfo;
 
                           AsmL.InsertAfter(NewInstr, hp2);
 
                           AsmL.InsertAfter(NewInstr, hp2);
 
                           { Add new alignment field }
 
                           { Add new alignment field }
 
       (*                    AsmL.InsertAfter(
 
       (*                    AsmL.InsertAfter(