Commit ca099f01 authored by Maxime Perrotin's avatar Maxime Perrotin

Prepare support for unsigned integers

parent e040ff21
......@@ -20,6 +20,7 @@ RootXml(arrsFiles) ::= <<
with ASN1_Ada_Iterators,
ASN1_Iterators.Generic_Integer,
ASN1_Iterators.Generic_Unsigned_Integer,
ASN1_Iterators.Generic_SeqOf,
Interfaces,
Ada.Strings.Unbounded;
......@@ -86,10 +87,10 @@ $sSubType$
/* Type with Min and Max constraint. sName is the type kind
This template is used for Integer and Real types; for others,
see MinMaxType2 and SequenceOf
sName may be Generic_Integer or Generic_Real
sName may be Integer or Real
*/
MinMaxType(sName, sMin, sMax, bFixedSize, bIsUnsigned, bIsRealType) ::= <<
Generic_$sName$ (Min => $sMin$, Max => $sMax$);
Generic_$if(bIsUnsigned)$Unsigned_$endif$$sName$ (Min => $sMin$, Max => $sMax$);
package It renames Inner.It;
procedure To_ASN1(from: Interfaces.$if(bIsUnsigned)$Unsigned_64$else$$if(bIsRealType)$Long_Float$else$Integer_64$endif$$endif$; to: out ASN1_Type);
>>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment