This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[RFA PATCH 2/3 V4] Add "class" option for pascal compiler
- From: "Pierre Muller" <pierre dot muller at ics-cnrs dot unistra dot fr>
- To: "'Pedro Alves'" <palves at redhat dot com>, "'Doug Evans'" <dje at google dot com>
- Cc: "'gdb-patches'" <gdb-patches at sourceware dot org>
- Date: Thu, 5 Feb 2015 00:36:59 +0100
- Subject: [RFA PATCH 2/3 V4] Add "class" option for pascal compiler
- Authentication-results: sourceware.org; auth=none
- References: <54ae4586 dot 01e3440a dot 7b06 dot fffff844SMTPIN_ADDED_BROKEN at mx dot google dot com> <54AE605A dot 8050308 at redhat dot com> <54ae7f9f dot c323460a dot 36ed dot ffffff30SMTPIN_ADDED_BROKEN at mx dot google dot com> <54AE8914 dot 4010507 at redhat dot com> <54ae911b dot 85e3440a dot 1d96 dot 5ffdSMTPIN_ADDED_BROKEN at mx dot google dot com> <54AFB2E5 dot 5080307 at redhat dot com> <54afff61 dot 6790420a dot 0fa7 dot 4f63SMTPIN_ADDED_BROKEN at mx dot google dot com> <CADPb22TZH+Ab6xLi_pKspY1xeh76Ms7G5r2r_KcMEHn2pWd2tw at mail dot gmail dot com> <54b07891 dot 01b3c20a dot 2a7b dot ffff9f96SMTPIN_ADDED_BROKEN at mx dot google dot com> <CADPb22TC0Ftf59jM388FSdF7L8jz-Oav3PYYrq5N8KYVU8Z_uQ at mail dot gmail dot com> <54b6858f dot a287440a dot 5b61 dot ffff9ef0SMTPIN_ADDED_BROKEN at mx dot google dot com> <54C0F1E5 dot 3000207 at redhat dot com> <002901d036a1$5c2e30f0$148a92d0$ at muller@ics-cnrs.unistra.fr> <54C22635 dot 3020300 at redhat dot com>
This part of the patch series is unchanged.
It adds class option to pascal compiler
which adds the required command line option to
accept pascal class types.
gdb/testsuite/ChangeLog entry:
2015-02-04 Pierre Muller <muller@sourceware.org>
* lib/pascal.exp (gpc_compile): Add new option "class".
(fpc_compile): Likewise.
---
gdb/testsuite/lib/pascal.exp | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/gdb/testsuite/lib/pascal.exp b/gdb/testsuite/lib/pascal.exp
index 994e3da..0a2aa75 100644
--- a/gdb/testsuite/lib/pascal.exp
+++ b/gdb/testsuite/lib/pascal.exp
@@ -91,6 +91,13 @@ proc gpc_compile {source dest type options} {
append add_flags " -g"
}
}
+ if { $i == "class" } {
+ if [board_info $dest exists pascal_class_flags] {
+ append add_flags " [board_info $dest pascal_class_flags]"
+ } else {
+ append add_flags " --extended-syntax"
+ }
+ }
}
set result [remote_exec host $gpc_compiler "-o $dest --automake $add_flags $source"]
@@ -120,6 +127,13 @@ proc fpc_compile {source dest type options} {
append add_flags " -g"
}
}
+ if { $i == "class" } {
+ if [board_info $dest exists pascal_class_flags] {
+ append add_flags " [board_info $dest pascal_class_flags]"
+ } else {
+ append add_flags " -Mobjfpc"
+ }
+ }
}
set result [remote_exec host $fpc_compiler "-o$dest $add_flags $source"]
--
2.1.4