--- a/liboctave/idx-vector.cc	Tue Nov 30 20:24:36 1993 +0000
+++ b/liboctave/idx-vector.cc	Tue Nov 30 20:24:36 1993 +0000
@@ -21,8 +21,8 @@
 
 */
 
-#ifdef __GNUG__
-#pragma implementation
+#ifdef HAVE_CONFIG_H
+#include "config.h"
 #endif
 
 #include <iostream.h>
@@ -86,7 +86,7 @@
     }
   else if (nr > 1 && nc > 1 && do_ftn_idx)
     {
-      double *cop_out = m.fortran_vec ();
+      const double *cop_out = m.data ();
       len = nr * nc;
       data = new int [len];
       for (int i = 0; i < len; i++)
@@ -108,7 +108,7 @@
     }
   else
     {
-      error ("invalid matrix used as index");
+      ::error ("invalid matrix used as index");
       return;
     }
 
@@ -123,7 +123,7 @@
 
   if (len < 0)
     {
-      error ("invalid range used as index");
+      ::error ("invalid range used as index");
       return;
     }
   else if (len == 0)
@@ -217,7 +217,7 @@
     }
   else if (min_val < 0)
     {
-      error ("%s index %d out of range", rc, min_val+1);
+      ::error ("%s index %d out of range", rc, min_val+1);
       initialized = 0;
       return;
     }
@@ -275,7 +275,7 @@
 {
   if (n < 0 || n >= len)
     {
-      error ("idx-vector: index out of range");
+      ::error ("idx-vector: index out of range");
       return 0;
     }