restored method

HashLoad · Jun 11, 2019 · 52a6cd6 · 52a6cd6
1 parent c1f14a0
commit 52a6cd6
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/core/Boss.Modules.PackageProcessor.pas b/src/core/Boss.Modules.PackageProcessor.pas
@@ -77,6 +77,11 @@ class function TBossPackageProcessor.GetInstance: TBossPackageProcessor;
   Result := _Instance;
 end;
 
+procedure PackageInfoProc(const Name: string; NameType: TNameType; Flags: Byte; Param: Pointer);
+begin
+
+end;
+
 procedure TBossPackageProcessor.LoadBpls(AProjectPath: string);
 var
   LBpls: TArray<string>;
@@ -92,7 +97,7 @@ procedure TBossPackageProcessor.LoadBpls(AProjectPath: string);
   begin
     try
       LHnd := LoadPackage(LBpl);
-      GetPackageInfo(LHnd, nil, LFlag, nil);
+      GetPackageInfo(LHnd, nil, LFlag, PackageInfoProc);
       UnloadPackage(LHnd);
     except
       TProviderMessage.GetInstance.WriteLn('Failed to get info of ' + LBpl);