1 /* General Compile and inject code
3 Copyright (C) 2014-2017 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
24 #include "cli/cli-script.h"
25 #include "cli/cli-utils.h"
26 #include "completer.h"
29 #include "compile-internal.h"
30 #include "compile-object-load.h"
31 #include "compile-object-run.h"
36 #include "arch-utils.h"
37 #include "filestuff.h"
42 #include "common/gdb_optional.h"
43 #include "common/gdb_unlinker.h"
47 /* Initial filename for temporary files. */
49 #define TMP_PREFIX "/tmp/gdbobj-"
51 /* Hold "compile" commands. */
53 static struct cmd_list_element
*compile_command_list
;
55 /* Debug flag for "compile" commands. */
59 /* Implement "show debug compile". */
62 show_compile_debug (struct ui_file
*file
, int from_tty
,
63 struct cmd_list_element
*c
, const char *value
)
65 fprintf_filtered (file
, _("Compile debugging is %s.\n"), value
);
70 /* Check *ARG for a "-raw" or "-r" argument. Return 0 if not seen.
71 Return 1 if seen and update *ARG. */
74 check_raw_argument (const char **arg
)
76 *arg
= skip_spaces (*arg
);
79 && (check_for_argument (arg
, "-raw", sizeof ("-raw") - 1)
80 || check_for_argument (arg
, "-r", sizeof ("-r") - 1)))
85 /* Handle the input from the 'compile file' command. The "compile
86 file" command is used to evaluate an expression contained in a file
87 that may contain calls to the GCC compiler. */
90 compile_file_command (const char *arg
, int from_tty
)
92 enum compile_i_scope_types scope
= COMPILE_I_SIMPLE_SCOPE
;
94 scoped_restore save_async
= make_scoped_restore (¤t_ui
->async
, 0);
96 /* Check the user did not just <enter> after command. */
98 error (_("You must provide a filename for this command."));
100 /* Check if a raw (-r|-raw) argument is provided. */
101 if (arg
!= NULL
&& check_raw_argument (&arg
))
103 scope
= COMPILE_I_RAW_SCOPE
;
104 arg
= skip_spaces (arg
);
107 /* After processing arguments, check there is a filename at the end
110 error (_("You must provide a filename with the raw option set."));
113 error (_("Unknown argument specified."));
115 arg
= skip_spaces (arg
);
116 gdb::unique_xmalloc_ptr
<char> abspath
= gdb_abspath (arg
);
117 std::string buffer
= string_printf ("#include \"%s\"\n", abspath
.get ());
118 eval_compile_command (NULL
, buffer
.c_str (), scope
, NULL
);
121 /* Handle the input from the 'compile code' command. The
122 "compile code" command is used to evaluate an expression that may
123 contain calls to the GCC compiler. The language expected in this
124 compile command is the language currently set in GDB. */
127 compile_code_command (const char *arg
, int from_tty
)
129 enum compile_i_scope_types scope
= COMPILE_I_SIMPLE_SCOPE
;
131 scoped_restore save_async
= make_scoped_restore (¤t_ui
->async
, 0);
133 if (arg
!= NULL
&& check_raw_argument (&arg
))
135 scope
= COMPILE_I_RAW_SCOPE
;
136 arg
= skip_spaces (arg
);
139 arg
= skip_spaces (arg
);
141 if (arg
!= NULL
&& !check_for_argument (&arg
, "--", sizeof ("--") - 1))
144 error (_("Unknown argument specified."));
148 eval_compile_command (NULL
, arg
, scope
, NULL
);
151 command_line_up l
= get_command_line (compile_control
, "");
153 l
->control_u
.compile
.scope
= scope
;
154 execute_control_command_untraced (l
.get ());
158 /* Callback for compile_print_command. */
161 compile_print_value (struct value
*val
, void *data_voidp
)
163 const struct format_data
*fmtp
= (const struct format_data
*) data_voidp
;
165 print_value (val
, fmtp
);
168 /* Handle the input from the 'compile print' command. The "compile
169 print" command is used to evaluate and print an expression that may
170 contain calls to the GCC compiler. The language expected in this
171 compile command is the language currently set in GDB. */
174 compile_print_command (const char *arg
, int from_tty
)
176 enum compile_i_scope_types scope
= COMPILE_I_PRINT_ADDRESS_SCOPE
;
177 struct format_data fmt
;
179 scoped_restore save_async
= make_scoped_restore (¤t_ui
->async
, 0);
181 /* Passing &FMT as SCOPE_DATA is safe as do_module_cleanup will not
182 touch the stale pointer if compile_object_run has already quit. */
183 print_command_parse_format (&arg
, "compile print", &fmt
);
186 eval_compile_command (NULL
, arg
, scope
, &fmt
);
189 command_line_up l
= get_command_line (compile_control
, "");
191 l
->control_u
.compile
.scope
= scope
;
192 l
->control_u
.compile
.scope_data
= &fmt
;
193 execute_control_command_untraced (l
.get ());
197 /* A cleanup function to remove a directory and all its contents. */
202 const char *dir
= (const char *) arg
;
206 gdb_assert (startswith (dir
, TMP_PREFIX
));
207 zap
= concat ("rm -rf ", dir
, (char *) NULL
);
208 wstat
= system (zap
);
209 if (wstat
== -1 || !WIFEXITED (wstat
) || WEXITSTATUS (wstat
) != 0)
210 warning (_("Could not remove temporary directory %s"), dir
);
214 /* Return the name of the temporary directory to use for .o files, and
215 arrange for the directory to be removed at shutdown. */
218 get_compile_file_tempdir (void)
220 static char *tempdir_name
;
222 #define TEMPLATE TMP_PREFIX "XXXXXX"
223 char tname
[sizeof (TEMPLATE
)];
225 if (tempdir_name
!= NULL
)
228 strcpy (tname
, TEMPLATE
);
231 tempdir_name
= mkdtemp (tname
);
233 error (_("Command not supported on this host."));
235 if (tempdir_name
== NULL
)
236 perror_with_name (_("Could not make temporary directory"));
238 tempdir_name
= xstrdup (tempdir_name
);
239 make_final_cleanup (do_rmdir
, tempdir_name
);
243 /* Compute the names of source and object files to use. */
245 static compile_file_names
246 get_new_file_names ()
249 const char *dir
= get_compile_file_tempdir ();
253 return compile_file_names (string_printf ("%s%sout%d.c",
254 dir
, SLASH_STRING
, seq
),
255 string_printf ("%s%sout%d.o",
256 dir
, SLASH_STRING
, seq
));
259 /* Get the block and PC at which to evaluate an expression. */
261 static const struct block
*
262 get_expr_block_and_pc (CORE_ADDR
*pc
)
264 const struct block
*block
= get_selected_block (pc
);
268 struct symtab_and_line cursal
= get_current_source_symtab_and_line ();
271 block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (cursal
.symtab
),
274 *pc
= BLOCK_START (block
);
277 *pc
= BLOCK_START (block
);
282 /* Call buildargv (via gdb_argv), set its result for S into *ARGVP but
283 calculate also the number of parsed arguments into *ARGCP. If
284 buildargv has returned NULL then *ARGCP is set to zero. */
287 build_argc_argv (const char *s
, int *argcp
, char ***argvp
)
291 *argcp
= args
.count ();
292 *argvp
= args
.release ();
295 /* String for 'set compile-args' and 'show compile-args'. */
296 static char *compile_args
;
298 /* Parsed form of COMPILE_ARGS. COMPILE_ARGS_ARGV is NULL terminated. */
299 static int compile_args_argc
;
300 static char **compile_args_argv
;
302 /* Implement 'set compile-args'. */
305 set_compile_args (const char *args
, int from_tty
, struct cmd_list_element
*c
)
307 freeargv (compile_args_argv
);
308 build_argc_argv (compile_args
, &compile_args_argc
, &compile_args_argv
);
311 /* Implement 'show compile-args'. */
314 show_compile_args (struct ui_file
*file
, int from_tty
,
315 struct cmd_list_element
*c
, const char *value
)
317 fprintf_filtered (file
, _("Compile command command-line arguments "
322 /* Append ARGC and ARGV (as parsed by build_argc_argv) to *ARGCP and *ARGVP.
323 ARGCP+ARGVP can be zero+NULL and also ARGC+ARGV can be zero+NULL. */
326 append_args (int *argcp
, char ***argvp
, int argc
, char **argv
)
330 *argvp
= XRESIZEVEC (char *, *argvp
, (*argcp
+ argc
+ 1));
332 for (argi
= 0; argi
< argc
; argi
++)
333 (*argvp
)[(*argcp
)++] = xstrdup (argv
[argi
]);
334 (*argvp
)[(*argcp
)] = NULL
;
337 /* String for 'set compile-gcc' and 'show compile-gcc'. */
338 static char *compile_gcc
;
340 /* Implement 'show compile-gcc'. */
343 show_compile_gcc (struct ui_file
*file
, int from_tty
,
344 struct cmd_list_element
*c
, const char *value
)
346 fprintf_filtered (file
, _("Compile command GCC driver filename is \"%s\".\n"),
350 /* Return DW_AT_producer parsed for get_selected_frame () (if any).
351 Return NULL otherwise.
353 GCC already filters its command-line arguments only for the suitable ones to
354 put into DW_AT_producer - see GCC function gen_producer_string. */
357 get_selected_pc_producer_options (void)
359 CORE_ADDR pc
= get_frame_pc (get_selected_frame (NULL
));
360 struct compunit_symtab
*symtab
= find_pc_compunit_symtab (pc
);
363 if (symtab
== NULL
|| symtab
->producer
== NULL
364 || !startswith (symtab
->producer
, "GNU "))
367 cs
= symtab
->producer
;
368 while (*cs
!= 0 && *cs
!= '-')
369 cs
= skip_spaces (skip_to_space (cs
));
375 /* Filter out unwanted options from *ARGCP and ARGV. */
378 filter_args (int *argcp
, char **argv
)
382 for (destv
= argv
; *argv
!= NULL
; argv
++)
384 /* -fpreprocessed may get in commonly from ccache. */
385 if (strcmp (*argv
, "-fpreprocessed") == 0)
396 /* Produce final vector of GCC compilation options. First element is target
397 size ("-m64", "-m32" etc.), optionally followed by DW_AT_producer options
398 and then compile-args string GDB variable. */
401 get_args (const struct compile_instance
*compiler
, struct gdbarch
*gdbarch
,
402 int *argcp
, char ***argvp
)
404 const char *cs_producer_options
;
406 char **argv_compiler
;
408 build_argc_argv (gdbarch_gcc_target_options (gdbarch
),
411 cs_producer_options
= get_selected_pc_producer_options ();
412 if (cs_producer_options
!= NULL
)
415 char **argv_producer
;
417 build_argc_argv (cs_producer_options
, &argc_producer
, &argv_producer
);
418 filter_args (&argc_producer
, argv_producer
);
419 append_args (argcp
, argvp
, argc_producer
, argv_producer
);
420 freeargv (argv_producer
);
423 build_argc_argv (compiler
->gcc_target_options
,
424 &argc_compiler
, &argv_compiler
);
425 append_args (argcp
, argvp
, argc_compiler
, argv_compiler
);
426 freeargv (argv_compiler
);
428 append_args (argcp
, argvp
, compile_args_argc
, compile_args_argv
);
431 /* A cleanup function to destroy a gdb_gcc_instance. */
434 cleanup_compile_instance (void *arg
)
436 struct compile_instance
*inst
= (struct compile_instance
*) arg
;
438 inst
->destroy (inst
);
441 /* A helper function suitable for use as the "print_callback" in the
445 print_callback (void *ignore
, const char *message
)
447 fputs_filtered (message
, gdb_stderr
);
450 /* Process the compilation request. On success it returns the object
451 and source file names. On an error condition, error () is
454 static compile_file_names
455 compile_to_object (struct command_line
*cmd
, const char *cmd_string
,
456 enum compile_i_scope_types scope
)
458 struct compile_instance
*compiler
;
459 struct cleanup
*cleanup
;
460 const struct block
*expr_block
;
461 CORE_ADDR trash_pc
, expr_pc
;
465 struct gdbarch
*gdbarch
= get_current_arch ();
469 if (!target_has_execution
)
470 error (_("The program must be running for the compile command to "\
473 expr_block
= get_expr_block_and_pc (&trash_pc
);
474 expr_pc
= get_frame_address_in_block (get_selected_frame (NULL
));
476 /* Set up instance and context for the compiler. */
477 if (current_language
->la_get_compile_instance
== NULL
)
478 error (_("No compiler support for language %s."),
479 current_language
->la_name
);
480 compiler
= current_language
->la_get_compile_instance ();
481 cleanup
= make_cleanup (cleanup_compile_instance
, compiler
);
483 compiler
->fe
->ops
->set_print_callback (compiler
->fe
, print_callback
, NULL
);
485 compiler
->scope
= scope
;
486 compiler
->block
= expr_block
;
488 /* From the provided expression, build a scope to pass to the
491 string_file input_buf
;
496 struct command_line
*iter
;
498 for (iter
= cmd
->body_list
[0]; iter
; iter
= iter
->next
)
500 input_buf
.puts (iter
->line
);
501 input_buf
.puts ("\n");
504 input
= input_buf
.c_str ();
506 else if (cmd_string
!= NULL
)
509 error (_("Neither a simple expression, or a multi-line specified."));
512 = current_language
->la_compute_program (compiler
, input
, gdbarch
,
513 expr_block
, expr_pc
);
515 fprintf_unfiltered (gdb_stdlog
, "debug output:\n\n%s", code
.c_str ());
517 if (compiler
->fe
->ops
->version
>= GCC_FE_VERSION_1
)
518 compiler
->fe
->ops
->set_verbose (compiler
->fe
, compile_debug
);
520 if (compile_gcc
[0] != 0)
522 if (compiler
->fe
->ops
->version
< GCC_FE_VERSION_1
)
523 error (_("Command 'set compile-gcc' requires GCC version 6 or higher "
524 "(libcc1 interface version 1 or higher)"));
526 compiler
->fe
->ops
->set_driver_filename (compiler
->fe
, compile_gcc
);
530 const char *os_rx
= osabi_triplet_regexp (gdbarch_osabi (gdbarch
));
531 const char *arch_rx
= gdbarch_gnu_triplet_regexp (gdbarch
);
533 /* Allow triplets with or without vendor set. */
534 triplet_rx
= concat (arch_rx
, "(-[^-]*)?-", os_rx
, (char *) NULL
);
535 make_cleanup (xfree
, triplet_rx
);
537 if (compiler
->fe
->ops
->version
>= GCC_FE_VERSION_1
)
538 compiler
->fe
->ops
->set_triplet_regexp (compiler
->fe
, triplet_rx
);
541 /* Set compiler command-line arguments. */
542 get_args (compiler
, gdbarch
, &argc
, &argv
);
543 gdb_argv
argv_holder (argv
);
545 if (compiler
->fe
->ops
->version
>= GCC_FE_VERSION_1
)
546 error_message
= compiler
->fe
->ops
->set_arguments (compiler
->fe
, argc
, argv
);
548 error_message
= compiler
->fe
->ops
->set_arguments_v0 (compiler
->fe
, triplet_rx
,
550 if (error_message
!= NULL
)
552 make_cleanup (xfree
, error_message
);
553 error ("%s", error_message
);
560 fprintf_unfiltered (gdb_stdlog
, "Passing %d compiler options:\n", argc
);
561 for (argi
= 0; argi
< argc
; argi
++)
562 fprintf_unfiltered (gdb_stdlog
, "Compiler option %d: <%s>\n",
566 compile_file_names fnames
= get_new_file_names ();
568 gdb::optional
<gdb::unlinker
> source_remover
;
571 gdb_file_up src
= gdb_fopen_cloexec (fnames
.source_file (), "w");
573 perror_with_name (_("Could not open source file for writing"));
575 source_remover
.emplace (fnames
.source_file ());
577 if (fputs (code
.c_str (), src
.get ()) == EOF
)
578 perror_with_name (_("Could not write to source file"));
582 fprintf_unfiltered (gdb_stdlog
, "source file produced: %s\n\n",
583 fnames
.source_file ());
585 /* Call the compiler and start the compilation process. */
586 compiler
->fe
->ops
->set_source_file (compiler
->fe
, fnames
.source_file ());
588 if (compiler
->fe
->ops
->version
>= GCC_FE_VERSION_1
)
589 ok
= compiler
->fe
->ops
->compile (compiler
->fe
, fnames
.object_file ());
591 ok
= compiler
->fe
->ops
->compile_v0 (compiler
->fe
, fnames
.object_file (),
594 error (_("Compilation failed."));
597 fprintf_unfiltered (gdb_stdlog
, "object file produced: %s\n\n",
598 fnames
.object_file ());
600 /* Keep the source file. */
601 source_remover
->keep ();
603 do_cleanups (cleanup
);
608 /* The "compile" prefix command. */
611 compile_command (const char *args
, int from_tty
)
613 /* If a sub-command is not specified to the compile prefix command,
614 assume it is a direct code compilation. */
615 compile_code_command (args
, from_tty
);
621 eval_compile_command (struct command_line
*cmd
, const char *cmd_string
,
622 enum compile_i_scope_types scope
, void *scope_data
)
624 struct compile_module
*compile_module
;
626 compile_file_names fnames
= compile_to_object (cmd
, cmd_string
, scope
);
628 gdb::unlinker
object_remover (fnames
.object_file ());
629 gdb::unlinker
source_remover (fnames
.source_file ());
631 compile_module
= compile_object_load (fnames
, scope
, scope_data
);
632 if (compile_module
== NULL
)
634 gdb_assert (scope
== COMPILE_I_PRINT_ADDRESS_SCOPE
);
635 eval_compile_command (cmd
, cmd_string
,
636 COMPILE_I_PRINT_VALUE_SCOPE
, scope_data
);
640 /* Keep the files. */
641 source_remover
.keep ();
642 object_remover
.keep ();
644 compile_object_run (compile_module
);
647 /* See compile/compile-internal.h. */
650 compile_register_name_mangled (struct gdbarch
*gdbarch
, int regnum
)
652 const char *regname
= gdbarch_register_name (gdbarch
, regnum
);
654 return string_printf ("__%s", regname
);
657 /* See compile/compile-internal.h. */
660 compile_register_name_demangle (struct gdbarch
*gdbarch
,
665 if (regname
[0] != '_' || regname
[1] != '_')
666 error (_("Invalid register name \"%s\"."), regname
);
669 for (regnum
= 0; regnum
< gdbarch_num_regs (gdbarch
); regnum
++)
670 if (strcmp (regname
, gdbarch_register_name (gdbarch
, regnum
)) == 0)
673 error (_("Cannot find gdbarch register \"%s\"."), regname
);
677 _initialize_compile (void)
679 struct cmd_list_element
*c
= NULL
;
681 add_prefix_cmd ("compile", class_obscure
, compile_command
,
683 Command to compile source code and inject it into the inferior."),
684 &compile_command_list
, "compile ", 1, &cmdlist
);
685 add_com_alias ("expression", "compile", class_obscure
, 0);
687 add_cmd ("code", class_obscure
, compile_code_command
,
689 Compile, inject, and execute code.\n\
691 Usage: compile code [-r|-raw] [--] [CODE]\n\
692 -r|-raw: Suppress automatic 'void _gdb_expr () { CODE }' wrapping.\n\
693 --: Do not parse any options beyond this delimiter. All text to the\n\
694 right will be treated as source code.\n\
696 The source code may be specified as a simple one line expression, e.g.:\n\
698 compile code printf(\"Hello world\\n\");\n\
700 Alternatively, you can type a multiline expression by invoking\n\
701 this command with no argument. GDB will then prompt for the\n\
702 expression interactively; type a line containing \"end\" to\n\
703 indicate the end of the expression."),
704 &compile_command_list
);
706 c
= add_cmd ("file", class_obscure
, compile_file_command
,
708 Evaluate a file containing source code.\n\
710 Usage: compile file [-r|-raw] [filename]\n\
711 -r|-raw: Suppress automatic 'void _gdb_expr () { CODE }' wrapping."),
712 &compile_command_list
);
713 set_cmd_completer (c
, filename_completer
);
715 add_cmd ("print", class_obscure
, compile_print_command
,
717 Evaluate EXPR by using the compiler and print result.\n\
719 Usage: compile print[/FMT] [EXPR]\n\
721 The expression may be specified on the same line as the command, e.g.:\n\
725 Alternatively, you can type a multiline expression by invoking\n\
726 this command with no argument. GDB will then prompt for the\n\
727 expression interactively; type a line containing \"end\" to\n\
728 indicate the end of the expression.\n\
730 EXPR may be preceded with /FMT, where FMT is a format letter\n\
731 but no count or size letter (see \"x\" command)."),
732 &compile_command_list
);
734 add_setshow_boolean_cmd ("compile", class_maintenance
, &compile_debug
, _("\
735 Set compile command debugging."), _("\
736 Show compile command debugging."), _("\
737 When on, compile command debugging is enabled."),
738 NULL
, show_compile_debug
,
739 &setdebuglist
, &showdebuglist
);
741 add_setshow_string_cmd ("compile-args", class_support
,
743 _("Set compile command GCC command-line arguments"),
744 _("Show compile command GCC command-line arguments"),
746 Use options like -I (include file directory) or ABI settings.\n\
747 String quoting is parsed like in shell, for example:\n\
748 -mno-align-double \"-I/dir with a space/include\""),
749 set_compile_args
, show_compile_args
, &setlist
, &showlist
);
751 /* Override flags possibly coming from DW_AT_producer. */
752 compile_args
= xstrdup ("-O0 -gdwarf-4"
753 /* We use -fPIE Otherwise GDB would need to reserve space large enough for
754 any object file in the inferior in advance to get the final address when
755 to link the object file to and additionally the default system linker
756 script would need to be modified so that one can specify there the
757 absolute target address.
758 -fPIC is not used at is would require from GDB to generate .got. */
760 /* We want warnings, except for some commonly happening for GDB commands. */
762 " -Wno-implicit-function-declaration"
763 " -Wno-unused-but-set-variable"
764 " -Wno-unused-variable"
765 /* Override CU's possible -fstack-protector-strong. */
766 " -fno-stack-protector"
768 set_compile_args (compile_args
, 0, NULL
);
770 add_setshow_optional_filename_cmd ("compile-gcc", class_support
,
772 _("Set compile command "
773 "GCC driver filename"),
774 _("Show compile command "
775 "GCC driver filename"),
777 It should be absolute filename of the gcc executable.\n\
778 If empty the default target triplet will be searched in $PATH."),
779 NULL
, show_compile_gcc
, &setlist
,
781 compile_gcc
= xstrdup ("");