20 lines
565 B
XML
20 lines
565 B
XML
--- doc/docbook/src/tcl.xml.orig 2015-04-12 10:08:04 UTC
|
|
+++ doc/docbook/src/tcl.xml
|
|
@@ -576,7 +576,7 @@ EVEN IF ADVISED OF THE POSSIBILITY OF SU
|
|
if (pm->fdata[i] > max)
|
|
max = pm->fdata[i];
|
|
|
|
- sprintf( interp->result, "%f", max );
|
|
+ sprintf( Tcl_GetStringResult(interp), "%f", max );
|
|
return TCL_OK;
|
|
}
|
|
|
|
@@ -589,7 +589,7 @@ EVEN IF ADVISED OF THE POSSIBILITY OF SU
|
|
if (pm->fdata[i] < min)
|
|
min = pm->fdata[i];
|
|
|
|
- sprintf( interp->result, "%f", min );
|
|
+ sprintf( Tcl_GetStringResult(interp), "%f", min );
|
|
return TCL_OK;
|
|
}
|
|
</programlisting>
|