Reinitialize hostsptr and devsptr at the IM_BOS.

tskeith · tskeith · commit 2637788bac45 · 2017-07-12T17:16:00.000-07:00
These values are carried across ILMs, but not across ILM blocks, so the old
values should be cleared out.
diff --git a/tools/flang2/flang2exe/exp_ftn.c b/tools/flang2/flang2exe/exp_ftn.c
@@ -3605,6 +3605,8 @@ exp_misc(ILM_OP opc, ILM *ilmp, int curilm)
       }
     }
     mkrtemp_init();
+    hostsptr = 0;
+    devsptr = 0;
     break;
 
   case IM_ENTRY:

Original file line number	Diff line number	Diff line change
`@@ -3605,6 +3605,8 @@ exp_misc(ILM_OP opc, ILM *ilmp, int curilm)`
`3605`	`3605`	`}`
`3606`	`3606`	`}`
`3607`	`3607`	`mkrtemp_init();`
	`3608`	`+ hostsptr = 0;`
	`3609`	`+ devsptr = 0;`
`3608`	`3610`	`break;`
`3609`	`3611`
`3610`	`3612`	`case IM_ENTRY:`