Mercurial > octave-nkf

diff libcruft/misc/f77-fcn.h @ 4180:84fe3ca3a246
[project @ 2002-11-15 04:47:01 by jwe]
author: jwe
date: Fri, 15 Nov 2002 04:47:02 +0000
parents: 61fba034b13b
children: 4d1d7c51205c
--- a/libcruft/misc/f77-fcn.h	Thu Nov 14 04:31:19 2002 +0000
+++ b/libcruft/misc/f77-fcn.h	Fri Nov 15 04:47:02 2002 +0000
@@ -29,8 +29,6 @@
 
 #include "quit.h"
 
-#include <stdio.h>
-
 /* Hack to stringize macro results. */
 #define xSTRINGIZE(x) #x
 #define STRINGIZE(x) xSTRINGIZE(x)
@@ -61,6 +59,8 @@
           octave_restore_current_context ((char *) saved_context); \
 	  if (f77_exception_encountered) \
 	    F77_XFCN_ERROR (f, F); \
+          else if (octave_allocation_error) \
+            OCTAVE_THROW_BAD_ALLOC; \
           else \
             OCTAVE_THROW_TO_TOP_LEVEL; \
 	} \