Unbreak the registering of foreign exports as stable pointers, which
was brokwn in rev. 1.64. This will eventually cause any program that
uses the same foreign export repeatedly to seg fault. Dunno why we
don't have a test for this.
*sigh* the first bad bug in 5.04
MERGE TO STABLE
= dsFExport mod_name id (idType id)
ext_nm cconv False `thenDs` \(h, c) ->
warnDepr depr loc `thenDs` \_ ->
- returnDs (acc_feb, acc_f, h $$ acc_h, c $$ acc_c, acc_header)
+ returnDs (id:acc_feb, acc_f, h $$ acc_h, c $$ acc_c, acc_header)
warnDepr False _ = returnDs ()
warnDepr True loc = dsWarn (addShortWarnLocLine loc msg)