[Octave-cvsupdate] SF.net SVN: octave:[10138] trunk/octave-forge/main/fixed/inst/fixedpoint.m

[<tho...@us...>]

Revision: 10138
          http://octave.svn.sourceforge.net/octave/?rev=10138&view=rev
Author:   thomas-weber
Date:     2012-04-03 20:51:27 +0000 (Tue, 03 Apr 2012)
Log Message:
-----------
Fixes for error "invalid assignment to cs-list outside multiple assignment"

Patch from Rafael Laboissiere <ra...@la...>

Modified Paths:
--------------
    trunk/octave-forge/main/fixed/inst/fixedpoint.m

Modified: trunk/octave-forge/main/fixed/inst/fixedpoint.m
===================================================================
--- trunk/octave-forge/main/fixed/inst/fixedpoint.m	2012-04-03 13:55:17 UTC (rev 10137)
+++ trunk/octave-forge/main/fixed/inst/fixedpoint.m	2012-04-03 20:51:27 UTC (rev 10138)
@@ -209,10 +209,10 @@
       if (size(zero) != [n,n])
 	error ("FAILED");
       endif
-      zero.int = zero.int+1;
-      zero.dec = zero.dec+1;
-      if (any(any(zero.x)) || any(any(zero.int != is+1)) || 
-	  any(any(zero.dec != ds+1)))
+      zero_int_plus_one = zero.int+1;
+      zero_dec_plus_one = zero.dec+1;
+      if (any(any(zero.x)) || any(any(zero_int_plus_one != is+1)) || 
+	  any(any(zero_dec_plus_one != ds+1)))
 	error ("FAILED");
       endif
       for i=1:100
@@ -312,10 +312,10 @@
       if (size(onei) != [n,n])
 	error ("FAILED");
       endif
-      onei.int = onei.int+1;
-      onei.dec = onei.dec+1;
-      if (any(any(onei.x != 1+1i)) || any(any(onei.int != is*(1+1i)+1)) || 
-	  any(any(onei.dec != ds*(1+1i)+1)))
+      onei_int_plus_one = onei.int+1;
+      onei_dec_plus_one = onei.dec+1;
+      if (any(any(onei.x != 1+1i)) || any(any(onei_int_plus_one != is*(1+1i)+1)) || 
+	  any(any(onei_dec_plus_one != ds*(1+1i)+1)))
 	error ("FAILED");
       endif
       for i=1:100
@@ -392,8 +392,7 @@
       if (any(any(abs(a(1,:).x - x(1,:)) > feps)) || !isfixed(a))
 	error ("FAILED");
       endif
-      a(1,:).dec = a(1,:).dec + 1;
-      if (a(1,:).dec != ds+1)
+      if (a(1,:).dec + 1 != ds+1)
         error("FAILED");
       endif
       if (a(2,:).dec != ds)
@@ -411,8 +410,7 @@
 	  !isfixed(a)) 
 	error ("FAILED");
       endif
-      a(1,:).dec = a(1,:).dec + 1;
-      if (a(1,:).dec != ds*(1+1i)+1)
+      if (a(1,:).dec + 1 != ds*(1+1i)+1)
         error("FAILED");
       endif
       if (a(2,:).dec != ds*(1+1i))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.