mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
28 lines
523 B
Plaintext
28 lines
523 B
Plaintext
puts "========"
|
|
puts "0029830: Data Exchange, STEPCAFControl_Reader poor performance - quadratic dependence"
|
|
puts "========"
|
|
puts "Test on stack overflow during destructing the STEP model"
|
|
|
|
set ncomp 1000
|
|
|
|
box a 1 1 1
|
|
shape co C
|
|
for {set i 0} {$i < $ncomp} {incr i} {
|
|
tcopy a a1
|
|
add a1 co
|
|
}
|
|
if [info exists D] {Close D}
|
|
XNewDoc D
|
|
XAddShape D co
|
|
|
|
puts "Writing STEP model"
|
|
set aTmpFile ${imagedir}/${casename}_tmp.stp
|
|
WriteStep D $aTmpFile
|
|
Close D
|
|
|
|
puts "Destructing model"
|
|
#crash
|
|
newmodel
|
|
|
|
file delete -force $aTmpFile
|