Commit 2e925075 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-07-15 14:49:17 by simonmar]

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

parent d846cdf3
......@@ -90,7 +90,7 @@ dsForeigns mod_name fos
= 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)
Supports Markdown
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