Mercurial > octave-nkf

diff libcruft/misc/f77-fcn.h @ 6253:f1676652d808

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-01-24 20:43:36 by jwe]
author jwe
date Wed, 24 Jan 2007 20:43:37 +0000
parents 6465ca8e4f0c
children 93c65f2a5668
line wrap: on
line diff
--- a/libcruft/misc/f77-fcn.h	Wed Jan 24 19:58:46 2007 +0000
+++ b/libcruft/misc/f77-fcn.h	Wed Jan 24 20:43:37 2007 +0000
@@ -216,8 +216,7 @@
    Needs to include <cstring> and <vector>.  */
 
 #define F77_CSTRING(s, len, cs) \
- OCTAVE_LOCAL_BUFFER (char, F77_CHAR_ARG_USE (s), \
-		      F77_CHAR_ARG_LEN_USE (s, len) + 1); \
+ OCTAVE_LOCAL_BUFFER (char, cs, F77_CHAR_ARG_LEN_USE (s, len) + 1); \
  memcpy (cs, F77_CHAR_ARG_USE (s), F77_CHAR_ARG_LEN_USE (s, len)); \
  cs[F77_CHAR_ARG_LEN_USE(s, len)] = '\0'