--- a/sbsv1/abld/platform/cl_arm.pm	Thu Aug 26 13:41:01 2010 +0100
+++ b/sbsv1/abld/platform/cl_arm.pm	Mon Aug 30 15:04:06 2010 +0800
@@ -459,7 +459,7 @@
 	my $InterWorking = ($ABI eq 'ARMV4') ? "" : "--inter";
 
 	$Archive=$ToolPrefix.'armar';
-	$Link=$ToolPrefix."armlink ${oP}diag_suppress 6331,6780 ";
+	$Link=$ToolPrefix."armlink ${oP}diag_suppress 6331,6780,6319 --keep *(.init) --keep *(.fini) --keep *(.init_array) --keep *(.fini_array)";
 	$Objcopy=$ToolPrefix.'objcopy';
 
 	&Generic_Header(0,$Makecmd);	# define standard things using absolute paths