コード例 #1
0
ファイル: alloc.c プロジェクト: plesner/neutrino
value_t new_heap_pair(runtime_t *runtime, value_t e0, value_t e1) {
  TRY_DEF(result, new_heap_array(runtime, 2));
  set_array_at(result, 0, e0);
  set_array_at(result, 1, e1);
  TRY(ensure_frozen(runtime, result));
  return result;
}
コード例 #2
0
ファイル: method.c プロジェクト: tundra/neutrino
value_t plankton_set_operation_contents(value_t object, runtime_t *runtime,
    value_t contents) {
  BEGIN_UNPACK_PLANKTON(contents);
  UNPACK_PLANKTON_FIELD(snInDomain(vdInteger), type);
  UNPACK_PLANKTON_FIELD(snNoCheck, value);
  set_operation_type(object, get_integer_value(type_value));
  set_operation_value(object, value_value);
  return ensure_frozen(runtime, object);
}
コード例 #3
0
ファイル: alloc.c プロジェクト: plesner/neutrino
value_t new_heap_triple(runtime_t *runtime, value_t e0, value_t e1,
    value_t e2) {
  TRY_DEF(result, new_heap_array(runtime, 3));
  set_array_at(result, 0, e0);
  set_array_at(result, 1, e1);
  set_array_at(result, 2, e2);
  TRY(ensure_frozen(runtime, result));
  return result;
}
コード例 #4
0
ファイル: method.c プロジェクト: tundra/neutrino
value_t ensure_call_tags_owned_values_frozen(runtime_t *runtime, value_t self) {
  TRY(ensure_frozen(runtime, get_call_tags_entries(self)));
  return success();
}
コード例 #5
0
ファイル: method.c プロジェクト: tundra/neutrino
value_t ensure_signature_owned_values_frozen(runtime_t *runtime, value_t self) {
  return ensure_frozen(runtime, get_signature_tags(self));
}
コード例 #6
0
ファイル: method.c プロジェクト: tundra/neutrino
value_t ensure_methodspace_owned_values_frozen(runtime_t *runtime, value_t self) {
  TRY(ensure_id_hash_map_frozen(runtime, get_methodspace_inheritance(self),
      mfFreezeValues));
  TRY(ensure_frozen(runtime, get_methodspace_methods(self)));
  return success();
}
コード例 #7
0
ファイル: method.c プロジェクト: tundra/neutrino
value_t ensure_signature_map_owned_values_frozen(runtime_t *runtime, value_t self) {
  TRY(ensure_frozen(runtime, get_signature_map_entries(self)));
  return success();
}
コード例 #8
0
ファイル: alloc.c プロジェクト: plesner/neutrino
// Post-processes an allocation result appropriately based on the given set of
// allocation flags.
static value_t post_process_result(runtime_t *runtime, value_t result,
    alloc_flags_t flags) {
  if (flags == afFreeze)
    TRY(ensure_frozen(runtime, result));
  return success();
}