Merge branch 'fix-double-flags-mbac' into 'master'

Fix double flags mbac

See merge request !7

MacOSX/PmCleanSystem.icl

@@ -403,7 +403,8 @@ 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_symbol_table gen_linkmap
 		link_resources resource_path gen_dll dll_syms startupdir dynlstr _ use_64_bit_processor ps
-	# (linker,linkerdir,options1,options2)		= get_path_name_and_options2 linker ""
+	# (linker,linkerdir,options1,options2)		= get_path_name_and_options2 linker startupdir
+
 	# flags						= ApplicationOptionsToFlags applicationOptions
 	# optdirpath				= RemoveFilename optionspathname
 	# ((ok,pd_optdirpath),ps)	= pd_StringToPath optdirpath ps
@@ -442,8 +443,11 @@ Link linker winfun path
 	# (err,ps) = if is_gcc (Nothing,ps) (accFiles (WriteLinkOpts linkoptspath linkopts) ps)
 	| isJust err
 		= (winfun (fromJust err) ps,False)
-	# linker_args = if is_gcc ["-s","-o", path: [optionspathname : StrictListToList (RemoveDup object_file_names)]++add_options_string_to_args 0 options2 (StrictListToList library_file_names)]
-							  (add_options_string_to_args 0 options1 ["-I",linkoptspath,"-O",linkerrspath])
+	# linker_args = if is_gcc
+		//Options2 are for the actual linker (gcc/clang)
+		["-s","-o", path: [optionspathname : StrictListToList (RemoveDup object_file_names)]++add_options_string_to_args 0 options2 (StrictListToList library_file_names)]
+		//Options1 are only for clean linkers (e.g. bigger heap for the linker itself)
+		(add_options_string_to_args 0 options1 ["-I",linkoptspath,"-O",linkerrspath])
 	# (argv,args_memory) = make_argv [linker:linker_args]
 	# ld_pid = fork
 	| ld_pid<0
@@ -680,7 +684,8 @@ errors_file_path temp_dir slot
 get_path_name_and_options2 ccstring startupdir
 	# (ccstring,rem) = splitOptions ccstring
 	  (opts,opts`) = splitOptions rem
-	  cocl = startupdir +++ "/" +++ ccstring
+	  cocl = if (ccstring.[0] == '/') ccstring
+		(startupdir +++ "/" +++ ccstring)
 	  cocldir = RemoveFilename cocl
 	= (cocl,cocldir,opts,opts`)