fix octet and bit string initialization

Author: usr3-1415

BackendAst/DAstInitialize.fs

@@ -434,7 +434,7 @@ let createOctetStringInitFunc (r:Asn1AcnAst.AstRoot)  (lm:LanguageMacros) (t:Asn
                 let ii = p.accessPath.SequenceOfLevel + 1
                 let i = sprintf "i%d" ii
                 let funcBody = initTestCaseOctetString (p.accessPath.joined lm.lg) (lm.lg.getAccess p.accessPath) tdName o.maxSize.uper i (isFixedSize) true o.minSize.uper (o.maxSize.uper = 0I) resVar
-                let lvars = lm.lg.init.zeroIA5String_localVars ii
+                let lvars = lm.lg.init.zeroOctetString_localVars ii
                 {InitFunctionResult.funcBody = funcBody; resultVar = resVar; localVariables=lvars}
 
             testCaseFuncs, zero
@@ -536,7 +536,7 @@ let createBitStringInitFunc (r:Asn1AcnAst.AstRoot) (lm:LanguageMacros) (t:Asn1Ac
                         | _                        -> raise(BugErrorException "UnexpectedType")
 
                 let funcBody = initTestCaseBitString (p.accessPath.joined lm.lg) (lm.lg.getAccess p.accessPath) tdName nSize (nSizeCeiled) i (isFixedSize) true o.minSize.uper p.accessPath.isOptional resVar
-                let lvars = lm.lg.init.zeroIA5String_localVars ii
+                let lvars = lm.lg.init.zeroBitString_localVars ii
                 {InitFunctionResult.funcBody = funcBody; resultVar = resVar; localVariables=lvars}
             testCaseFuncs, zero
         | _ ->

FrontEndAst/Language.fs

@@ -32,6 +32,8 @@ type Acn_parts = {
 }
 type Initialize_parts = {
     zeroIA5String_localVars             : int -> LocalVariable list
+    zeroOctetString_localVars           : int -> LocalVariable list
+    zeroBitString_localVars             : int -> LocalVariable list
     choiceComponentTempInit             : bool
     initMethSuffix                      : Asn1TypeKind -> string // TODO REMOVE?
 }

StgAda/LangGeneric_a.fs

@@ -311,6 +311,8 @@ type LangGeneric_a() =
         override this.init =
             {
                 Initialize_parts.zeroIA5String_localVars    = fun ii -> [SequenceOfIndex (ii, None)]
+                zeroOctetString_localVars                   = fun ii -> [SequenceOfIndex (ii, None)]
+                zeroBitString_localVars                     = fun ii -> [SequenceOfIndex (ii, None)]
                 choiceComponentTempInit                     = false
                 initMethSuffix                              = fun _ -> ""
             }

StgC/LangGeneric_c.fs

@@ -306,6 +306,8 @@ type LangGeneric_c() =
         override this.init =
             {
                 Initialize_parts.zeroIA5String_localVars    = fun ii -> [SequenceOfIndex (ii, None)]
+                zeroOctetString_localVars                   = fun _ -> []
+                zeroBitString_localVars                     = fun _ -> []
                 choiceComponentTempInit                     = false
                 initMethSuffix                              = fun _ -> ""
             }

StgScala/LangGeneric_scala.fs

@@ -518,6 +518,8 @@ type LangGeneric_scala() =
         override this.init =
             {
                 Initialize_parts.zeroIA5String_localVars    = fun _ -> []
+                zeroOctetString_localVars                   = fun _ -> []
+                zeroBitString_localVars                     = fun _ -> []
                 choiceComponentTempInit                     = false
                 initMethSuffix                              = initMethSuffix
             }