Change suffix for dyn. linked executables from _real to .dyn

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 818a00c..3cad740 100644 (file)
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -1188,8 +1188,8 @@ runPhase_MoveBinary dflags input_fn dep_packages
          Wrapped wrapmode ->
              do
                let (o_base, o_ext) = splitExtension input_fn
-               let wrapped_executable | o_ext == "exe" = (o_base ++ "_real") <.> o_ext
-                                      | otherwise = input_fn ++ "_real"
+               let wrapped_executable | o_ext == "exe" = (o_base ++ ".dyn") <.> o_ext
+                                      | otherwise = input_fn ++ ".dyn"
                behaviour <- wrapper_behaviour dflags wrapmode dep_packages
 
                 -- THINKME isn't this possible to do a bit nicer?

diff --git a/rts/dyn-wrapper.c b/rts/dyn-wrapper.c
index b8149d7..60947f2 100644 (file)
--- a/rts/dyn-wrapper.c
+++ b/rts/dyn-wrapper.c
@@ -16,7 +16,7 @@
 /* All defining behavior string */
 char behaviour[]=BEHAVIOUR;
 
-#define REAL_EXT "_real"
+#define REAL_EXT ".dyn"
 #define REAL_EXT_S (sizeof(REAL_EXT)-1)
 
 void *smalloc(size_t size);