paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@12157 -
This commit is contained in:
florian 2008-11-18 16:08:22 +00:00
parent d6b3d5dd38
commit 145dc4d8d6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/aasmcpu.pas
View File

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