Пример #1
0
value camlidl_c2ml_libbfd_section_ptr(section_ptr * _c2, camlidl_ctx _ctx)
{
value _v1;
  _v1 = camlidl_alloc((sizeof(section_ptr) + sizeof(value) - 1) / sizeof(value), Abstract_tag);
  *((section_ptr *) Bp_val(_v1)) = *_c2;
  return _v1;
}
Пример #2
0
value camlidl_c2ml_shape_internal_ptr(internal_ptr * _c2, camlidl_ctx _ctx)
{
value _v1;
  _v1 = camlidl_alloc((sizeof(internal_ptr) + sizeof(value) - 1) / sizeof(value), Abstract_tag);
  *((internal_ptr *) Bp_val(_v1)) = *_c2;
  return _v1;
}
Пример #3
0
value camlidl_c2ml_libbfd_bfdp(bfdp * _c2, camlidl_ctx _ctx)
{
value _v1;
  _v1 = camlidl_alloc((sizeof(bfdp) + sizeof(value) - 1) / sizeof(value), Abstract_tag);
  *((bfdp *) Bp_val(_v1)) = *_c2;
  return _v1;
}