mac linker fixes

Mac/linker3.icl

@@ -3,7 +3,7 @@ implementation module linker3;
 import StdFile,StdArray,StdClass,StdEnum,StdInt,StdBool,StdChar;
 from StdMisc import abort;
 from StdList import ++;
-from StdString import class %;
+from StdString import class %, +++.,instance toString Int;
 
 import linker2,linker_resources;
 import xcoff_linker;
@@ -481,6 +481,8 @@ write_code_to_pef_file
 											| relocation_size==0x8f || relocation_size==0x0f
 												-> relocate_mw_toc symbol_a.[relocation_symbol_n]
 													(relocation_offset-text_v_address) module_offset_a first_symbol_n relocation_symbol_n marked_offset_a0 text_a0;
+										u
+											-> abort ("Unimplemented relocation type '"+++.toString u+++."' encountered\n")
 									}
 								}
 							{							

Mac/linker_resources.icl

@@ -67,7 +67,10 @@ create_application_resource file_name add_carb /* RWS ... */ application_existed
 						THEN remove_resource "SIZE" 0
 						THEN remove_resource "SIZE" 1
 						THEN remove_resource "STHP" 0
-						THEN remove_resource "cfrg" 0;
+						THEN remove_resource "cfrg" 0
+// DvA
+						THEN remove_resource "carb" 0;
+// ...DvA
 			}
 			= (HOpenResFile 0 0 file_name 3 (HCreateResFile 0 0 file_name t1));
 		{}{

Mac/xcoff_linker.icl

@@ -83,6 +83,7 @@ read_xcoff_files file_names names_table0 one_pass_link files file_n
 		[file_name:file_names]
 			# (ok,xcoff_header_or_error_message,file,files) = open_file_and_read_xcoff_header file_name files;
 			| not ok
+				#  (_,files) = fclose file files
 				-> ([xcoff_header_or_error_message],EndSections,file_n,[],names_table0,files);
 			| xcoff_header_or_error_message WORD 0==0x01DF
 				# (error,text_section,data_section,xcoff_file0,names_table1,files) = read_xcoff_file file_name names_table0 one_pass_link xcoff_header_or_error_message file files file_n;