1 /* Internals of libgccjit: implementation of gcc_jit_result
2 Copyright (C) 2013-2015 Free Software Foundation, Inc.
3 Contributed by David Malcolm <dmalcolm@redhat.com>.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GCC is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
23 #include "coretypes.h"
25 #include "jit-common.h"
26 #include "jit-logging.h"
27 #include "jit-result.h"
28 #include "jit-tempdir.h"
33 /* Constructor for gcc::jit::result. */
36 result(logger
*logger
, void *dso_handle
, tempdir
*tempdir_
) :
38 m_dso_handle (dso_handle
),
41 JIT_LOG_SCOPE (get_logger ());
44 /* gcc::jit::result's destructor.
46 Called implicitly by gcc_jit_result_release. */
50 JIT_LOG_SCOPE (get_logger ());
52 dlclose (m_dso_handle
);
54 /* Responsibility for cleaning up the tempdir (including "fake.so" within
55 the filesystem) might have been handed to us by the playback::context,
56 so that the cleanup can be delayed (see PR jit/64206).
58 If so, clean it up now. */
62 /* Attempt to locate the given function by name within the
63 playback::result, using dlsym.
65 Implements the post-error-checking part of
66 gcc_jit_result_get_code. */
70 get_code (const char *funcname
)
72 JIT_LOG_SCOPE (get_logger ());
77 /* Clear any existing error. */
80 code
= dlsym (m_dso_handle
, funcname
);
82 if ((error
= dlerror()) != NULL
) {
83 fprintf(stderr
, "%s\n", error
);
89 /* Attempt to locate the given global by name within the
90 playback::result, using dlsym.
92 Implements the post-error-checking part of
93 gcc_jit_result_get_global. */
97 get_global (const char *name
)
99 JIT_LOG_SCOPE (get_logger ());
104 /* Clear any existing error. */
107 global
= dlsym (m_dso_handle
, name
);
109 if ((error
= dlerror()) != NULL
) {
110 fprintf(stderr
, "%s\n", error
);
116 } // namespace gcc::jit