mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 12:26:02 +02:00
* write assembler error at the correct position, first fix for #12595
git-svn-id: trunk@12157 -
This commit is contained in:
parent
d6b3d5dd38
commit
145dc4d8d6
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user