GSUP: Initialize ExpectTable
For some reason TITAN 6.1.0 requires the table to be explicitly
initialized, while 6.3.0 is happy without it.
Change-Id: I4f9ac98fb60ad16b98acd627efd617bfb4f6abcb
diff --git a/library/GSUP_Emulation.ttcn b/library/GSUP_Emulation.ttcn
index e1a515c..3990b73 100644
--- a/library/GSUP_Emulation.ttcn
+++ b/library/GSUP_Emulation.ttcn
@@ -124,6 +124,14 @@
}
}
+private function f_expect_table_init()
+runs on GSUP_Emulation_CT {
+ for (var integer i := 0; i < sizeof(GsupExpectTable); i := i+1) {
+ GsupExpectTable[i].vc_conn := null;
+ GsupExpectTable[i].imsi := omit;
+ }
+}
+
private function f_imsi_table_add(GSUP_ConnHdlr comp_ref, charstring imsi)
runs on GSUP_Emulation_CT {
for (var integer i := 0; i < sizeof(GsupImsiTable); i := i+1) {
@@ -168,6 +176,7 @@
function main(GsupOps ops, charstring id) runs on GSUP_Emulation_CT {
f_imsi_table_init();
+ f_expect_table_init();
while (true) {
var GSUP_ConnHdlr vc_conn;