octave-maintainers
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

octave 2.9.9 segfault on startup with build for hppa64-hp-hpux11.23


From: Vanwieren, Peter \(PVW.\)
Subject: octave 2.9.9 segfault on startup with build for hppa64-hp-hpux11.23
Date: Thu, 2 Nov 2006 07:48:37 -0500

Hello,

I have built octave 2.9.9 using gcc-4.1.1 for hppa64-hp-hpux11.23 target (64bit PARISC).  The compiling completes and installs successfully, but the program segmentation faults on startup.

This appears to be because the 'find' command is not defined as shown in output below.  Can anyone please give advice on what might be wrong?

Thanks,
Peter


smith 0 88% gcc --version
gcc (GCC) 4.1.1
Copyright (C) 2006 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

smith 0 89% gfortran --version
GNU Fortran 95 (GCC) 4.1.1
Copyright (C) 2006 Free Software Foundation, Inc.

GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of GNU Fortran
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING

smith 0 90% uname -a
HP-UX smith B.11.11 U 9000/785 HP-UX
smith 0 91%                                                                                                                                           

smith 0 91% which octave
/home/hpux/bin/octave
smith 0 92% setenv LD_LIBRARY_PATH /home/hpux/lib
smith 0 93%  octave --verbose --echo-commands --norc
GNU Octave, version 2.9.9 (hppa64-hp-hpux11.23).
Copyright (C) 2006 John W. Eaton.
This is free software; see the source code for copying conditions.
There is ABSOLUTELY NO WARRANTY; not even for MERCHANTIBILITY or
FITNESS FOR A PARTICULAR PURPOSE.  For details, type `warranty'.

Additional information about Octave is available at http://www.octave.org.

Please contribute if you find this software useful.
For more information, visit http://www.octave.org/help-wanted.html

Report bugs to <address@hidden> (but first, please read
http://www.octave.org/bugs.html to learn how to write a helpful report).

+ autoload ("airy", fullfile (fileparts (mfilename ("fullpath")), "besselj.oct"));
+ ## Copyright (C) 2003 John W. Eaton
##
+ ## This file is part of Octave.
##
+ ## Octave is free software; you can redistribute it and/or modify it
+ ## under the terms of the GNU General Public License as published by
+ ## the Free Software Foundation; either version 2, or (at your option)
+ ## any later version.
##
+ ## Octave is distributed in the hope that it will be useful, but
+ ## WITHOUT ANY WARRANTY; without even the implied warranty of
+ ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ ## General Public License for more details.
##
+ ## You should have received a copy of the GNU General Public License
+ ## along with Octave; see the file COPYING.  If not, write to the Free
+ ## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ ## 02110-1301, USA.

+ ## -*- texinfo -*-
+ ## @deftypefn {Function File} address@hidden, @var{name}, @var{ext}, @var{ver}] =} fileparts (@var{filename})
+ ## Return the directory, name, extension, and version components of
+ ## @var{filename}.
+ ## @seealso{fullfile}
+ ## @end deftypefn
+ function [directory, name, extension, version] = fileparts (filename)
+ if (nargin == 1)
+   if (ischar (filename))
+     ds = rindex (filename, filesep);
+     es = rindex (filename, ".");
+     ## These can be the same if they are both 0 (no dir or ext).
+     if (es <= ds)
+       es = length (filename) + 1;
+     endif
+     directory = filename (1:ds - 1);
+     name = filename (ds + 1:es - 1);
+     if (es > 0)
+       extension = filename (es:__end__);
+     else
+       extension = ;
+     endif
+     version = ;
+   else
+     error ("fileparts: expecting filename argument to be a string");
+   endif
+ else
+   usage ("fileparts (filename)");
+ endif
+ ## Copyright (C) 1996 Kurt Hornik
##
+ ## This file is part of Octave.
##
+ ## Octave is free software; you can redistribute it and/or modify it
+ ## under the terms of the GNU General Public License as published by
+ ## the Free Software Foundation; either version 2, or (at your option)
+ ## any later version.
##
+ ## Octave is distributed in the hope that it will be useful, but
+ ## WITHOUT ANY WARRANTY; without even the implied warranty of
+ ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ ## General Public License for more details.
##
+ ## You should have received a copy of the GNU General Public License
+ ## along with Octave; see the file COPYING.  If not, write to the Free
+ ## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ ## 02110-1301, USA.

+ ## -*- texinfo -*-
+ ## @deftypefn {Function File} {} rindex (@var{s}, @var{t})
+ ## Return the position of the last occurrence of the string @var{t} in the
+ ## string @var{s}, or 0 if no occurrence is found.  For example,
##
+ ## @example
+ ## rindex ("Teststring", "t")
+ ##     @result{} 6
+ ## @end example
##
+ ## @strong{Caution:}  This function does not work for arrays of strings.
+ ## @end deftypefn

+ function n = rindex (s, t)
+ ## This is patterned after the AWK function of the same name.
+ if (nargin != 2)
+   usage ("rindex (s, t)");
+ endif
+ if (!ischar (s) || !ischar (t) || all (size (s) > 1) || all (size (t) > 1))
+   error ("rindex: expecting string arguments");
+ endif
+ l_s = length (s);
+ l_t = length (t);
+ if (l_s == 0 || l_s < l_t)
+   ## zero length source, or target longer than source
+   v = [];
+ elseif (l_t == 0)
+   ## zero length target: return last
+   v = l_s;
+ elseif (l_t == 1)
+   ## length one target: simple find
+   v = find (s == t);
+ elseif (l_t == 2)
+   ## length two target: find first at i and second at i+1
+   v = find (s (1:l_s - 1) == t (1) & s (2:l_s) == t (2));
+ else
+   ## length three or more: match the first three by find then go through

+   ## the much smaller list to determine which of them are real matches
+   limit = l_s - l_t + 1;
+   v = find (s (1:limit) == t (1) & s (2:limit + 1) == t (2) & s (3:limit + 2) == t (3));
+ endif
error: No such file or directory
error: `find' undefined near line 61 column 9
error: evaluating assignment _expression_ near line 61, column 7
error: evaluating if command near line 51, column 3
+ endfunction
error: called from `rindex' in file `/home/hpux/share/octave/2.9.9/m/strings/rindex.m'
error: evaluating assignment _expression_ near line 31, column 10
error: evaluating if command near line 30, column 5
error: evaluating if command near line 29, column 3
+ endfunction
error: called from `fileparts' in file `/home/hpux/share/octave/2.9.9/m/miscellaneous/fileparts.m'
panic: Segmentation violation -- stopping myself...
attempting to save variables to `octave-core'...
save to `octave-core' complete
Segmentation fault
smith 0 293% find ~/hpux | grep 'octave.*/find' | xargs ls -o
-rwxr-xr-x 1 pvanwie1 679048 Nov  2 07:10 /home/hpux/libexec/octave/2.9.9/oct/hppa64-hp-hpux11.23/find.oct
-rw-r--r-- 1 pvanwie1   3909 Nov  2 07:11 /home/hpux/share/octave/2.9.9/m/strings/findstr.m



reply via email to

[Prev in Thread] Current Thread [Next in Thread]