}
/* Get working directory */
- tl_assert( VG_(getcwd)(base_dir, VKI_PATH_MAX) );
+ tl_assert( VG_(get_startup_wd)(base_dir, VKI_PATH_MAX) );
/* Do we have a --log-file-qualifier= to consider? */
if (VG_(clo_log_file_qualifier)) {
until it succeeds. */
while (NULL == base_directory) {
base_directory = CLG_MALLOC(size);
- if (!VG_(getcwd)(base_directory, size)) {
+ if (!VG_(get_startup_wd)(base_directory, size)) {
VG_(free)(base_directory);
base_directory = 0;
size *= 2;
return 1;
}
+ /* Find out what the current working directory is, and stuff it into the
+ environment so that the child can find it. */
+ char wd_buf[4096];
+ memset(wd_buf, 0, sizeof(wd_buf));
+ if (getcwd(wd_buf, sizeof(wd_buf)-1) == NULL) {
+ fprintf(stderr,"%s: getcwd(..) failed\n", argv[0]);
+ return 1;
+ }
+ assert(wd_buf[ sizeof(wd_buf)-1 ] == 0);
+ char* set_cwd = calloc(1, 100+sizeof(wd_buf));
+ if (set_cwd == NULL) {
+ fprintf(stderr,"%s: calloc of set_cwd failed\n", argv[0]);
+ return 1;
+ }
+ sprintf(set_cwd, "VALGRIND_STARTUP_PWD_%d_XYZZY=%s", getpid(), wd_buf);
+ VG_(debugLog)(1, "launcher", "doing putenv(\"%s\")\n", set_cwd);
+ putenv_err = putenv(set_cwd);
+ if (putenv_err) {
+ fprintf(stderr,"%s: putenv(\"VALGRIND_STARTUP_PWD_...\") failed\n",
+ argv[0]);
+ return 1;
+ }
+
/* Also, cook up the fully qualified name of this executable. The
following is a kludge, but I don't see how to really get the
fully qualified name on AIX. */
// contents will be applied twice. (bug #142488)
if (home) {
HChar cwd[VKI_PATH_MAX+1];
- Bool cwd_ok = VG_(getcwd)(cwd, VKI_PATH_MAX);
+ Bool cwd_ok = VG_(get_startup_wd)(cwd, VKI_PATH_MAX);
f2_clo = ( (cwd_ok && VG_STREQ(home, cwd))
? NULL : read_dot_valgrindrc(".") );
}
return res.isError ? (-1) : 0;
}
-Bool VG_(getcwd) ( Char* buf, SizeT size )
-{
+/* The working directory at startup. AIX doesn't provide an easy
+ system call to do getcwd, but fortunately we don't need arbitrary
+ getcwd support. All that is really needed is to note the cwd at
+ process startup. Hence VG_(record_startup_wd) notes it (in a
+ platform dependent way) and VG_(get_startup_wd) produces the noted
+ value. Hence: */
+static HChar startup_wd[VKI_PATH_MAX];
+static Bool startup_wd_acquired = False;
+
+/* Record the process' working directory at startup. Is intended to
+ be called exactly once, at startup, before the working directory
+ changes. Return True for success, False for failure, so that the
+ caller can bomb out suitably without creating module cycles if
+ there is a problem. */
+Bool VG_(record_startup_wd) ( void )
+{
+ const Int szB = sizeof(startup_wd);
+ vg_assert(!startup_wd_acquired);
+ vg_assert(szB >= 512 && szB <= 16384/*let's say*/); /* stay sane */
+ VG_(memset)(startup_wd, 0, szB);
# if defined(VGO_linux)
- SysRes res;
- vg_assert(buf != NULL);
- res = VG_(do_syscall2)(__NR_getcwd, (UWord)buf, size);
- return res.isError ? False : True;
+ /* Simple: just ask the kernel */
+ { SysRes res
+ = VG_(do_syscall2)(__NR_getcwd, (UWord)startup_wd, szB-1);
+ vg_assert(startup_wd[szB-1] == 0);
+ if (res.isError) {
+ return False;
+ } else {
+ startup_wd_acquired = True;
+ return True;
+ }
+ }
# elif defined(VGO_aix5)
- static Int complaints = 3;
- if (complaints-- > 0)
- VG_(debugLog)(0, "libcfile",
- "Warning: AIX5: m_libcfile.c: kludged 'getcwd'\n");
- if (size < 2) return False;
- buf[0] = '.';
- buf[1] = 0;
- return True;
+ /* We can't ask the kernel, so instead rely on launcher-aix5.c to
+ tell us the startup path. Note the env var is keyed to the
+ parent's PID, not ours, since our parent is the launcher
+ process. */
+ { Char envvar[100];
+ Char* wd = NULL;
+ VG_(memset)(envvar, 0, sizeof(envvar));
+ VG_(sprintf)(envvar, "VALGRIND_STARTUP_PWD_%d_XYZZY",
+ (Int)VG_(getppid)());
+ wd = VG_(getenv)( envvar );
+ if (wd == NULL || (1+VG_(strlen)(wd) >= szB))
+ return False;
+ VG_(strncpy_safely)(startup_wd, wd, szB);
+ vg_assert(startup_wd[szB-1] == 0);
+ startup_wd_acquired = True;
+ return True;
+ }
# else
# error Unknown OS
# endif
}
+/* Copy the previously acquired startup_wd into buf[0 .. size-1],
+ or return False if buf isn't big enough. */
+Bool VG_(get_startup_wd) ( Char* buf, SizeT size )
+{
+ vg_assert(startup_wd_acquired);
+ vg_assert(startup_wd[ sizeof(startup_wd)-1 ] == 0);
+ if (1+VG_(strlen)(startup_wd) >= size)
+ return False;
+ VG_(strncpy_safely)(buf, startup_wd, size);
+ return True;
+}
+
Int VG_(readlink) (Char* path, Char* buf, UInt bufsiz)
{
SysRes res;
/* As deduced from sp_at_startup, the client's argc, argv[] and
envp[] as extracted from the client's stack at startup-time. */
-Char** VG_(client_envp);
+Char** VG_(client_envp) = NULL;
/* Path to library directory */
const Char *VG_(libdir) = VG_LIBDIR;
Char *VG_(getenv)(Char *varname)
{
Int i, n;
+ vg_assert( VG_(client_envp) );
n = VG_(strlen)(varname);
for (i = 0; VG_(client_envp)[i] != NULL; i++) {
Char* s = VG_(client_envp)[i];
);
}
+ //--------------------------------------------------------------
+ // Record the working directory at startup
+ // p: none (Linux), getenv and sys_getpid work (AIX)
+ VG_(debugLog)(1, "main", "Getting the working directory at startup\n");
+ { Bool ok = VG_(record_startup_wd)();
+ if (!ok)
+ VG_(err_config_error)( "Can't establish current working "
+ "directory at startup");
+ }
+ { Char buf[VKI_PATH_MAX+1];
+ Bool ok = VG_(get_startup_wd)( buf, sizeof(buf) );
+ vg_assert(ok);
+ buf[VKI_PATH_MAX] = 0;
+ VG_(debugLog)(1, "main", "... %s\n", buf );
+ }
+
//============================================================
// Command line argument handling order:
// * If --help/--help-debug are present, show usage message
written is guaranteed not to exceed 64+strlen(part_of_name). */
extern Int VG_(mkstemp) ( HChar* part_of_name, /*OUT*/HChar* fullname );
+/* Record the process' working directory at startup. Is intended to
+ be called exactly once, at startup, before the working directory
+ changes. Return True for success, False for failure, so that the
+ caller can bomb out suitably without creating module cycles if
+ there is a problem. The saved value can later be acquired by
+ calling VG_(get_startup_wd) (in pub_tool_libcfile.h). */
+extern Bool VG_(record_startup_wd) ( void );
+
#endif // __PUB_CORE_LIBCFILE_H
/*--------------------------------------------------------------------*/
extern Int VG_(readlink)( Char* path, Char* buf, UInt bufsize );
extern Int VG_(getdents)( UInt fd, struct vki_dirent *dirp, UInt count );
+/* Copy the working directory at startup into buf[0 .. size-1], or return
+ False if buf is too small. */
+extern Bool VG_(get_startup_wd) ( Char* buf, SizeT size );
+
#endif // __PUB_TOOL_LIBCFILE_H
/*--------------------------------------------------------------------*/
// Dummy node at top of the context structure.
alloc_xpt = new_XPt(0, NULL, /*is_bottom*/False);
- tl_assert( VG_(getcwd)(base_dir, VKI_PATH_MAX) );
+ tl_assert( VG_(get_startup_wd)(base_dir, VKI_PATH_MAX) );
}
VG_DETERMINE_INTERFACE_VERSION(ms_pre_clo_init)
projects / thirdparty / valgrind.git / commitdiff
