gcc/jit/jit-result.c

   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>.
   4
   5 This file is part of GCC.
   6
   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)
  10 any later version.
  11
  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.
  16
  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/>.  */
  20
  21 #include "config.h"
  22 #include "system.h"
  23 #include "coretypes.h"
  24
  25 #include "jit-common.h"
  26 #include "jit-logging.h"
  27 #include "jit-result.h"
  28
  29 namespace gcc {
  30 namespace jit {
  31
  32 /* Constructor for gcc::jit::result.  */
  33
  34 result::
  35 result(logger *logger, void *dso_handle) :
  36   log_user (logger),
  37   m_dso_handle (dso_handle)
  38 {
  39   JIT_LOG_SCOPE (get_logger ());
  40 }
  41
  42 /* gcc::jit::result's destructor.
  43
  44    Called implicitly by gcc_jit_result_release.  */
  45
  46 result::~result()
  47 {
  48   JIT_LOG_SCOPE (get_logger ());
  49
  50   dlclose (m_dso_handle);
  51 }
  52
  53 /* Attempt to locate the given function by name within the
  54    playback::result, using dlsym.
  55
  56    Implements the post-error-checking part of
  57    gcc_jit_result_get_code.  */
  58
  59 void *
  60 result::
  61 get_code (const char *funcname)
  62 {
  63   JIT_LOG_SCOPE (get_logger ());
  64
  65   void *code;
  66   const char *error;
  67
  68   /* Clear any existing error.  */
  69   dlerror ();
  70
  71   code = dlsym (m_dso_handle, funcname);
  72
  73   if ((error = dlerror()) != NULL)  {
  74     fprintf(stderr, "%s\n", error);
  75   }
  76
  77   return code;
  78 }
  79
  80 } // namespace gcc::jit
  81
  82 } // namespace gcc