puts "============" puts "OCC6794" puts "============" puts "" ###################################################### # AsciiString corrputs memory in case of MMGT_OPT equal to 0 ###################################################### pload QAcommands set BugNumber OCC6794 set nb 40009 set env(MMGT_OPT) 0 set OPT $env(MMGT_OPT) if { ${OPT} != 0 } { puts "env(MMGT_OPT) = $env(MMGT_OPT)" puts "Faulty ${BugNumber}" } else { set result [OCC6794 ${nb}] regexp {Use nb += +([-0-9.+eE]+)} $result full use_nb regexp {aLength += +([-0-9.+eE]+)} $result full ll if { ${use_nb} != ${nb} || ${ll} != ${nb} } { puts "Faulty ${BugNumber}" } }