Commit 6a07b007 by Douglas B Rupp Committed by Douglas Rupp

vmsdbgout.c (full_name): Just output the file name if not native.

	* vmsdbgout.c (full_name): Just output the file name if not native.

From-SVN: r161557
parent 6ca45368
2010-06-29 Douglas B Rupp <rupp@gnat.com> 2010-06-29 Douglas B Rupp <rupp@gnat.com>
* vmsdbgout.c (full_name): Just output the file name if not native.
2010-06-29 Douglas B Rupp <rupp@gnat.com>
* vmsdbgout.c (func_table): Replace with VEC func{nam,num}_tables. * vmsdbgout.c (func_table): Replace with VEC func{nam,num}_tables.
(funcnam_table): New static table. (funcnam_table): New static table.
(funcnum_table): New static table. (funcnum_table): New static table.
......
...@@ -1310,13 +1310,9 @@ full_name (const char *filename) ...@@ -1310,13 +1310,9 @@ full_name (const char *filename)
fgetname (fp, fullname_buff, 1); fgetname (fp, fullname_buff, 1);
fclose (fp); fclose (fp);
#else #else
getcwd (fullname_buff, sizeof (fullname_buff)); /* Unix paths really mess up VMS debug. Better to just output the
base filename. */
strcat (fullname_buff, "/"); strcpy (fullname_buff, filename);
strcat (fullname_buff, filename);
/* ??? Insert hairy code here to translate Unix style file specification
to VMS style. */
#endif #endif
return fullname_buff; return fullname_buff;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment