anchor.diff:  extract_sequence(1, Fmt, Need) ->
       extract_sequence(2, Fmt, Need);
   
  -extract_sequence(2, [$.,C|Fmt], Need) when C >= $0, C =< $9 ->
  +extract_sequence(2, [$.,C|Fmt], Need)
  +  when is_integer(C), C >= $0, C =< $9 ->
       extract_sequence_digits(2, Fmt, Need);
   extract_sequence(2, [$.,$*|Fmt], Need) ->
       extract_sequence(3, Fmt, [int|Need]);
  
positive.code:     end;
  extract_sequence(_, [], _Need) -> {error,"truncated"}.
  
  extract_sequence_digits(Fld, [C|Fmt], Need) when C >= $0, C =< $9 ->
      extract_sequence_digits(Fld, Fmt, Need);
  extract_sequence_digits(Fld, Fmt, Need) ->
      extract_sequence(Fld+1, Fmt, Need).
  
negative.code:         binary -> {all,St};
          _ -> {unknown,add_error(Anno, illegal_bitsize, St)}
      end;
  bit_size_check(Anno, Size, #bittype{type=Type,unit=Unit}, St)
    when is_integer(Size), is_integer(Unit) ->
      Sz = Unit * Size,                           %Total number of bits!
      St2 = elemtype_check(Anno, Type, Sz, St),
      {Sz,St2}.
  