1 /* General Compile and inject code
3 Copyright (C) 2014-2018 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"
44 #include "common/pathstuff.h"
48 /* Initial filename for temporary files. */
50 #define TMP_PREFIX "/tmp/gdbobj-"
52 /* Hold "compile" commands. */
54 static struct cmd_list_element
*compile_command_list
;
56 /* Debug flag for "compile" commands. */
60 /* Object of this type are stored in the compiler's symbol_err_map. */
66 const struct symbol
*sym
;
68 /* The error message to emit. This is malloc'd and owned by the
74 /* Hash a type_map_instance. */
77 hash_type_map_instance (const void *p
)
79 const struct type_map_instance
*inst
= (const struct type_map_instance
*) p
;
81 return htab_hash_pointer (inst
->type
);
84 /* Check two type_map_instance objects for equality. */
87 eq_type_map_instance (const void *a
, const void *b
)
89 const struct type_map_instance
*insta
= (const struct type_map_instance
*) a
;
90 const struct type_map_instance
*instb
= (const struct type_map_instance
*) b
;
92 return insta
->type
== instb
->type
;
95 /* Hash function for struct symbol_error. */
98 hash_symbol_error (const void *a
)
100 const struct symbol_error
*se
= (const struct symbol_error
*) a
;
102 return htab_hash_pointer (se
->sym
);
105 /* Equality function for struct symbol_error. */
108 eq_symbol_error (const void *a
, const void *b
)
110 const struct symbol_error
*sea
= (const struct symbol_error
*) a
;
111 const struct symbol_error
*seb
= (const struct symbol_error
*) b
;
113 return sea
->sym
== seb
->sym
;
116 /* Deletion function for struct symbol_error. */
119 del_symbol_error (void *a
)
121 struct symbol_error
*se
= (struct symbol_error
*) a
;
127 /* Constructor for compile_instance. */
129 compile_instance::compile_instance (struct gcc_base_context
*gcc_fe
,
131 : m_gcc_fe (gcc_fe
), m_gcc_target_options (options
),
132 m_type_map (htab_create_alloc (10, hash_type_map_instance
,
133 eq_type_map_instance
,
134 xfree
, xcalloc
, xfree
)),
135 m_symbol_err_map (htab_create_alloc (10, hash_symbol_error
,
136 eq_symbol_error
, del_symbol_error
,
141 /* See compile-internal.h. */
144 compile_instance::get_cached_type (struct type
*type
, gcc_type
&ret
) const
146 struct type_map_instance inst
, *found
;
149 found
= (struct type_map_instance
*) htab_find (m_type_map
.get (), &inst
);
152 ret
= found
->gcc_type_handle
;
159 /* See compile-internal.h. */
162 compile_instance::insert_type (struct type
*type
, gcc_type gcc_type
)
164 struct type_map_instance inst
, *add
;
168 inst
.gcc_type_handle
= gcc_type
;
169 slot
= htab_find_slot (m_type_map
.get (), &inst
, INSERT
);
171 add
= (struct type_map_instance
*) *slot
;
172 /* The type might have already been inserted in order to handle
174 if (add
!= NULL
&& add
->gcc_type_handle
!= gcc_type
)
175 error (_("Unexpected type id from GCC, check you use recent enough GCC."));
179 add
= XNEW (struct type_map_instance
);
185 /* See compile-internal.h. */
188 compile_instance::insert_symbol_error (const struct symbol
*sym
,
191 struct symbol_error e
;
195 slot
= htab_find_slot (m_symbol_err_map
.get (), &e
, INSERT
);
198 struct symbol_error
*e
= XNEW (struct symbol_error
);
201 e
->message
= xstrdup (text
);
206 /* See compile-internal.h. */
209 compile_instance::error_symbol_once (const struct symbol
*sym
)
211 struct symbol_error search
;
212 struct symbol_error
*err
;
214 if (m_symbol_err_map
== NULL
)
218 err
= (struct symbol_error
*) htab_find (m_symbol_err_map
.get (), &search
);
219 if (err
== NULL
|| err
->message
== NULL
)
222 gdb::unique_xmalloc_ptr
<char> message (err
->message
);
224 error (_("%s"), message
.get ());
227 /* Implement "show debug compile". */
230 show_compile_debug (struct ui_file
*file
, int from_tty
,
231 struct cmd_list_element
*c
, const char *value
)
233 fprintf_filtered (file
, _("Compile debugging is %s.\n"), value
);
238 /* Check *ARG for a "-raw" or "-r" argument. Return 0 if not seen.
239 Return 1 if seen and update *ARG. */
242 check_raw_argument (const char **arg
)
244 *arg
= skip_spaces (*arg
);
247 && (check_for_argument (arg
, "-raw", sizeof ("-raw") - 1)
248 || check_for_argument (arg
, "-r", sizeof ("-r") - 1)))
253 /* Handle the input from the 'compile file' command. The "compile
254 file" command is used to evaluate an expression contained in a file
255 that may contain calls to the GCC compiler. */
258 compile_file_command (const char *arg
, int from_tty
)
260 enum compile_i_scope_types scope
= COMPILE_I_SIMPLE_SCOPE
;
262 scoped_restore save_async
= make_scoped_restore (¤t_ui
->async
, 0);
264 /* Check the user did not just <enter> after command. */
266 error (_("You must provide a filename for this command."));
268 /* Check if a raw (-r|-raw) argument is provided. */
269 if (arg
!= NULL
&& check_raw_argument (&arg
))
271 scope
= COMPILE_I_RAW_SCOPE
;
272 arg
= skip_spaces (arg
);
275 /* After processing arguments, check there is a filename at the end
278 error (_("You must provide a filename with the raw option set."));
281 error (_("Unknown argument specified."));
283 arg
= skip_spaces (arg
);
284 gdb::unique_xmalloc_ptr
<char> abspath
= gdb_abspath (arg
);
285 std::string buffer
= string_printf ("#include \"%s\"\n", abspath
.get ());
286 eval_compile_command (NULL
, buffer
.c_str (), scope
, NULL
);
289 /* Handle the input from the 'compile code' command. The
290 "compile code" command is used to evaluate an expression that may
291 contain calls to the GCC compiler. The language expected in this
292 compile command is the language currently set in GDB. */
295 compile_code_command (const char *arg
, int from_tty
)
297 enum compile_i_scope_types scope
= COMPILE_I_SIMPLE_SCOPE
;
299 scoped_restore save_async
= make_scoped_restore (¤t_ui
->async
, 0);
301 if (arg
!= NULL
&& check_raw_argument (&arg
))
303 scope
= COMPILE_I_RAW_SCOPE
;
304 arg
= skip_spaces (arg
);
307 arg
= skip_spaces (arg
);
309 if (arg
!= NULL
&& !check_for_argument (&arg
, "--", sizeof ("--") - 1))
312 error (_("Unknown argument specified."));
316 eval_compile_command (NULL
, arg
, scope
, NULL
);
319 counted_command_line l
= get_command_line (compile_control
, "");
321 l
->control_u
.compile
.scope
= scope
;
322 execute_control_command_untraced (l
.get ());
326 /* Callback for compile_print_command. */
329 compile_print_value (struct value
*val
, void *data_voidp
)
331 const struct format_data
*fmtp
= (const struct format_data
*) data_voidp
;
333 print_value (val
, fmtp
);
336 /* Handle the input from the 'compile print' command. The "compile
337 print" command is used to evaluate and print an expression that may
338 contain calls to the GCC compiler. The language expected in this
339 compile command is the language currently set in GDB. */
342 compile_print_command (const char *arg
, int from_tty
)
344 enum compile_i_scope_types scope
= COMPILE_I_PRINT_ADDRESS_SCOPE
;
345 struct format_data fmt
;
347 scoped_restore save_async
= make_scoped_restore (¤t_ui
->async
, 0);
349 /* Passing &FMT as SCOPE_DATA is safe as do_module_cleanup will not
350 touch the stale pointer if compile_object_run has already quit. */
351 print_command_parse_format (&arg
, "compile print", &fmt
);
354 eval_compile_command (NULL
, arg
, scope
, &fmt
);
357 counted_command_line l
= get_command_line (compile_control
, "");
359 l
->control_u
.compile
.scope
= scope
;
360 l
->control_u
.compile
.scope_data
= &fmt
;
361 execute_control_command_untraced (l
.get ());
365 /* A cleanup function to remove a directory and all its contents. */
370 const char *dir
= (const char *) arg
;
374 gdb_assert (startswith (dir
, TMP_PREFIX
));
375 zap
= concat ("rm -rf ", dir
, (char *) NULL
);
376 wstat
= system (zap
);
377 if (wstat
== -1 || !WIFEXITED (wstat
) || WEXITSTATUS (wstat
) != 0)
378 warning (_("Could not remove temporary directory %s"), dir
);
382 /* Return the name of the temporary directory to use for .o files, and
383 arrange for the directory to be removed at shutdown. */
386 get_compile_file_tempdir (void)
388 static char *tempdir_name
;
390 #define TEMPLATE TMP_PREFIX "XXXXXX"
391 char tname
[sizeof (TEMPLATE
)];
393 if (tempdir_name
!= NULL
)
396 strcpy (tname
, TEMPLATE
);
399 tempdir_name
= mkdtemp (tname
);
401 error (_("Command not supported on this host."));
403 if (tempdir_name
== NULL
)
404 perror_with_name (_("Could not make temporary directory"));
406 tempdir_name
= xstrdup (tempdir_name
);
407 make_final_cleanup (do_rmdir
, tempdir_name
);
411 /* Compute the names of source and object files to use. */
413 static compile_file_names
414 get_new_file_names ()
417 const char *dir
= get_compile_file_tempdir ();
421 return compile_file_names (string_printf ("%s%sout%d.c",
422 dir
, SLASH_STRING
, seq
),
423 string_printf ("%s%sout%d.o",
424 dir
, SLASH_STRING
, seq
));
427 /* Get the block and PC at which to evaluate an expression. */
429 static const struct block
*
430 get_expr_block_and_pc (CORE_ADDR
*pc
)
432 const struct block
*block
= get_selected_block (pc
);
436 struct symtab_and_line cursal
= get_current_source_symtab_and_line ();
439 block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (cursal
.symtab
),
442 *pc
= BLOCK_START (block
);
445 *pc
= BLOCK_START (block
);
450 /* Call buildargv (via gdb_argv), set its result for S into *ARGVP but
451 calculate also the number of parsed arguments into *ARGCP. If
452 buildargv has returned NULL then *ARGCP is set to zero. */
455 build_argc_argv (const char *s
, int *argcp
, char ***argvp
)
459 *argcp
= args
.count ();
460 *argvp
= args
.release ();
463 /* String for 'set compile-args' and 'show compile-args'. */
464 static char *compile_args
;
466 /* Parsed form of COMPILE_ARGS. COMPILE_ARGS_ARGV is NULL terminated. */
467 static int compile_args_argc
;
468 static char **compile_args_argv
;
470 /* Implement 'set compile-args'. */
473 set_compile_args (const char *args
, int from_tty
, struct cmd_list_element
*c
)
475 freeargv (compile_args_argv
);
476 build_argc_argv (compile_args
, &compile_args_argc
, &compile_args_argv
);
479 /* Implement 'show compile-args'. */
482 show_compile_args (struct ui_file
*file
, int from_tty
,
483 struct cmd_list_element
*c
, const char *value
)
485 fprintf_filtered (file
, _("Compile command command-line arguments "
490 /* Append ARGC and ARGV (as parsed by build_argc_argv) to *ARGCP and *ARGVP.
491 ARGCP+ARGVP can be zero+NULL and also ARGC+ARGV can be zero+NULL. */
494 append_args (int *argcp
, char ***argvp
, int argc
, char **argv
)
498 *argvp
= XRESIZEVEC (char *, *argvp
, (*argcp
+ argc
+ 1));
500 for (argi
= 0; argi
< argc
; argi
++)
501 (*argvp
)[(*argcp
)++] = xstrdup (argv
[argi
]);
502 (*argvp
)[(*argcp
)] = NULL
;
505 /* String for 'set compile-gcc' and 'show compile-gcc'. */
506 static char *compile_gcc
;
508 /* Implement 'show compile-gcc'. */
511 show_compile_gcc (struct ui_file
*file
, int from_tty
,
512 struct cmd_list_element
*c
, const char *value
)
514 fprintf_filtered (file
, _("Compile command GCC driver filename is \"%s\".\n"),
518 /* Return DW_AT_producer parsed for get_selected_frame () (if any).
519 Return NULL otherwise.
521 GCC already filters its command-line arguments only for the suitable ones to
522 put into DW_AT_producer - see GCC function gen_producer_string. */
525 get_selected_pc_producer_options (void)
527 CORE_ADDR pc
= get_frame_pc (get_selected_frame (NULL
));
528 struct compunit_symtab
*symtab
= find_pc_compunit_symtab (pc
);
531 if (symtab
== NULL
|| symtab
->producer
== NULL
532 || !startswith (symtab
->producer
, "GNU "))
535 cs
= symtab
->producer
;
536 while (*cs
!= 0 && *cs
!= '-')
537 cs
= skip_spaces (skip_to_space (cs
));
543 /* Filter out unwanted options from *ARGCP and ARGV. */
546 filter_args (int *argcp
, char **argv
)
550 for (destv
= argv
; *argv
!= NULL
; argv
++)
552 /* -fpreprocessed may get in commonly from ccache. */
553 if (strcmp (*argv
, "-fpreprocessed") == 0)
564 /* Produce final vector of GCC compilation options.
566 The first element of the combined argument vector are arguments
567 relating to the target size ("-m64", "-m32" etc.). These are
568 sourced from the inferior's architecture.
570 The second element of the combined argument vector are arguments
571 stored in the inferior DW_AT_producer section. If these are stored
572 in the inferior (there is no guarantee that they are), they are
575 The third element of the combined argument vector are argument
576 supplied by the language implementation provided by
577 compile-{lang}-support. These contain language specific arguments.
579 The final element of the combined argument vector are arguments
580 supplied by the "set compile-args" command. These are always
581 appended last so as to override any of the arguments automatically
585 get_args (const compile_instance
*compiler
, struct gdbarch
*gdbarch
,
586 int *argcp
, char ***argvp
)
588 const char *cs_producer_options
;
590 char **argv_compiler
;
592 build_argc_argv (gdbarch_gcc_target_options (gdbarch
),
595 cs_producer_options
= get_selected_pc_producer_options ();
596 if (cs_producer_options
!= NULL
)
599 char **argv_producer
;
601 build_argc_argv (cs_producer_options
, &argc_producer
, &argv_producer
);
602 filter_args (&argc_producer
, argv_producer
);
603 append_args (argcp
, argvp
, argc_producer
, argv_producer
);
604 freeargv (argv_producer
);
607 build_argc_argv (compiler
->gcc_target_options ().c_str (),
608 &argc_compiler
, &argv_compiler
);
609 append_args (argcp
, argvp
, argc_compiler
, argv_compiler
);
610 freeargv (argv_compiler
);
612 append_args (argcp
, argvp
, compile_args_argc
, compile_args_argv
);
615 /* A helper function suitable for use as the "print_callback" in the
619 print_callback (void *ignore
, const char *message
)
621 fputs_filtered (message
, gdb_stderr
);
624 /* Process the compilation request. On success it returns the object
625 and source file names. On an error condition, error () is
628 static compile_file_names
629 compile_to_object (struct command_line
*cmd
, const char *cmd_string
,
630 enum compile_i_scope_types scope
)
632 const struct block
*expr_block
;
633 CORE_ADDR trash_pc
, expr_pc
;
637 struct gdbarch
*gdbarch
= get_current_arch ();
638 std::string triplet_rx
;
640 if (!target_has_execution
)
641 error (_("The program must be running for the compile command to "\
644 expr_block
= get_expr_block_and_pc (&trash_pc
);
645 expr_pc
= get_frame_address_in_block (get_selected_frame (NULL
));
647 /* Set up instance and context for the compiler. */
648 if (current_language
->la_get_compile_instance
== NULL
)
649 error (_("No compiler support for language %s."),
650 current_language
->la_name
);
652 compile_instance
*compiler_instance
653 = current_language
->la_get_compile_instance ();
654 std::unique_ptr
<compile_instance
> compiler (compiler_instance
);
655 compiler
->set_print_callback (print_callback
, NULL
);
656 compiler
->set_scope (scope
);
657 compiler
->set_block (expr_block
);
659 /* From the provided expression, build a scope to pass to the
662 string_file input_buf
;
667 struct command_line
*iter
;
669 for (iter
= cmd
->body_list_0
.get (); iter
; iter
= iter
->next
)
671 input_buf
.puts (iter
->line
);
672 input_buf
.puts ("\n");
675 input
= input_buf
.c_str ();
677 else if (cmd_string
!= NULL
)
680 error (_("Neither a simple expression, or a multi-line specified."));
683 = current_language
->la_compute_program (compiler
.get (), input
, gdbarch
,
684 expr_block
, expr_pc
);
686 fprintf_unfiltered (gdb_stdlog
, "debug output:\n\n%s", code
.c_str ());
688 compiler
->set_verbose (compile_debug
);
690 if (compile_gcc
[0] != 0)
692 if (compiler
->version () < GCC_FE_VERSION_1
)
693 error (_("Command 'set compile-gcc' requires GCC version 6 or higher "
694 "(libcc1 interface version 1 or higher)"));
696 compiler
->set_driver_filename (compile_gcc
);
700 const char *os_rx
= osabi_triplet_regexp (gdbarch_osabi (gdbarch
));
701 const char *arch_rx
= gdbarch_gnu_triplet_regexp (gdbarch
);
703 /* Allow triplets with or without vendor set. */
704 triplet_rx
= std::string (arch_rx
) + "(-[^-]*)?-" + os_rx
;
705 compiler
->set_triplet_regexp (triplet_rx
.c_str ());
708 /* Set compiler command-line arguments. */
709 get_args (compiler
.get (), gdbarch
, &argc
, &argv
);
710 gdb_argv
argv_holder (argv
);
712 gdb::unique_xmalloc_ptr
<char> error_message
;
713 error_message
.reset (compiler
->set_arguments (argc
, argv
,
714 triplet_rx
.c_str ()));
716 if (error_message
!= NULL
)
717 error ("%s", error_message
.get ());
723 fprintf_unfiltered (gdb_stdlog
, "Passing %d compiler options:\n", argc
);
724 for (argi
= 0; argi
< argc
; argi
++)
725 fprintf_unfiltered (gdb_stdlog
, "Compiler option %d: <%s>\n",
729 compile_file_names fnames
= get_new_file_names ();
731 gdb::optional
<gdb::unlinker
> source_remover
;
734 gdb_file_up src
= gdb_fopen_cloexec (fnames
.source_file (), "w");
736 perror_with_name (_("Could not open source file for writing"));
738 source_remover
.emplace (fnames
.source_file ());
740 if (fputs (code
.c_str (), src
.get ()) == EOF
)
741 perror_with_name (_("Could not write to source file"));
745 fprintf_unfiltered (gdb_stdlog
, "source file produced: %s\n\n",
746 fnames
.source_file ());
748 /* Call the compiler and start the compilation process. */
749 compiler
->set_source_file (fnames
.source_file ());
750 ok
= compiler
->compile (fnames
.object_file (), compile_debug
);
752 error (_("Compilation failed."));
755 fprintf_unfiltered (gdb_stdlog
, "object file produced: %s\n\n",
756 fnames
.object_file ());
758 /* Keep the source file. */
759 source_remover
->keep ();
763 /* The "compile" prefix command. */
766 compile_command (const char *args
, int from_tty
)
768 /* If a sub-command is not specified to the compile prefix command,
769 assume it is a direct code compilation. */
770 compile_code_command (args
, from_tty
);
776 eval_compile_command (struct command_line
*cmd
, const char *cmd_string
,
777 enum compile_i_scope_types scope
, void *scope_data
)
779 struct compile_module
*compile_module
;
781 compile_file_names fnames
= compile_to_object (cmd
, cmd_string
, scope
);
783 gdb::unlinker
object_remover (fnames
.object_file ());
784 gdb::unlinker
source_remover (fnames
.source_file ());
786 compile_module
= compile_object_load (fnames
, scope
, scope_data
);
787 if (compile_module
== NULL
)
789 gdb_assert (scope
== COMPILE_I_PRINT_ADDRESS_SCOPE
);
790 eval_compile_command (cmd
, cmd_string
,
791 COMPILE_I_PRINT_VALUE_SCOPE
, scope_data
);
795 /* Keep the files. */
796 source_remover
.keep ();
797 object_remover
.keep ();
799 compile_object_run (compile_module
);
802 /* See compile/compile-internal.h. */
805 compile_register_name_mangled (struct gdbarch
*gdbarch
, int regnum
)
807 const char *regname
= gdbarch_register_name (gdbarch
, regnum
);
809 return string_printf ("__%s", regname
);
812 /* See compile/compile-internal.h. */
815 compile_register_name_demangle (struct gdbarch
*gdbarch
,
820 if (regname
[0] != '_' || regname
[1] != '_')
821 error (_("Invalid register name \"%s\"."), regname
);
824 for (regnum
= 0; regnum
< gdbarch_num_regs (gdbarch
); regnum
++)
825 if (strcmp (regname
, gdbarch_register_name (gdbarch
, regnum
)) == 0)
828 error (_("Cannot find gdbarch register \"%s\"."), regname
);
831 /* Forwards to the plug-in. */
833 #define FORWARD(OP,...) (m_gcc_fe->ops->OP (m_gcc_fe, ##__VA_ARGS__))
835 /* See compile-internal.h. */
838 compile_instance::set_print_callback
839 (void (*print_function
) (void *, const char *), void *datum
)
841 FORWARD (set_print_callback
, print_function
, datum
);
844 /* See compile-internal.h. */
847 compile_instance::version () const
849 return m_gcc_fe
->ops
->version
;
852 /* See compile-internal.h. */
855 compile_instance::set_verbose (int level
)
857 if (version () >= GCC_FE_VERSION_1
)
858 FORWARD (set_verbose
, level
);
861 /* See compile-internal.h. */
864 compile_instance::set_driver_filename (const char *filename
)
866 if (version () >= GCC_FE_VERSION_1
)
867 FORWARD (set_driver_filename
, filename
);
870 /* See compile-internal.h. */
873 compile_instance::set_triplet_regexp (const char *regexp
)
875 if (version () >= GCC_FE_VERSION_1
)
876 FORWARD (set_triplet_regexp
, regexp
);
879 /* See compile-internal.h. */
882 compile_instance::set_arguments (int argc
, char **argv
, const char *regexp
)
884 if (version () >= GCC_FE_VERSION_1
)
885 return FORWARD (set_arguments
, argc
, argv
);
887 return FORWARD (set_arguments_v0
, regexp
, argc
, argv
);
890 /* See compile-internal.h. */
893 compile_instance::set_source_file (const char *filename
)
895 FORWARD (set_source_file
, filename
);
898 /* See compile-internal.h. */
901 compile_instance::compile (const char *filename
, int verbose_level
)
903 if (version () >= GCC_FE_VERSION_1
)
904 return FORWARD (compile
, filename
);
906 return FORWARD (compile_v0
, filename
, verbose_level
);
913 _initialize_compile (void)
915 struct cmd_list_element
*c
= NULL
;
917 add_prefix_cmd ("compile", class_obscure
, compile_command
,
919 Command to compile source code and inject it into the inferior."),
920 &compile_command_list
, "compile ", 1, &cmdlist
);
921 add_com_alias ("expression", "compile", class_obscure
, 0);
923 add_cmd ("code", class_obscure
, compile_code_command
,
925 Compile, inject, and execute code.\n\
927 Usage: compile code [-r|-raw] [--] [CODE]\n\
928 -r|-raw: Suppress automatic 'void _gdb_expr () { CODE }' wrapping.\n\
929 --: Do not parse any options beyond this delimiter. All text to the\n\
930 right will be treated as source code.\n\
932 The source code may be specified as a simple one line expression, e.g.:\n\
934 compile code printf(\"Hello world\\n\");\n\
936 Alternatively, you can type a multiline expression by invoking\n\
937 this command with no argument. GDB will then prompt for the\n\
938 expression interactively; type a line containing \"end\" to\n\
939 indicate the end of the expression."),
940 &compile_command_list
);
942 c
= add_cmd ("file", class_obscure
, compile_file_command
,
944 Evaluate a file containing source code.\n\
946 Usage: compile file [-r|-raw] [filename]\n\
947 -r|-raw: Suppress automatic 'void _gdb_expr () { CODE }' wrapping."),
948 &compile_command_list
);
949 set_cmd_completer (c
, filename_completer
);
951 add_cmd ("print", class_obscure
, compile_print_command
,
953 Evaluate EXPR by using the compiler and print result.\n\
955 Usage: compile print[/FMT] [EXPR]\n\
957 The expression may be specified on the same line as the command, e.g.:\n\
961 Alternatively, you can type a multiline expression by invoking\n\
962 this command with no argument. GDB will then prompt for the\n\
963 expression interactively; type a line containing \"end\" to\n\
964 indicate the end of the expression.\n\
966 EXPR may be preceded with /FMT, where FMT is a format letter\n\
967 but no count or size letter (see \"x\" command)."),
968 &compile_command_list
);
970 add_setshow_boolean_cmd ("compile", class_maintenance
, &compile_debug
, _("\
971 Set compile command debugging."), _("\
972 Show compile command debugging."), _("\
973 When on, compile command debugging is enabled."),
974 NULL
, show_compile_debug
,
975 &setdebuglist
, &showdebuglist
);
977 add_setshow_string_cmd ("compile-args", class_support
,
979 _("Set compile command GCC command-line arguments"),
980 _("Show compile command GCC command-line arguments"),
982 Use options like -I (include file directory) or ABI settings.\n\
983 String quoting is parsed like in shell, for example:\n\
984 -mno-align-double \"-I/dir with a space/include\""),
985 set_compile_args
, show_compile_args
, &setlist
, &showlist
);
987 /* Override flags possibly coming from DW_AT_producer. */
988 compile_args
= xstrdup ("-O0 -gdwarf-4"
989 /* We use -fPIE Otherwise GDB would need to reserve space large enough for
990 any object file in the inferior in advance to get the final address when
991 to link the object file to and additionally the default system linker
992 script would need to be modified so that one can specify there the
993 absolute target address.
994 -fPIC is not used at is would require from GDB to generate .got. */
996 /* We want warnings, except for some commonly happening for GDB commands. */
998 " -Wno-implicit-function-declaration"
999 " -Wno-unused-but-set-variable"
1000 " -Wno-unused-variable"
1001 /* Override CU's possible -fstack-protector-strong. */
1002 " -fno-stack-protector"
1004 set_compile_args (compile_args
, 0, NULL
);
1006 add_setshow_optional_filename_cmd ("compile-gcc", class_support
,
1008 _("Set compile command "
1009 "GCC driver filename"),
1010 _("Show compile command "
1011 "GCC driver filename"),
1013 It should be absolute filename of the gcc executable.\n\
1014 If empty the default target triplet will be searched in $PATH."),
1015 NULL
, show_compile_gcc
, &setlist
,
1017 compile_gcc
= xstrdup ("");