Commit | Line | Data |
---|---|---|
ed3ef339 DE |
1 | ;; Bootstrap the Scheme side of the gdb module. |
2 | ;; | |
3 | ;; Copyright (C) 2014 Free Software Foundation, Inc. | |
4 | ;; | |
5 | ;; This file is part of GDB. | |
6 | ;; | |
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. | |
11 | ;; | |
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. | |
16 | ;; | |
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/>. | |
19 | ||
20 | ;; This file is loaded with scm_c_primitive_load, which is ok, but files | |
21 | ;; loaded with it are not compiled. So we do very little here, and do | |
22 | ;; most of the initialization elsewhere. | |
23 | ||
d2929fdc DE |
24 | ;; guile-data-directory is provided by the C code. |
25 | (add-to-load-path (guile-data-directory)) | |
26 | (load-from-path "gdb.scm") | |
ed3ef339 DE |
27 | |
28 | ;; Now that the Scheme side support is loaded, initialize it. | |
29 | (let ((init-proc (@@ (gdb init) %initialize!))) | |
30 | (init-proc)) |