Fix jerry_create_error_from_value

Fixed the release issue, added some test cases for the function

JerryScript-DCO-1.0-Signed-off-by: Istvan Miklos imiklos2@inf.u-szeged.hu

Author: Istvan Miklos

jerry-core/api/jerry.c

@@ -954,20 +954,19 @@ jerry_create_error_from_value (jerry_value_t value, /**< api value */
      * binary size rather than performance. */
     if (!jerry_value_is_abort (value))
     {
-      return (release ? value : jerry_acquire_value (value));
+      return release ? value : jerry_acquire_value (value);
     }
 
     value = jerry_get_value_from_error (value, release);
     release = true;
   }
 
-  jerry_value_t ret_val = ecma_create_error_reference (value, true);
-  if (release)
+  if (!release)
   {
-    jerry_release_value (value);
+    value = ecma_copy_value (value);
   }
 
-  return ret_val;
+  return ecma_create_error_reference (value, true);
 } /* jerry_create_error_from_value */
 
 /**

tests/unit-core/test-api-set-and-clear-error-flag.c

@@ -31,6 +31,82 @@ main (void)
 
   JERRY_ASSERT (obj_val != err_val);
   jerry_release_value (err_val);
+  jerry_release_value (obj_val);
+
+  jerry_value_t str = jerry_create_string ((jerry_char_t *) "Pterodactylus");
+  jerry_value_t error = jerry_create_error_from_value (str, true);
+  str = jerry_get_value_from_error (error, true);
+  jerry_size_t str_size = jerry_get_string_size (str);
+  jerry_char_t str_buff[str_size];
+  jerry_string_to_utf8_char_buffer (str, str_buff, str_size);
+  str_buff[str_size] = '\0';
+  JERRY_ASSERT (!strcmp ("Pterodactylus", (char *) str_buff));
+  jerry_release_value (str);
+
+  str = jerry_create_string ((jerry_char_t *) "Pterodactylus");
+  error = jerry_create_error_from_value (str, false);
+  jerry_release_value (str);
+  str = jerry_get_value_from_error (error, true);
+  str_size = jerry_get_string_size (str);
+  jerry_string_to_utf8_char_buffer (str, str_buff, str_size);
+  str_buff[str_size] = '\0';
+  JERRY_ASSERT (!strcmp ("Pterodactylus", (char *) str_buff));
+  jerry_release_value (str);
+
+  double test_num = 3.1415926;
+  jerry_value_t num = jerry_create_number (test_num);
+  jerry_value_t num2 = jerry_create_error_from_value (num, false);
+  JERRY_ASSERT (jerry_value_is_error (num2));
+  jerry_release_value (num);
+  num2 = jerry_get_value_from_error (num2, true);
+  JERRY_ASSERT (jerry_get_number_value (num2) == test_num);
+  jerry_release_value (num2);
+
+  num = jerry_create_number (test_num);
+  num2 = jerry_create_error_from_value (num, true);
+  JERRY_ASSERT (jerry_value_is_error (num2));
+  num2 = jerry_get_value_from_error (num2, true);
+  JERRY_ASSERT (jerry_get_number_value (num2) == test_num);
+  jerry_release_value (num2);
+
+  num = jerry_create_number (test_num);
+  num2 = jerry_create_error_from_value (num, false);
+  JERRY_ASSERT (jerry_value_is_error (num2));
+  jerry_release_value (num);
+  jerry_value_t num3 = jerry_create_error_from_value (num2, false);
+  JERRY_ASSERT (jerry_value_is_error (num3));
+  jerry_release_value (num2);
+  num2 = jerry_get_value_from_error (num3, true);
+  JERRY_ASSERT (jerry_get_number_value (num2) == test_num);
+  jerry_release_value (num2);
+
+  num = jerry_create_number (test_num);
+  num2 = jerry_create_error_from_value (num, true);
+  JERRY_ASSERT (jerry_value_is_error (num2));
+  num3 = jerry_create_error_from_value (num2, true);
+  JERRY_ASSERT (jerry_value_is_error (num3));
+  num2 = jerry_get_value_from_error (num3, true);
+  JERRY_ASSERT (jerry_get_number_value (num2) == test_num);
+  jerry_release_value (num2);
+
+  num = jerry_create_number (test_num);
+  jerry_value_set_abort_flag (&num);
+  JERRY_ASSERT (jerry_value_is_abort (num));
+  num2 = jerry_create_error_from_value (num, true);
+  JERRY_ASSERT (jerry_value_is_error (num2));
+  num = jerry_get_value_from_error (num2, true);
+  JERRY_ASSERT (jerry_get_number_value (num) == test_num);
+  jerry_release_value (num);
+
+  num = jerry_create_number (test_num);
+  jerry_value_set_abort_flag (&num);
+  JERRY_ASSERT (jerry_value_is_abort (num));
+  num2 = jerry_create_error_from_value (num, false);
+  jerry_release_value (num);
+  JERRY_ASSERT (jerry_value_is_error (num2));
+  num = jerry_get_value_from_error (num2, true);
+  JERRY_ASSERT (jerry_get_number_value (num) == test_num);
+  jerry_release_value (num);
 
   jerry_value_t value = jerry_create_number (42);
   value = jerry_get_value_from_error (value, true);
@@ -42,7 +118,7 @@ main (void)
   jerry_release_value (value2);
 
   value = jerry_create_number (42);
-  jerry_value_t error = jerry_create_error_from_value (value, true);
+  error = jerry_create_error_from_value (value, true);
   error = jerry_create_error_from_value (error, true);
   jerry_release_value (error);