From b39fd1c83c9aa1885d54ef4a99865a31ed3b6e57 Mon Sep 17 00:00:00 2001 From: Jurrien Stutterheim Date: Wed, 23 Sep 2015 09:02:46 +0000 Subject: [PATCH] Fix MacOSX/PmCleanSystem --- MacOSX/PmCleanSystem.dcl | 2 +- MacOSX/PmCleanSystem.icl | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/MacOSX/PmCleanSystem.dcl b/MacOSX/PmCleanSystem.dcl index e9ce7eb..4bb7273 100644 --- a/MacOSX/PmCleanSystem.dcl +++ b/MacOSX/PmCleanSystem.dcl @@ -70,7 +70,7 @@ wait_for_finished_code_generator :: !{#Int} !*GeneralSt -> (!Int,!Int,!*GeneralS finish_code_generator :: !Int/*HANDLE*/ !StartedCodeGenerator !Int !(WindowFun *GeneralSt) !*GeneralSt -> (!Bool,!*GeneralSt) Link :: !String !(WindowFun *GeneralSt) !Pathname !ApplicationOptions - !Pathname !(List Pathname) !(List Pathname) !(List Pathname) !Bool !Bool !Bool !Bool !String + !Pathname !(List Pathname) !(List Pathname) !(List Pathname) !Bool !Bool !Bool !Bool !Bool !String !Bool !String !Pathname !String !Processor !Bool !*GeneralSt -> (!*GeneralSt,!Bool) diff --git a/MacOSX/PmCleanSystem.icl b/MacOSX/PmCleanSystem.icl index 8eb0c4f..6efa843 100644 --- a/MacOSX/PmCleanSystem.icl +++ b/MacOSX/PmCleanSystem.icl @@ -397,12 +397,12 @@ finish_code_generator process_handle {scg_abc_path,scg_path_without_suffix,scg_s = (exit_code==0, ps) Link :: !String !(WindowFun *GeneralSt) !Pathname !ApplicationOptions - !Pathname !(List Pathname) !(List Pathname) !(List Pathname) !Bool !Bool !Bool !Bool !String + !Pathname !(List Pathname) !(List Pathname) !(List Pathname) !Bool !Bool !Bool !Bool !Bool !String !Bool !String !Pathname !String !Processor !Bool !*GeneralSt -> (!*GeneralSt,!Bool) Link linker winfun path applicationOptions=:{ss,hs,initial_heap_size,profiling,heap_size_multiple,o,memoryProfilingMinimumHeapSize=minheap} - optionspathname library_file_names object_file_names static_libraries static gen_relocs gen_linkmap + optionspathname library_file_names object_file_names static_libraries static gen_relocs gen_symbol_table gen_linkmap link_resources resource_path gen_dll dll_syms startupdir dynlstr _ use_64_bit_processor ps # (linker,linkerdir,_) = get_path_name_and_options linker startupdir # flags = ApplicationOptionsToFlags applicationOptions @@ -426,6 +426,7 @@ Link linker winfun path , open_console = o <> NoConsole , static_link = static , gen_relocs = gen_relocs + , gen_symbol_table = gen_symbol_table , gen_linkmap = gen_linkmap , link_resources = link_resources , object_paths = optionspathname :! (RemoveDup object_file_names) -- GitLab