Преглед на файлове

* 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 години
родител
ревизия
40c11baaac
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  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;