paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 05:10:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* keep track if the unit was found by using a default namespace as prefix

Browse Source 
git-svn-id: trunk@38916 -
This commit is contained in:
svenbarth 2018-05-05 17:18:39 +00:00
parent 99c53abf36
commit 083781bf0c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/fppu.pas
View File

@ -50,6 +50,7 @@ interface
ppufile : tcompilerppufile; { the PPU file }
sourcefn : TPathStr; { Source specified with "uses .. in '..'" }
comments : TCmdStrList;
nsprefix : TCmdStr; { Namespace prefix the unit was found with }
{$ifdef Test_Double_checksum}
crc_array : pointer;
crc_size : longint;
@ -582,6 +583,8 @@ var
nsitem:=TCmdStrListItem(nsitem.next);
end;
if assigned(nsitem) then
nsprefix:=nsitem.str;
end;
end;
search_unit:=fnd;