Commit 2814e641 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Add seam for stack allocation of Fortran string arguments.

parent 4f27a472
......@@ -434,6 +434,9 @@ only C calling FORTRAN subroutines will work using K&R style.*/
#if USE_NEW_DELETE
#define _cf_malloc(N) new char[N]
#define _cf_free(P) delete[] P
#elif CF_USE_ALLOCA
#define _cf_malloc(N) (char *)alloca(N)
#define _cf_free(P)
#else
#define _cf_malloc(N) (char *)malloc(N)
#define _cf_free(P) free(P)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment