[genius] Sun Apr 19 19:27:09 2009 Jiri (George) Lebl <jirka 5z com>

[George Lebl <jirka src gnome org>]

commit a6f16489a4386c043049d0b5f6ab239da2df8e69
Author: Jiri (George) Lebl <jirka 5z com>
Date:   Sun Apr 19 19:27:15 2009 -0500

    Sun Apr 19 19:27:09 2009  Jiri (George) Lebl <jirka 5z com>
    
    	* src/geniustests.txt, src/testprec.gel: test the precision stuff
    
    	* src/graphing.c: Apply patch from Matthias Drochner of NetBSD to
    	  fix unitialized variable in one dimensional function plots
---
 ChangeLog           |    7 +++++++
 src/geniustests.txt |    1 +
 src/graphing.c      |    1 +
 src/testprec.gel    |   13 +++++++++++++
 4 files changed, 22 insertions(+), 0 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1772232..0a84d90 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Sun Apr 19 19:27:09 2009  Jiri (George) Lebl <jirka 5z com>
+
+	* src/geniustests.txt, src/testprec.gel: test the precision stuff
+
+	* src/graphing.c: Apply patch from Matthias Drochner of NetBSD to
+	  fix unitialized variable in one dimensional function plots
+
 Sun Apr 19 18:55:12 2009  Jiri (George) Lebl <jirka 5z com>
 
 	* src/mpwrap.c: Fix conflict with changing precision and the mpfr
diff --git a/src/geniustests.txt b/src/geniustests.txt
index 76c5a9c..4e742d8 100644
--- a/src/geniustests.txt
+++ b/src/geniustests.txt
@@ -932,3 +932,4 @@ CompositeSimpsonsRule(`(x)=x^2,3,0,100)				-9.0
 CompositeSimpsonsRule(`(x)=x^2,3,3,100)				0
 load "nullspacetest.gel"					true
 load "longtest.gel"						true
+load "testprec.gel"						true
diff --git a/src/graphing.c b/src/graphing.c
index 1990301..9b41b9f 100644
--- a/src/graphing.c
+++ b/src/graphing.c
@@ -4643,6 +4643,7 @@ plot_from_dialog_lineplot (void)
 
 	line_plot_clear_funcs ();
 
+	j = 0;
 	for (i = 0; i < MAXFUNC; i++) {
 		if (func[i] != NULL) {
 			plot_func[j] = func[i];
diff --git a/src/testprec.gel b/src/testprec.gel
new file mode 100644
index 0000000..4f6e3b4
--- /dev/null
+++ b/src/testprec.gel
@@ -0,0 +1,13 @@
+function f(z) = [1-1.4*z@(1)^2+z@(2),0.3*z@(1)];
+g= ComposePower(f,1000,[0.0,0.0]);
+FloatPrecision = 300;
+function f(z) = [1-1.4*z@(1)^2+z@(2),0.3*z@(1)];
+h= ComposePower(f,1000,[0.0,0.0]);
+FloatPrecision = 250;
+function f(z) = [1-1.4*z@(1)^2+z@(2),0.3*z@(1)];
+k= ComposePower(f,1000,[0.0,0.0]);
+function f(z) = [1-1.4*z@(1)^2+z@(2),0.3*z@(1)];
+a = ComposePower(f,1000,[0.0,0.0]);
+function f(z) = [1-1.4*z@(1)^2+z@(2),0.3*z@(1)];
+b = ComposePower(f,1000,[0.0,0.0]);
+if a==b then print(true) else print(false)