Fix MacOSX/PmCleanSystem

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)
 

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)