Jelajahi Sumber

* use a different name for the packages' entry point and use _DLLMainCRTStartup as an alias to avoid problems with the C-prefix

git-svn-id: trunk@43551 -
svenbarth 5 tahun lalu
induk
melakukan
40c11baaac
1 mengubah file dengan 2 tambahan dan 1 penghapusan
  1. 2 1
      compiler/pmodules.pas

+ 2 - 1
compiler/pmodules.pas

@@ -1748,7 +1748,8 @@ type
 
          if target_info.system in systems_all_windows+systems_nativent then
            begin
-             main_procinfo:=create_main_proc('_DLLMainCRTStartup',potype_pkgstub,current_module.localsymtable);
+             main_procinfo:=create_main_proc('_PkgEntryPoint',potype_pkgstub,current_module.localsymtable);
+             main_procinfo.procdef.aliasnames.concat('_DLLMainCRTStartup');
              main_procinfo.code:=generate_pkg_stub(main_procinfo.procdef);
              main_procinfo.generate_code;
            end;