paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* when using a dummy file position for an interface wrapper, set

Browse Source 
the module to the current module. This is required in case of -al,
    because when writing source lines to the assembly output the input
    file position gets changed. Since the wrappers are generated at the
    end of a unit's compilation, that's no problem if that input file
    belongs to the current unit. It was hardcoded to the unit with id 1
    before though, which is the main unit specified on the command line
    and that one could be different (fixes compilation of win32 buildrtl
    with -al after r37961)

git-svn-id: trunk@37973 -
This commit is contained in:
Jonas Maebe 2018-01-14 22:06:52 +00:00
parent d50848174a
commit a73b723c1d
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/ncgvmt.pas
View File

@ -1311,7 +1311,7 @@ implementation
current_filepos:=pd.fileinfo
else
begin
current_filepos.moduleindex:=1;
current_filepos.moduleindex:=current_module.unit_index;
current_filepos.fileindex:=1;
current_filepos.line:=1;
current_filepos.column:=1;