5 ######################################################
6 # AsciiString corrputs memory in case of MMGT_OPT equal to 0
7 ######################################################
13 set OPT $env(MMGT_OPT)
16 puts "env(MMGT_OPT) = $env(MMGT_OPT)"
17 puts "Faulty ${BugNumber}"
19 set result [OCC6794 ${nb}]
20 regexp {Use nb += +([-0-9.+eE]+)} $result full use_nb
21 regexp {aLength += +([-0-9.+eE]+)} $result full ll
23 if { ${use_nb} != ${nb} || ${ll} != ${nb} } {
24 puts "Faulty ${BugNumber}"