Changeset 371


Ignore:
Timestamp:
Jan 5, 2015, 5:41:38 AM (6 years ago)
Author:
Maxim Reznik
Message:

Fix regression

Allow ':' as replacement for '#'. See ARM J.2

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ada-2012/src/arithmetic/gela-arithmetic-integers.adb

    r370 r371  
    800800               Left (Result'First) :=
    801801                 X (Character'Pos (Temp) - Character'Pos ('A') + 10);
    802             when '_' | '.' | '#' =>
     802            when '_' | '.' | '#' | ':' =>
    803803               Skip := True;
    804804            when others =>
     
    902902      Exp    : Value;
    903903   begin
     904      if Sharp = 0 then
     905         Sharp := Index (Text, ":");
     906      end if;
     907
    904908      if Sharp /= 0 then
    905909         Base := Positive'Value (Text (Text'First .. Sharp - 1));
Note: See TracChangeset for help on using the changeset viewer.