Ensure that the correct name is used for the PCP file.

proc_package:
  * use current_module.modulename instead of module_name for the base filename of the PCP file

git-svn-id: branches/svenbarth/packages@28905 -

compiler/pmodules.pas

@@ -1570,7 +1570,7 @@ type
            begin
              { add all contained units to the package }
              { TODO : handle implicitly imported units }
-             pkg:=tpcppackage.create(module_name);
+             pkg:=tpcppackage.create(current_module.modulename^);
              uu:=tused_unit(current_module.used_units.first);
              while assigned(uu) do
                begin