trying to fix scala regresion failure

esa · Dec 15, 2024 · b3b9c9c · b3b9c9c
1 parent 656bf98
commit b3b9c9c
Showing 1 changed file with 10 additions and 6 deletions.
diff --git a/BackendAst/DAstACN.fs b/BackendAst/DAstACN.fs
@@ -292,12 +292,16 @@ let private createAcnFunction (r: Asn1AcnAst.AstRoot)
     let func, funcDef, auxiliaries, icdResult, ns2  =
             match funcNameAndtasInfo  with
             | None -> 
-                let content, ns1a = funcBody ns errCode [] (NestingScope.init t.acnMaxSizeInBits t.uperMaxSizeInBits []) p
-                let icdResult =
-                    match content with
-                    | None -> None
-                    | Some bodyResult -> bodyResult.icdResult
-                None, None, [], icdResult, ns1a
+                match ST.lang with
+                | Scala -> 
+                    None, None, [], None, ns
+                | _ ->
+                    let content, ns1a = funcBody ns errCode [] (NestingScope.init t.acnMaxSizeInBits t.uperMaxSizeInBits []) p
+                    let icdResult =
+                        match content with
+                        | None -> None
+                        | Some bodyResult -> bodyResult.icdResult
+                    None, None, [], icdResult, ns1a
             | Some funcName ->
                 let precondAnnots = lm.lg.generatePrecond r ACN t codec
                 let postcondAnnots = lm.lg.generatePostcond r ACN funcNameBase p t codec