lib/c++/orb.cc

   1 #include <System.h>
   2
   3 namespace System {
   4 namespace RunTime {
   5         using ::System::Exceptions::Std;
   6
   7         // This function could be made to do a binary search if we can
   8         // manage to somehow sort the IFaceTables...
   9
  10         uintptr_t downcast(::System::_i_Object *obj,
  11                            const unsigned long *new_guid)
  12         {
  13                 if (!obj)
  14                         return 0;
  15
  16                 void unsupported_long_size();
  17
  18                 if (sizeof(long) != 4 && sizeof(long) != 8)
  19                         unsupported_long_size();
  20
  21                 IFaceTable *tbl = obj->info->concrete_IFaceTable;
  22                 unsigned long new_guid_first = *new_guid;
  23
  24                 // This doesn't use guids_equal(), as that would eliminate the
  25                 // ability to cache the first word of new_guid.  The compiler
  26                 // *might* do it anyway, but this code was written before
  27                 // guids_equal existed, and I don't want to risk removing an
  28                 // optimization by changing it now without testing how GCC
  29                 // behaves.
  30
  31                 while (true) {
  32                         if (tbl->guid[0] == new_guid_first &&
  33                             tbl->guid[1] == new_guid[1] &&
  34                             (sizeof(long) == 8 ||
  35                              (tbl->guid[2] == new_guid[2] &&
  36                               tbl->guid[3] == new_guid[3])))
  37                                 break;
  38
  39                         tbl++;
  40                         if (__builtin_expect(!tbl->guid, 0))
  41                                 return 0;
  42                 }
  43
  44                 uintptr_t ptr = reinterpret_cast<uintptr_t>(obj);
  45
  46                 ptr += obj->info->concrete;
  47                 ptr += tbl->offset;
  48
  49                 return ptr;
  50         };
  51
  52
  53         namespace Priv {
  54                 ObjTable objtable;
  55
  56                 unsigned long get_pc()
  57                 {
  58                         return reinterpret_cast<unsigned long>(__builtin_return_address(0));
  59                 }
  60
  61                 void exception_to_array(::System::VStruct *ex, Array<uint8_t> *ar)
  62                 {
  63                         ar->ptr = reinterpret_cast<uint8_t *>(ex);
  64                         ar->count = ex->_infoptr->structlen;
  65                 }
  66
  67                 void handle_message(ParameterInfoBlock *pib)
  68                 {
  69                         Message *msg = reinterpret_cast<Message *>(pib->segments[0].ptr);
  70
  71                         switch (seg0->opcode) {
  72                                 case Segment0::InvokeMethod: {
  73                                         if (pib->segments[0].len < sizeof(InvokeMessage))
  74                                                 throw_idl(ShortMessage, 0, pib->segments[0].len,
  75                                                           sizeof(InvokeMessage));
  76
  77                                         ID obj = pib->objlist[0];
  78
  79
  80                                         break;
  81                                 }
  82
  83                                 default:
  84                                         throw_idl(InvalidOpcode, seg0->opcode);
  85                         }
  86                 }
  87         }
  88 }}
  89
  90 extern "C" handle_message(ParameterInfoaBlock *pib, Array<uint8_t> *ex_arr)
  91 {
  92         try {
  93                 ::System::RunTime::handle_message(pib);
  94         }
  95
  96         catch (::System::Exception *ex) {
  97                 exception_to_array(ex, ex_arr);
  98         }
  99
 100         catch (...) {
 101                 assertl(0, Assert::Always);
 102         }
 103 }