Quellcode durchsuchen

* 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 vor 5 Jahren
Ursprung
Commit
40c11baaac
1 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  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
          if target_info.system in systems_all_windows+systems_nativent then
            begin
            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.code:=generate_pkg_stub(main_procinfo.procdef);
              main_procinfo.generate_code;
              main_procinfo.generate_code;
            end;
            end;