Fix missing fragments in downstream modules

sethrj · sethrj · commit 5c37f621696b · 2019-09-18T11:58:46.000-04:00
diff --git a/Lib/fortran/classes.swg b/Lib/fortran/classes.swg
@@ -24,12 +24,12 @@
 %define %fortran_autofree_rvalue(CLASS...)
 
 %typemap(in) CLASS = SWIGTYPE;
-%typemap(argout, noblock=1, match="in") CLASS {
+%typemap(argout, noblock=1, fragment="SWIG_assign", match="in") CLASS {
   SWIG_free_rvalue< $1_ltype, SWIGPOLICY_ ## %mangle(CLASS) >(*$input);
 }
 
 %typemap(in) CLASS* = SWIGTYPE*;
-%typemap(argout, noblock=1, match="in") CLASS* {
+%typemap(argout, noblock=1, fragment="SWIG_assign", match="in") CLASS* {
   SWIG_free_rvalue< $*1_ltype, SWIGPOLICY_ ## %mangle(CLASS) >(*$input);
 }
 

Original file line number	Diff line number	Diff line change
`@@ -24,12 +24,12 @@`
`24`	`24`	`%define %fortran_autofree_rvalue(CLASS...)`
`25`	`25`
`26`	`26`	`%typemap(in) CLASS = SWIGTYPE;`
`27`		`-%typemap(argout, noblock=1, match="in") CLASS {`
	`27`	`+%typemap(argout, noblock=1, fragment="SWIG_assign", match="in") CLASS {`
`28`	`28`	`SWIG_free_rvalue< $1_ltype, SWIGPOLICY_ ## %mangle(CLASS) >(*$input);`
`29`	`29`	`}`
`30`	`30`
`31`	`31`	`%typemap(in) CLASS* = SWIGTYPE*;`
`32`		`-%typemap(argout, noblock=1, match="in") CLASS* {`
	`32`	`+%typemap(argout, noblock=1, fragment="SWIG_assign", match="in") CLASS* {`
`33`	`33`	`SWIG_free_rvalue< $1_ltype, SWIGPOLICY_ ## %mangle(CLASS) >($input);`
`34`	`34`	`}`
`35`	`35`