Fix #13807 - foreign import nondeterminism
The problem was that the generated label included a freshly assigned Unique value. Test Plan: Added a new test and looked at the generated stub: ``` #include "HsFFI.h" #ifdef __cplusplus extern "C" { #endif extern HsInt zdmainzdAzdAzuzzlzzgzzg(StgStablePtr the_stableptr); extern HsInt zdmainzdAzdAzumkStringWriter(StgStablePtr the_stableptr); #ifdef __cplusplus } #endif ``` ./validate Reviewers: simonmar, austin, bgamari Reviewed By: simonmar Subscribers: rwbarton, thomie GHC Trac Issues: #13807 Differential Revision: https://phabricator.haskell.org/D3633
Showing
- compiler/deSugar/DsForeign.hs 5 additions, 8 deletionscompiler/deSugar/DsForeign.hs
- testsuite/tests/determinism/T13807/A.hs 11 additions, 0 deletionstestsuite/tests/determinism/T13807/A.hs
- testsuite/tests/determinism/T13807/Makefile 11 additions, 0 deletionstestsuite/tests/determinism/T13807/Makefile
- testsuite/tests/determinism/T13807/T13807.stdout 2 additions, 0 deletionstestsuite/tests/determinism/T13807/T13807.stdout
- testsuite/tests/determinism/T13807/all.T 1 addition, 0 deletionstestsuite/tests/determinism/T13807/all.T
Loading
Please register or sign in to comment