// Copyright (c) 2023 Yuki Kimoto
// MIT License

#include "spvm_native.h"

static const char* FILE_NAME = "Native::Stack.c";

int32_t SPVM__Native__Stack__DESTROY(SPVM_ENV* env, SPVM_VALUE* stack) {
  
  int32_t error_id = 0;
  
  SPVM_OBJ* obj_self = stack[0].oval;
  
  int32_t no_free = env->no_free(env, stack, obj_self);
  
  if (!no_free) {
  
    SPVM_OBJ* obj_my_env = env->get_field_object_by_name(env, stack, obj_self, "env", &error_id, __func__, FILE_NAME, __LINE__);
    if (error_id) { return error_id; }
    
    SPVM_ENV* my_env = env->get_pointer(env, stack, obj_my_env);
    
    SPVM_VALUE* self = env->get_pointer(env, stack, obj_self);
    
    my_env->free_stack(my_env, self);
  }
  
  return 0;
}
