sbsv1_os/e32toolp/e32util/armasm2as.pl
branchGCC_SURGE
changeset 52 949d0e782de1
parent 0 83f4b4db085c
child 53 d23856282806
--- a/sbsv1_os/e32toolp/e32util/armasm2as.pl	Fri Jun 11 16:27:38 2010 +0100
+++ b/sbsv1_os/e32toolp/e32util/armasm2as.pl	Mon Jun 21 18:05:07 2010 +0100
@@ -9,6 +9,7 @@
 # Nokia Corporation - initial contribution.
 #
 # Contributors:
+# Mike Kinghan, mikek@symbian.org, for Symbian Foundation
 #
 # Description:
 # e32toolp\e32util\armasm2as.pl
@@ -288,7 +289,8 @@
 	$val =~ s/\{TRUE\}/(1)/g;
 	$val =~ s/\{FALSE\}/(0)/g;
 
-	my @lops = split( /(\s*\:LAND\:\s*|\s*\:LOR\:\s*|\s*\:LNOT\:\s*|\s*\:DEF\:\s*)/, $val );
+	my @lops = split( /(\s*\:LAND\:\s*|\s*\:LOR\:\s*|\s*\:LNOT\:\s*|\s*\:DEF\:\s*|\s*\(\s*|\s*\)\s*)/, $val );
+	my @lops2;
 	foreach (@lops) {
 		s/\s*\:LAND\:\s*/\:LAND\:/go;
 		s/\s*\:LOR\:\s*/\:LOR\:/go;
@@ -306,7 +308,7 @@
 				push @$outref, "\t.ifdef $sym\n\t.set __defined__$sym, 1\n\t.else\n\t.set __defined__$sym, 0\n\t.endif\n";
 				push @lops2, " __defined__$sym ";
 			} else {
-				die "Bad :DEF: operand\n";
+				die "Bad :DEF: operand $sym\n";
 			}
 		} elsif ($x eq ':LAND:') {
 			push @lops2, ' && ';