mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
29 lines
730 B
Plaintext
29 lines
730 B
Plaintext
puts "============"
|
|
puts "OCC25537: XmlMPrsStd_PositionDriver::Paste runtime check c r a s h."
|
|
puts "============"
|
|
puts ""
|
|
|
|
pload XDEDRAW
|
|
|
|
NewDocument Doc XmlXCAF
|
|
|
|
# number that takes 24 symbols in %.17g string
|
|
set aBigNum -0.0000000000123456789123456789
|
|
|
|
# Create TDataXtd_Position and XCAFDoc_Centroid attributes (same problem in writing XML)
|
|
# 100 labels to have a stable exception (memory corruption)
|
|
for {set i 1} {$i < 100} {incr i} {
|
|
set aLab1 0:1:$i
|
|
SetPosition Doc $aLab1 $aBigNum $aBigNum $aBigNum
|
|
set aLab2 0:2:$i
|
|
Label Doc $aLab2
|
|
XSetCentroid Doc $aLab2 $aBigNum $aBigNum $aBigNum
|
|
}
|
|
|
|
set aTmpFile ${imagedir}/${casename}.xml
|
|
SaveAs Doc ${aTmpFile}
|
|
|
|
## ==> No exception
|
|
Close Doc
|
|
file delete -force $aTmpFile
|