mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
a38db39de6
Increased a size of buffer in array of 'char' to fit the largest possible conversion from 'double' to %.17g string.
30 lines
837 B
Plaintext
30 lines
837 B
Plaintext
puts "============"
|
|
puts "OCC25537"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# XmlMPrsStd_PositionDriver::Paste runtime check crash.
|
|
#######################################################################
|
|
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 aFile ${imagedir}/bug25537_test.xml
|
|
SaveAs Doc ${aFile}
|
|
|
|
## ==> No exception
|
|
Close Doc
|