X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Flinreg%2Fsweep.c;h=1eb466e92105d80c323c18ca9263f54a568746fb;hb=019d870c9a961108b6b5e762ce968db2e06203a7;hp=7667e3a555db063502eae81dcdd8188921630872;hpb=90afc1f0572a82bd6eb4532350b368c685b3cc7b;p=pspp-builds.git

diff --git a/lib/linreg/sweep.c b/lib/linreg/sweep.c
index 7667e3a5..1eb466e9 100644
--- a/lib/linreg/sweep.c
+++ b/lib/linreg/sweep.c
@@ -142,11 +142,7 @@ reg_sweep (gsl_matrix * A, int last_col)
 		}
 	    }
 	}
-      for (i = 0; i < A->size1; i++)
-	for (j = i; j < A->size2; j++)
-	  {
-	    gsl_matrix_set (A, i, j, gsl_matrix_get (B, i, j));
-	  }
+      gsl_matrix_memcpy (A, B);
     }
   gsl_matrix_free (B);