Fix getsname

isuruf · web-flow · commit 7f90c4e1f57c · 2017-10-25T17:28:45.000-05:00
diff --git a/tools/flang2/flang2exe/exputil.c b/tools/flang2/flang2exe/exputil.c
@@ -1107,11 +1107,7 @@ mk_impsym(int sptr)
     }
   /*****  else FALLTHRU  *****/
   default:
-#if defined(PGFTN) && defined(TARGET_WIN_X8664)
-    sprintf(bf, "__imp_%s", getsname2(sptr));
-#else
     sprintf(bf, "__imp_%s", getsname(sptr));
-#endif
   }
 
   impsym = getsymbol(bf);

Original file line number	Diff line number	Diff line change
`@@ -1107,11 +1107,7 @@ mk_impsym(int sptr)`
`1107`	`1107`	`}`
`1108`	`1108`	`/*** else FALLTHRU ***/`
`1109`	`1109`	`default:`
`1110`		`-#if defined(PGFTN) && defined(TARGET_WIN_X8664)`
`1111`		`- sprintf(bf, "__imp_%s", getsname2(sptr));`
`1112`		`-#else`
`1113`	`1110`	`sprintf(bf, "__imp_%s", getsname(sptr));`
`1114`		`-#endif`
`1115`	`1111`	`}`
`1116`	`1112`
`1117`	`1113`	`impsym = getsymbol(bf);`