Commit ca099f01 authored by Maxime Perrotin's avatar Maxime Perrotin

Prepare support for unsigned integers

parent e040ff21
...@@ -20,6 +20,7 @@ RootXml(arrsFiles) ::= << ...@@ -20,6 +20,7 @@ RootXml(arrsFiles) ::= <<
with ASN1_Ada_Iterators, with ASN1_Ada_Iterators,
ASN1_Iterators.Generic_Integer, ASN1_Iterators.Generic_Integer,
ASN1_Iterators.Generic_Unsigned_Integer,
ASN1_Iterators.Generic_SeqOf, ASN1_Iterators.Generic_SeqOf,
Interfaces, Interfaces,
Ada.Strings.Unbounded; Ada.Strings.Unbounded;
...@@ -86,10 +87,10 @@ $sSubType$ ...@@ -86,10 +87,10 @@ $sSubType$
/* Type with Min and Max constraint. sName is the type kind /* Type with Min and Max constraint. sName is the type kind
This template is used for Integer and Real types; for others, This template is used for Integer and Real types; for others,
see MinMaxType2 and SequenceOf 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) ::= << 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; 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); 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