352ffd73 |
1 | puts "============" |
2 | puts "OCC6794" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # AsciiString corrputs memory in case of MMGT_OPT equal to 0 |
7 | ###################################################### |
8 | |
9 | pload QAcommands |
10 | set BugNumber OCC6794 |
11 | set nb 40009 |
12 | set env(MMGT_OPT) 0 |
13 | set OPT $env(MMGT_OPT) |
14 | |
15 | if { ${OPT} != 0 } { |
16 | puts "env(MMGT_OPT) = $env(MMGT_OPT)" |
17 | puts "Faulty ${BugNumber}" |
18 | } else { |
19 | set result [OCC6794 ${nb}] |
20 | regexp {Use nb += +([-0-9.+eE]+)} $result full use_nb |
355c1551 |
21 | regexp {aLength += +([-0-9.+eE]+)} $result full ll |
352ffd73 |
22 | |
355c1551 |
23 | if { ${use_nb} != ${nb} || ${ll} != ${nb} } { |
352ffd73 |
24 | puts "Faulty ${BugNumber}" |
25 | } |
26 | } |
355c1551 |
27 | |