Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/7ad5ea684b6356981415629196f8fd4d04e9c143

>---------------------------------------------------------------

commit 7ad5ea684b6356981415629196f8fd4d04e9c143
Author: Paolo Capriotti <[email protected]>
Date:   Sun Sep 9 16:55:59 2012 +0100

    Remove unnecessary hs_add_root call (#7031)

>---------------------------------------------------------------

 tests/dynlibs/T4464B.c |    5 -----
 1 files changed, 0 insertions(+), 5 deletions(-)

diff --git a/tests/dynlibs/T4464B.c b/tests/dynlibs/T4464B.c
index fea4498..310b75a 100644
--- a/tests/dynlibs/T4464B.c
+++ b/tests/dynlibs/T4464B.c
@@ -1,8 +1,6 @@
 
 #include <Rts.h>
 
-extern void __stginit_T4464H(void);
-
 void HsStart(void) {
     int argc = 3;
     char* argv[] = {"ghcDll", "+RTS", "-H50M", NULL}; // argv must end with 
NULL
@@ -19,9 +17,6 @@ void HsStart(void) {
 #else
     hs_init(&argc, &args);
 #endif
-
-    // Tell Haskell about all root modules
-    hs_add_root(__stginit_T4464H);
 }
 
 void HsEnd(void) {



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to