Note that the default tcl_precision in tclsh8.5 is now '0', not 12.
http://www.tcl.tk/man/tcl8.5/TclCmd/tclvars.htm#M26
Note "Applications should not change this value" !!
Also, from leo:
17:00 <@leo> mdiep: re #40143: you already have TclFloat.get_string,
replace
the line:
17:00 <@leo> buff = Parrot_sprintf_c(INTERP, "%.
16vg",PMC_num_val(SELF));
17:00 <@leo> with ... "%.*vg", prec, PMC_num_val(SELF));
17:01 <@leo> and set 'int prec' from an appropriate namespace, where
tcl_precision is living
On Aug 9, 2006, at 4:36 PM, Matt Diephouse (via RT) wrote:
# New Ticket Created by Matt Diephouse
# Please include the string: [perl #40143]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40143 >
% mini:~/Projects/parrot/languages/tcl mdiep$ tclsh
% set tcl_precision
12
% expr 1/3.0
0.333333333333
% set tcl_precision 17
17
% expr 1/3.0
0.33333333333333331
%
--
Matt Diephouse
--
Will "Coke" Coleda
[EMAIL PROTECTED]
