From 9898358f3743548d00e55b26ab6784cadc2d6807 Mon Sep 17 00:00:00 2001 From: Clemens Fruhwirth Date: Tue, 7 Oct 2008 10:07:50 +0000 Subject: [PATCH] Change suffix for dyn. linked executables from _real to .dyn --- compiler/main/DriverPipeline.hs | 4 ++-- rts/dyn-wrapper.c | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 818a00c..3cad740 100644 --- 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 --- 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); -- 1.7.10.4