Mercurial > octave-nkf

changeset 434:ec2a6ad30162

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-05-25 21:00:20 by jwe]
author jwe
date Wed, 25 May 1994 21:02:14 +0000
parents 49eddf39e77d
children 5e778965b6ea
files liboctave/idx-vector.cc liboctave/idx-vector.h
diffstat 2 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/idx-vector.cc	Wed May 25 19:17:10 1994 +0000
+++ b/liboctave/idx-vector.cc	Wed May 25 21:02:14 1994 +0000
@@ -313,6 +313,15 @@
     }
 }
 
+void
+idx_vector::shorten (int n)
+{
+  if (n > 0 && n <= len)
+    len = n;
+  else
+    panic_impossible ();
+}
+
 ostream&
 operator << (ostream& os, const idx_vector& a)
 {
--- a/liboctave/idx-vector.h	Wed May 25 19:17:10 1994 +0000
+++ b/liboctave/idx-vector.h	Wed May 25 21:02:14 1994 +0000
@@ -64,6 +64,8 @@
   void sort (void);
   void sort_uniq (void);
 
+  void shorten (int n); // Unsafe.  Avoid at all cost.
+
 // i/o
 
   friend ostream& operator << (ostream& os, const idx_vector& a);