as7: accept (decimal) digits in octal constants, like as.s does!

2020-10-05 19:19:06 -04:00
parent 6e0f90c5a9
commit a08d97c8d8
1 changed files with 5 additions and 1 deletions
@@ -514,7 +514,11 @@ sub parse_expression {
 	    my $value = $1;
 	    printf "\tfound constant: $value\n" if ($debug);
 	    if ( $value =~ m{^0} ) {
-		$syllable = oct($value);
+		# PLB 2020-10-05: behave like as.s
 		$syllable = 0;
 		for my $digit (split(//, $value)) {
 		    $syllable = $syllable * 010 + ord($digit) - ord('0');
 		}
 	    }
 	    else {
 		$syllable = $value + 0;