- Modified getAccessFromScopeNodeList to use ToC chName (bug #322).

- Incremented version number in `printVersion` from "4.5.2.4" to "4.5.2.5". - Updated `Argu` package version in `asn1scc.fsproj` from "6.1.1" to "6.2.5".
esa · Feb 19, 2025 · 570f61f · 570f61f
1 parent 47da3f8
commit 570f61f
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/FrontEndAst/DAstUtilFunctions.fs b/FrontEndAst/DAstUtilFunctions.fs
@@ -22,7 +22,7 @@ let getAccessFromScopeNodeList (ReferenceToType nodes)  (childTypeIsString: bool
         | SEQ_CHILD (chName, chOpt)  ->
             let isPresent =
                 match chOpt with
-                | true ->  [lm.lg.getSeqChildIsPresent pVal.arg chName] //[sprintf "%s%sexist.%s" pVal.arg.p (lm.lg.getAccess pVal.arg) chName]
+                | true ->  [lm.lg.getSeqChildIsPresent pVal.arg (ToC chName)] //[sprintf "%s%sexist.%s" pVal.arg.p (lm.lg.getAccess pVal.arg) chName]
                 | false -> []
             isPresent, {pVal with arg = lm.lg.getSeqChild pVal.arg (ToC chName) childTypeIsString chOpt}
         | CH_CHILD (chName, pre_name, chParent)  ->

diff --git a/asn1scc/Program.fs b/asn1scc/Program.fs
@@ -123,7 +123,7 @@ let printVersion () =
     //let fvi = System.Diagnostics.FileVersionInfo.GetVersionInfo(assembly.Location);
     //let version = fvi.FileVersion;
 
-    let version = "4.5.2.4"
+    let version = "4.5.2.5"
     printfn "asn1scc version %s\n" version
     ()
 

diff --git a/asn1scc/asn1scc.fsproj b/asn1scc/asn1scc.fsproj
@@ -70,7 +70,7 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Argu" Version="6.1.1" />
+    <PackageReference Include="Argu" Version="6.2.5" />
   </ItemGroup>
 
   <ItemGroup>