+ support for octal constants, they are specified by a leading &

compiler/scanner.pas

@@ -1536,6 +1536,12 @@ implementation
                  pattern[1]:='%';
                  i:=1;
                end;
+         '&' : begin
+                 readchar;
+                 base:=8;
+                 pattern[1]:='&';
+                 i:=1;
+               end;
          '$' : begin
                  readchar;
                  base:=16;
@@ -1550,6 +1556,7 @@ implementation
         end;
         while ((base>=10) and (c in ['0'..'9'])) or
               ((base=16) and (c in ['A'..'F','a'..'f'])) or
+              ((base=8) and (c in ['0'..'7'])) or
               ((base=2) and (c in ['0'..'1'])) do
          begin
            if i<255 then
@@ -2099,6 +2106,18 @@ implementation
                   end;
                end;
 
+             '&' :
+               begin
+                 if not(m_fpc in aktmodeswitches) then
+                  Illegal_Char(c)
+                 else
+                  begin
+                    readnumber;
+                    token:=_INTCONST;
+                    goto exit_label;
+                  end;
+               end;
+
              '0'..'9' :
                begin
                  readnumber;
@@ -2764,7 +2783,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.40  2002-07-20 17:35:52  florian
+  Revision 1.41  2002-08-06 21:12:16  florian
+    + support for octal constants, they are specified by a leading &
+
+  Revision 1.40  2002/07/20 17:35:52  florian
     + char constants specified with #.. with more than 3 digits are handled as widechar
 
   Revision 1.39  2002/05/18 13:34:17  peter