Skip to content

Commit 570f61f

Browse files
committed
- 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".
1 parent 47da3f8 commit 570f61f

File tree

3 files changed

+3
-3
lines changed

3 files changed

+3
-3
lines changed

FrontEndAst/DAstUtilFunctions.fs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@ let getAccessFromScopeNodeList (ReferenceToType nodes) (childTypeIsString: bool
2222
| SEQ_CHILD (chName, chOpt) ->
2323
let isPresent =
2424
match chOpt with
25-
| true -> [lm.lg.getSeqChildIsPresent pVal.arg chName] //[sprintf "%s%sexist.%s" pVal.arg.p (lm.lg.getAccess pVal.arg) chName]
25+
| true -> [lm.lg.getSeqChildIsPresent pVal.arg (ToC chName)] //[sprintf "%s%sexist.%s" pVal.arg.p (lm.lg.getAccess pVal.arg) chName]
2626
| false -> []
2727
isPresent, {pVal with arg = lm.lg.getSeqChild pVal.arg (ToC chName) childTypeIsString chOpt}
2828
| CH_CHILD (chName, pre_name, chParent) ->

asn1scc/Program.fs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -123,7 +123,7 @@ let printVersion () =
123123
//let fvi = System.Diagnostics.FileVersionInfo.GetVersionInfo(assembly.Location);
124124
//let version = fvi.FileVersion;
125125

126-
let version = "4.5.2.4"
126+
let version = "4.5.2.5"
127127
printfn "asn1scc version %s\n" version
128128
()
129129

asn1scc/asn1scc.fsproj

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -70,7 +70,7 @@
7070
</ItemGroup>
7171

7272
<ItemGroup>
73-
<PackageReference Include="Argu" Version="6.1.1" />
73+
<PackageReference Include="Argu" Version="6.2.5" />
7474
</ItemGroup>
7575

7676
<ItemGroup>

0 commit comments

Comments
 (0)