paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-06 16:39:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed DoGetUnitRegisterInfo for virtual files

Browse Source 
git-svn-id: trunk@37165 -
This commit is contained in:
mattias 2012-05-05 11:52:28 +00:00
parent 92b4af045c
commit b16adcf533
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/pkgmanager.pas
View File

@ -1355,7 +1355,7 @@ var
CodeBuffer: TCodeBuffer; CodeBuffer: TCodeBuffer;
begin begin
Result:=mrCancel; Result:=mrCancel;
ExpFilename:=TrimAndExpandFilename(AFilename); ExpFilename:=TrimFilename(AFilename);
// create default values // create default values
TheUnitName:=''; TheUnitName:='';
HasRegisterProc:=false; HasRegisterProc:=false;