Drop support for octal numbers

There is not a strong case for octal numbers in modern computing outside of
UNIX permissions bits, and octal has caused us a little trouble before (see
5ebe565), so let us drop support for octal
constants for simplicity.

Author: kulp

scripts/tenyr.vim

@@ -32,7 +32,6 @@ syn region tenyrString start='"' end='"' contained contains=tenyrEscape
 syn region tenyrStrRegion start="\.chars\>" end="$" keepend contains=tenyrString,tenyrStrDir
 
 syn match tenyrNumber '-\?\<\(0\|[1-9]\([0-9_]*[0-9]\)\?\)\>' " decimal
-syn match tenyrNumber '-\?\<0[0-7_]*[0-7]' " octal
 syn match tenyrNumber '-\?\<0x[[:xdigit:]_]*[[:xdigit:]]' " hexadecimal
 syn match tenyrNumber '-\?\<0b[01_]*[01]' " binary
 

src/lexer.l

@@ -55,10 +55,9 @@ symbol  [A-Z_][A-Z0-9_]+|[Q-Z_][A-Z0-9_]*
 local   \.L[A-Z0-9_]+
 string  ([^"]|\\\")+
 hexnum  "0x"[0-9a-f_]+
-octnum  "0"[0-7_]*[0-7]
 binnum  "0b"[01_]*[01]
 decnum  0|[1-9]([0-9_]*[0-9])?
-bitstr  {hexnum}|{octnum}|{binnum}
+bitstr  {hexnum}|{binnum}
 self    [][|&+*^><.,:@()~;=/-]
 strcon  ([^"]|\\\")
 escchar [\\"'0nbrtfv]
@@ -102,7 +101,7 @@ illegal             { return ILLEGAL; }
 <needarrow>"<-"     { return TOL;  }
 "->"                { return TOR;  }
 
-{hexnum}|{octnum}   { yylval->i = numberise(&yytext[0],  0); return BITSTRING; }
+{hexnum}            { yylval->i = numberise(&yytext[0], 16); return BITSTRING; }
 {binnum}            { yylval->i = numberise(&yytext[2],  2); return BITSTRING; }
 {decnum}            { yylval->i = numberise(&yytext[0], 10); return INTEGER; }
 

test/pass_compile/underscore.tas

@@ -1,4 +1,3 @@
 .word 0x1234, 0x12_34, 0x1_2_3_4
 .word 0b0110, 0b01_10, 0b0_1_1_0
 .word 123456, 123_456, 12_34_56
-.word 012345, 012_345, 01_23_45, 0_12345