Mercurial > gub
view patches/0001-MINGW32-Prepend-cwd-to-PATH.-Fixes-invoking-as-lilyp.patch @ 6512:ccc20ae889ca default tip guix
mingw::guile-2.0.7 builds.
author | Jan Nieuwenhuizen <janneke@gnu.org> |
---|---|
date | Thu, 24 Mar 2016 08:03:39 +0100 |
parents | 7b17440325c1 |
children |
line wrap: on
line source
From 1ba780c6f36cbd4b0adf7a21d7acbb2c6075817a Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen <janneke@gnu.org> Date: Fri, 10 Dec 2010 13:06:59 +0100 Subject: [PATCH] [MINGW32]: Prepend cwd to PATH. Fixes invoking as "lilypond.exe". --- lily/relocate.cc | 9 +++++---- 1 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lily/relocate.cc b/lily/relocate.cc index 698f06a..178e7d9 100644 --- a/lily/relocate.cc +++ b/lily/relocate.cc @@ -201,17 +201,18 @@ setup_paths (char const *argv0_ptr) File_path path; path.parse_path (getenv ("PATH")); - if (be_verbose_global) - warning (_f ("Relocation: from PATH=%s\nargv0=%s", - path.to_string ().c_str (), argv0_ptr)); - #ifndef __MINGW32__ argv0_abs = path.find (argv0_filename.to_string ()); #else /* __MINGW32__ */ + path.prepend (get_working_directory ()); char const *ext[] = {"exe", "", 0 }; argv0_abs = path.find (argv0_filename.to_string (), ext); #endif /* __MINGW32__ */ + if (be_verbose_global) + warning (_f ("Relocation: from PATH=%s\nargv0=%s", + path.to_string ().c_str (), argv0_ptr)); + if (argv0_abs.empty ()) programming_error ("cannot find absolute argv0"); } -- 1.7.1