From a92ff5d66182d992d02dfaad4c446ad074582368 Mon Sep 17 00:00:00 2001 From: Sergei Trofimovich Date: Mon, 17 Apr 2017 12:56:20 +0100 Subject: hs_add_root() RTS API removal Before ghc-7.2 hs_add_root() had to be used to initialize haskell modules when haskell was called from FFI. commit a52ff7619e8b7d74a9d933d922eeea49f580bca8 ("Change the way module initialisation is done (#3252, #4417)") removed needs for hs_add_root() and made function a no-op. For backward compatibility '__stginit_' symbol was not removed. This change removes no-op hs_add_root() function and unused '__stginit_' symbol from each haskell module. Signed-off-by: Sergei Trofimovich Test Plan: ./validate Reviewers: simonmar, austin, bgamari, erikd Reviewed By: simonmar Subscribers: rwbarton, thomie Differential Revision: https://phabricator.haskell.org/D3460 --- rts/RtsStartup.c | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'rts/RtsStartup.c') diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 9ec8af8145..36a99d7a56 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -301,17 +301,6 @@ startupHaskell(int argc, char *argv[], void (*init_root)(void) STG_UNUSED) hs_init(&argc, &argv); } - -/* ----------------------------------------------------------------------------- - hs_add_root: backwards compatibility. (see #3252) - -------------------------------------------------------------------------- */ - -void -hs_add_root(void (*init_root)(void) STG_UNUSED) -{ - /* nothing */ -} - /* ---------------------------------------------------------------------------- * Shutting down the RTS * -- cgit v1.2.1