|
|
@@ -0,0 +1,1026 @@
|
|
|
+/*
|
|
|
+ * Copyright (C) 2019 Intel Corporation. All rights reserved.
|
|
|
+ *
|
|
|
+ * Licensed under the Apache License, Version 2.0 (the "License");
|
|
|
+ * you may not use this file except in compliance with the License.
|
|
|
+ * You may obtain a copy of the License at
|
|
|
+ *
|
|
|
+ * http://www.apache.org/licenses/LICENSE-2.0
|
|
|
+ *
|
|
|
+ * Unless required by applicable law or agreed to in writing, software
|
|
|
+ * distributed under the License is distributed on an "AS IS" BASIS,
|
|
|
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
|
+ * See the License for the specific language governing permissions and
|
|
|
+ * limitations under the License.
|
|
|
+ */
|
|
|
+
|
|
|
+#include "wasm_native.h"
|
|
|
+#include "wasm_export.h"
|
|
|
+#include "wasm_log.h"
|
|
|
+#include "wasm_platform_log.h"
|
|
|
+
|
|
|
+void
|
|
|
+wasm_runtime_set_exception(wasm_module_inst_t module, const char *exception);
|
|
|
+
|
|
|
+uint32
|
|
|
+wasm_runtime_get_temp_ret(wasm_module_inst_t module);
|
|
|
+
|
|
|
+void
|
|
|
+wasm_runtime_set_temp_ret(wasm_module_inst_t module, uint32 temp_ret);
|
|
|
+
|
|
|
+uint32
|
|
|
+wasm_runtime_get_llvm_stack(wasm_module_inst_t module);
|
|
|
+
|
|
|
+void
|
|
|
+wasm_runtime_set_llvm_stack(wasm_module_inst_t module, uint32 llvm_stack);
|
|
|
+
|
|
|
+#define get_module_inst() \
|
|
|
+ wasm_runtime_get_current_module_inst()
|
|
|
+
|
|
|
+#define validate_app_addr(offset, size) \
|
|
|
+ wasm_runtime_validate_app_addr(module_inst, offset, size)
|
|
|
+
|
|
|
+#define addr_app_to_native(offset) \
|
|
|
+ wasm_runtime_addr_app_to_native(module_inst, offset)
|
|
|
+
|
|
|
+#define addr_native_to_app(ptr) \
|
|
|
+ wasm_runtime_addr_native_to_app(module_inst, ptr)
|
|
|
+
|
|
|
+#define module_malloc(size) \
|
|
|
+ wasm_runtime_module_malloc(module_inst, size)
|
|
|
+
|
|
|
+#define module_free(offset) \
|
|
|
+ wasm_runtime_module_free(module_inst, offset)
|
|
|
+
|
|
|
+typedef int (*out_func_t)(int c, void *ctx);
|
|
|
+
|
|
|
+enum pad_type {
|
|
|
+ PAD_NONE,
|
|
|
+ PAD_ZERO_BEFORE,
|
|
|
+ PAD_SPACE_BEFORE,
|
|
|
+ PAD_SPACE_AFTER,
|
|
|
+};
|
|
|
+
|
|
|
+typedef char *_va_list;
|
|
|
+#define _INTSIZEOF(n) \
|
|
|
+ ((sizeof(n) + 3) & ~3)
|
|
|
+#define _va_arg(ap,t) \
|
|
|
+ (*(t*)((ap += _INTSIZEOF(t)) - _INTSIZEOF(t)))
|
|
|
+
|
|
|
+#if OPS_INPUT_OUTPUT
|
|
|
+/**
|
|
|
+ * @brief Output an unsigned int in hex format
|
|
|
+ *
|
|
|
+ * Output an unsigned int on output installed by platform at init time. Should
|
|
|
+ * be able to handle an unsigned int of any size, 32 or 64 bit.
|
|
|
+ * @param num Number to output
|
|
|
+ *
|
|
|
+ * @return N/A
|
|
|
+ */
|
|
|
+static void
|
|
|
+_printf_hex_uint(out_func_t out, void *ctx,
|
|
|
+ const uint64 num, bool is_u64,
|
|
|
+ enum pad_type padding,
|
|
|
+ int min_width)
|
|
|
+{
|
|
|
+ int size = sizeof(num) * (is_u64 ? 2 : 1);
|
|
|
+ int found_largest_digit = 0;
|
|
|
+ int remaining = 8; /* 8 digits max */
|
|
|
+ int digits = 0;
|
|
|
+
|
|
|
+ for (; size; size--) {
|
|
|
+ char nibble = (num >> ((size - 1) << 2) & 0xf);
|
|
|
+
|
|
|
+ if (nibble || found_largest_digit || size == 1) {
|
|
|
+ found_largest_digit = 1;
|
|
|
+ nibble += nibble > 9 ? 87 : 48;
|
|
|
+ out((int) nibble, ctx);
|
|
|
+ digits++;
|
|
|
+ continue;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (remaining-- <= min_width) {
|
|
|
+ if (padding == PAD_ZERO_BEFORE) {
|
|
|
+ out('0', ctx);
|
|
|
+ } else if (padding == PAD_SPACE_BEFORE) {
|
|
|
+ out(' ', ctx);
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ if (padding == PAD_SPACE_AFTER) {
|
|
|
+ remaining = min_width * 2 - digits;
|
|
|
+ while (remaining-- > 0) {
|
|
|
+ out(' ', ctx);
|
|
|
+ }
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+/**
|
|
|
+ * @brief Output an unsigned int in decimal format
|
|
|
+ *
|
|
|
+ * Output an unsigned int on output installed by platform at init time. Only
|
|
|
+ * works with 32-bit values.
|
|
|
+ * @param num Number to output
|
|
|
+ *
|
|
|
+ * @return N/A
|
|
|
+ */
|
|
|
+static void
|
|
|
+_printf_dec_uint(out_func_t out, void *ctx,
|
|
|
+ const uint32 num,
|
|
|
+ enum pad_type padding,
|
|
|
+ int min_width)
|
|
|
+{
|
|
|
+ uint32 pos = 999999999;
|
|
|
+ uint32 remainder = num;
|
|
|
+ int found_largest_digit = 0;
|
|
|
+ int remaining = 10; /* 10 digits max */
|
|
|
+ int digits = 1;
|
|
|
+
|
|
|
+ /* make sure we don't skip if value is zero */
|
|
|
+ if (min_width <= 0) {
|
|
|
+ min_width = 1;
|
|
|
+ }
|
|
|
+
|
|
|
+ while (pos >= 9) {
|
|
|
+ if (found_largest_digit || remainder > pos) {
|
|
|
+ found_largest_digit = 1;
|
|
|
+ out((int) ((remainder / (pos + 1)) + 48), ctx);
|
|
|
+ digits++;
|
|
|
+ } else if (remaining <= min_width && padding < PAD_SPACE_AFTER) {
|
|
|
+ out((int) (padding == PAD_ZERO_BEFORE ? '0' : ' '), ctx);
|
|
|
+ digits++;
|
|
|
+ }
|
|
|
+ remaining--;
|
|
|
+ remainder %= (pos + 1);
|
|
|
+ pos /= 10;
|
|
|
+ }
|
|
|
+ out((int) (remainder + 48), ctx);
|
|
|
+
|
|
|
+ if (padding == PAD_SPACE_AFTER) {
|
|
|
+ remaining = min_width - digits;
|
|
|
+ while (remaining-- > 0) {
|
|
|
+ out(' ', ctx);
|
|
|
+ }
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+print_err(out_func_t out, void *ctx)
|
|
|
+{
|
|
|
+ out('E', ctx);
|
|
|
+ out('R', ctx);
|
|
|
+ out('R', ctx);
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_vprintf(out_func_t out, void *ctx, const char *fmt, _va_list ap,
|
|
|
+ wasm_module_inst_t module_inst)
|
|
|
+{
|
|
|
+ int might_format = 0; /* 1 if encountered a '%' */
|
|
|
+ enum pad_type padding = PAD_NONE;
|
|
|
+ int min_width = -1;
|
|
|
+ int long_ctr = 0;
|
|
|
+
|
|
|
+ /* fmt has already been adjusted if needed */
|
|
|
+
|
|
|
+ while (*fmt) {
|
|
|
+ if (!might_format) {
|
|
|
+ if (*fmt != '%') {
|
|
|
+ out((int) *fmt, ctx);
|
|
|
+ }
|
|
|
+ else {
|
|
|
+ might_format = 1;
|
|
|
+ min_width = -1;
|
|
|
+ padding = PAD_NONE;
|
|
|
+ long_ctr = 0;
|
|
|
+ }
|
|
|
+ }
|
|
|
+ else {
|
|
|
+ switch (*fmt) {
|
|
|
+ case '-':
|
|
|
+ padding = PAD_SPACE_AFTER;
|
|
|
+ goto still_might_format;
|
|
|
+
|
|
|
+ case '0':
|
|
|
+ if (min_width < 0 && padding == PAD_NONE) {
|
|
|
+ padding = PAD_ZERO_BEFORE;
|
|
|
+ goto still_might_format;
|
|
|
+ }
|
|
|
+ /* Fall through */
|
|
|
+ case '1' ... '9':
|
|
|
+ if (min_width < 0) {
|
|
|
+ min_width = *fmt - '0';
|
|
|
+ } else {
|
|
|
+ min_width = 10 * min_width + *fmt - '0';
|
|
|
+ }
|
|
|
+
|
|
|
+ if (padding == PAD_NONE) {
|
|
|
+ padding = PAD_SPACE_BEFORE;
|
|
|
+ }
|
|
|
+ goto still_might_format;
|
|
|
+
|
|
|
+ case 'l':
|
|
|
+ long_ctr++;
|
|
|
+ /* Fall through */
|
|
|
+ case 'z':
|
|
|
+ case 'h':
|
|
|
+ /* FIXME: do nothing for these modifiers */
|
|
|
+ goto still_might_format;
|
|
|
+
|
|
|
+ case 'd':
|
|
|
+ case 'i': {
|
|
|
+ int32 d;
|
|
|
+
|
|
|
+ if (long_ctr < 2) {
|
|
|
+ d = _va_arg(ap, int32);
|
|
|
+ }
|
|
|
+ else {
|
|
|
+ int64 lld = _va_arg(ap, int64);
|
|
|
+ if (lld > INT32_MAX || lld < INT32_MIN) {
|
|
|
+ print_err(out, ctx);
|
|
|
+ break;
|
|
|
+ }
|
|
|
+ d = (int32)lld;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (d < 0) {
|
|
|
+ out((int)'-', ctx);
|
|
|
+ d = -d;
|
|
|
+ min_width--;
|
|
|
+ }
|
|
|
+ _printf_dec_uint(out, ctx, d, padding, min_width);
|
|
|
+ break;
|
|
|
+ }
|
|
|
+ case 'u': {
|
|
|
+ uint32 u;
|
|
|
+
|
|
|
+ if (long_ctr < 2) {
|
|
|
+ u = _va_arg(ap, uint32);
|
|
|
+ }
|
|
|
+ else {
|
|
|
+ uint64 llu = _va_arg(ap, uint64);
|
|
|
+ if (llu > INT32_MAX) {
|
|
|
+ print_err(out, ctx);
|
|
|
+ break;
|
|
|
+ }
|
|
|
+ u = (uint32)llu;
|
|
|
+ }
|
|
|
+ _printf_dec_uint(out, ctx, u, padding, min_width);
|
|
|
+ break;
|
|
|
+ }
|
|
|
+ case 'p':
|
|
|
+ out('0', ctx);
|
|
|
+ out('x', ctx);
|
|
|
+ /* left-pad pointers with zeros */
|
|
|
+ padding = PAD_ZERO_BEFORE;
|
|
|
+ min_width = 8;
|
|
|
+ /* Fall through */
|
|
|
+ case 'x':
|
|
|
+ case 'X': {
|
|
|
+ uint64 x;
|
|
|
+ bool is_ptr = (*fmt == 'p') ? true : false;
|
|
|
+
|
|
|
+ if (long_ctr < 2) {
|
|
|
+ x = _va_arg(ap, uint32);
|
|
|
+ } else {
|
|
|
+ x = _va_arg(ap, uint64);
|
|
|
+ }
|
|
|
+ _printf_hex_uint(out, ctx, x, !is_ptr, padding, min_width);
|
|
|
+ break;
|
|
|
+ }
|
|
|
+
|
|
|
+ case 's': {
|
|
|
+ char *s;
|
|
|
+ char *start;
|
|
|
+ int32 s_offset = _va_arg(ap, uint32);
|
|
|
+
|
|
|
+ if (!validate_app_addr(s_offset, 1)) {
|
|
|
+ wasm_runtime_set_exception(module_inst, "out of bounds memory access");
|
|
|
+ return;
|
|
|
+ }
|
|
|
+
|
|
|
+ s = start = addr_app_to_native(s_offset);
|
|
|
+
|
|
|
+ while (*s)
|
|
|
+ out((int) (*s++), ctx);
|
|
|
+
|
|
|
+ if (padding == PAD_SPACE_AFTER) {
|
|
|
+ int remaining = min_width - (s - start);
|
|
|
+ while (remaining-- > 0) {
|
|
|
+ out(' ', ctx);
|
|
|
+ }
|
|
|
+ }
|
|
|
+ break;
|
|
|
+ }
|
|
|
+
|
|
|
+ case 'c': {
|
|
|
+ int c = _va_arg(ap, int);
|
|
|
+ out(c, ctx);
|
|
|
+ break;
|
|
|
+ }
|
|
|
+
|
|
|
+ case '%': {
|
|
|
+ out((int) '%', ctx);
|
|
|
+ break;
|
|
|
+ }
|
|
|
+
|
|
|
+ default:
|
|
|
+ out((int) '%', ctx);
|
|
|
+ out((int) *fmt, ctx);
|
|
|
+ break;
|
|
|
+ }
|
|
|
+
|
|
|
+ might_format = 0;
|
|
|
+ }
|
|
|
+
|
|
|
+still_might_format:
|
|
|
+ ++fmt;
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+struct str_context {
|
|
|
+ char *str;
|
|
|
+ int max;
|
|
|
+ int count;
|
|
|
+};
|
|
|
+
|
|
|
+static int
|
|
|
+sprintf_out(int c, struct str_context *ctx)
|
|
|
+{
|
|
|
+ if (!ctx->str || ctx->count >= ctx->max) {
|
|
|
+ ctx->count++;
|
|
|
+ return c;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (ctx->count == ctx->max - 1) {
|
|
|
+ ctx->str[ctx->count++] = '\0';
|
|
|
+ } else {
|
|
|
+ ctx->str[ctx->count++] = c;
|
|
|
+ }
|
|
|
+
|
|
|
+ return c;
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+printf_out(int c, struct str_context *ctx)
|
|
|
+{
|
|
|
+ bh_printf("%c", c);
|
|
|
+ ctx->count++;
|
|
|
+ return c;
|
|
|
+}
|
|
|
+
|
|
|
+static inline _va_list
|
|
|
+get_va_list(uint32 *args)
|
|
|
+{
|
|
|
+ union {
|
|
|
+ uint32 u;
|
|
|
+ _va_list v;
|
|
|
+ } u;
|
|
|
+ u.u = args[0];
|
|
|
+ return u.v;
|
|
|
+}
|
|
|
+
|
|
|
+static bool
|
|
|
+parse_printf_args(wasm_module_inst_t module_inst, int32 fmt_offset,
|
|
|
+ int32 va_list_offset, const char **p_fmt,
|
|
|
+ _va_list *p_va_args)
|
|
|
+{
|
|
|
+ const char *fmt;
|
|
|
+ union {
|
|
|
+ uintptr_t u;
|
|
|
+ _va_list v;
|
|
|
+ } u;
|
|
|
+
|
|
|
+ if (!validate_app_addr(fmt_offset, 1)
|
|
|
+ || !validate_app_addr(va_list_offset, sizeof(int32)))
|
|
|
+ return false;
|
|
|
+
|
|
|
+ fmt = (const char*) addr_app_to_native(fmt_offset);
|
|
|
+ u.u = (uintptr_t) addr_app_to_native(va_list_offset);
|
|
|
+
|
|
|
+ *p_fmt = fmt;
|
|
|
+ *p_va_args = u.v;
|
|
|
+ return true;
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+_printf_wrapper(int32 fmt_offset, int32 va_list_offset)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ struct str_context ctx = { NULL, 0, 0 };
|
|
|
+ const char *fmt;
|
|
|
+ _va_list va_args;
|
|
|
+
|
|
|
+ if (!parse_printf_args(module_inst, fmt_offset, va_list_offset, &fmt, &va_args))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ _vprintf((out_func_t) printf_out, &ctx, fmt, va_args, module_inst);
|
|
|
+ return ctx.count;
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+_sprintf_wrapper(int32 str_offset, int32 fmt_offset, int32 va_list_offset)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ struct str_context ctx;
|
|
|
+ char *str;
|
|
|
+ const char *fmt;
|
|
|
+ _va_list va_args;
|
|
|
+
|
|
|
+ if (!validate_app_addr(str_offset, 1))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ str = addr_app_to_native(str_offset);
|
|
|
+
|
|
|
+ if (!parse_printf_args(module_inst, fmt_offset, va_list_offset, &fmt, &va_args))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ ctx.str = str;
|
|
|
+ ctx.max = INT_MAX;
|
|
|
+ ctx.count = 0;
|
|
|
+
|
|
|
+ _vprintf((out_func_t) sprintf_out, &ctx, fmt, va_args, module_inst);
|
|
|
+
|
|
|
+ if (ctx.count < ctx.max) {
|
|
|
+ str[ctx.count] = '\0';
|
|
|
+ }
|
|
|
+
|
|
|
+ return ctx.count;
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+_snprintf_wrapper(int32 str_offset, int32 size, int32 fmt_offset,
|
|
|
+ int32 va_list_offset)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ struct str_context ctx;
|
|
|
+ char *str;
|
|
|
+ const char *fmt;
|
|
|
+ _va_list va_args;
|
|
|
+
|
|
|
+ if (!validate_app_addr(str_offset, size))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ str = addr_app_to_native(str_offset);
|
|
|
+
|
|
|
+ if (!parse_printf_args(module_inst, fmt_offset, va_list_offset, &fmt, &va_args))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ ctx.str = str;
|
|
|
+ ctx.max = size;
|
|
|
+ ctx.count = 0;
|
|
|
+
|
|
|
+ _vprintf((out_func_t) sprintf_out, &ctx, fmt, va_args, module_inst);
|
|
|
+
|
|
|
+ if (ctx.count < ctx.max) {
|
|
|
+ str[ctx.count] = '\0';
|
|
|
+ }
|
|
|
+
|
|
|
+ return ctx.count;
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+_puts_wrapper(int32 str_offset)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ const char *str;
|
|
|
+
|
|
|
+ if (!validate_app_addr(str_offset, 1))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ str = addr_app_to_native(str_offset);
|
|
|
+ return bh_printf("%s\n", str);
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+_putchar_wrapper(int c)
|
|
|
+{
|
|
|
+ bh_printf("%c", c);
|
|
|
+ return 1;
|
|
|
+}
|
|
|
+#endif /* OPS_INPUT_OUTPUT */
|
|
|
+
|
|
|
+static int32
|
|
|
+_memcmp_wrapper(int32 s1_offset, int32 s2_offset, int32 size)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ void *s1, *s2;
|
|
|
+
|
|
|
+ if (!validate_app_addr(s1_offset, size)
|
|
|
+ || !validate_app_addr(s2_offset, size))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ s1 = addr_app_to_native(s1_offset);
|
|
|
+ s2 = addr_app_to_native(s2_offset);
|
|
|
+ return memcmp(s1, s2, size);
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_memcpy_wrapper(int32 dst_offset, int32 src_offset, int32 size)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ void *dst, *src;
|
|
|
+
|
|
|
+ if (size == 0)
|
|
|
+ return dst_offset;
|
|
|
+
|
|
|
+ if (!validate_app_addr(dst_offset, size)
|
|
|
+ || !validate_app_addr(src_offset, size))
|
|
|
+ return dst_offset;
|
|
|
+
|
|
|
+ dst = addr_app_to_native(dst_offset);
|
|
|
+ src = addr_app_to_native(src_offset);
|
|
|
+ memcpy(dst, src, size);
|
|
|
+ return dst_offset;
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_memmove_wrapper(int32 dst_offset, int32 src_offset, int32 size)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ void *dst, *src;
|
|
|
+
|
|
|
+ if (!validate_app_addr(dst_offset, size)
|
|
|
+ || !validate_app_addr(src_offset, size))
|
|
|
+ return dst_offset;
|
|
|
+
|
|
|
+ dst = addr_app_to_native(dst_offset);
|
|
|
+ src = addr_app_to_native(src_offset);
|
|
|
+ memmove(dst, src, size);
|
|
|
+ return dst_offset;
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_memset_wrapper(int32 s_offset, int32 c, int32 size)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ void *s;
|
|
|
+
|
|
|
+ if (!validate_app_addr(s_offset, size))
|
|
|
+ return s_offset;
|
|
|
+
|
|
|
+ s = addr_app_to_native(s_offset);
|
|
|
+ memset(s, c, size);
|
|
|
+ return s_offset;
|
|
|
+}
|
|
|
+
|
|
|
+#if OPS_UNSAFE_BUFFERS
|
|
|
+
|
|
|
+static int32
|
|
|
+_strdup_wrapper(int32 str_offset)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ char *str, *str_ret;
|
|
|
+ uint32 len;
|
|
|
+ int32 str_ret_offset = 0;
|
|
|
+
|
|
|
+ if (!validate_app_addr(str_offset, 1))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ str = addr_app_to_native(str_offset);
|
|
|
+
|
|
|
+ if (str) {
|
|
|
+ len = strlen(str) + 1;
|
|
|
+
|
|
|
+ str_ret_offset = module_malloc(len);
|
|
|
+ if (str_ret_offset) {
|
|
|
+ str_ret = addr_app_to_native(str_ret_offset);
|
|
|
+ memcpy(str_ret, str, len);
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ return str_ret_offset;
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_strchr_wrapper(int32 s_offset, int32 c)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ const char *s;
|
|
|
+ char *ret;
|
|
|
+
|
|
|
+ if (!validate_app_addr(s_offset, 1))
|
|
|
+ return s_offset;
|
|
|
+
|
|
|
+ s = addr_app_to_native(s_offset);
|
|
|
+ ret = strchr(s, c);
|
|
|
+ return ret ? addr_native_to_app(ret) : 0;
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_strcmp_wrapper(int32 s1_offset, int32 s2_offset)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ void *s1, *s2;
|
|
|
+
|
|
|
+ if (!validate_app_addr(s1_offset, 1)
|
|
|
+ || !validate_app_addr(s2_offset, 1))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ s1 = addr_app_to_native(s1_offset);
|
|
|
+ s2 = addr_app_to_native(s2_offset);
|
|
|
+ return strcmp(s1, s2);
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_strncmp_wrapper(int32 s1_offset, int32 s2_offset, uint32 size)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ void *s1, *s2;
|
|
|
+
|
|
|
+ if (!validate_app_addr(s1_offset, size)
|
|
|
+ || !validate_app_addr(s2_offset, size))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ s1 = addr_app_to_native(s1_offset);
|
|
|
+ s2 = addr_app_to_native(s2_offset);
|
|
|
+ return strncmp(s1, s2, size);
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_strcpy_wrapper(int32 dst_offset, int32 src_offset)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ char *dst, *src;
|
|
|
+
|
|
|
+ if (!validate_app_addr(dst_offset, 1)
|
|
|
+ || !validate_app_addr(src_offset, 1))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ dst = addr_app_to_native(dst_offset);
|
|
|
+ src = addr_app_to_native(src_offset);
|
|
|
+ strcpy(dst, src);
|
|
|
+ return dst_offset;
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_strncpy_wrapper(int32 dst_offset, int32 src_offset, uint32 size)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ char *dst, *src;
|
|
|
+
|
|
|
+ if (!validate_app_addr(dst_offset, size)
|
|
|
+ || !validate_app_addr(src_offset, size))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ dst = addr_app_to_native(dst_offset);
|
|
|
+ src = addr_app_to_native(src_offset);
|
|
|
+ strncpy(dst, src, size);
|
|
|
+ return dst_offset;
|
|
|
+}
|
|
|
+
|
|
|
+static uint32
|
|
|
+_strlen_wrapper(int32 s_offset)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ char *s;
|
|
|
+
|
|
|
+ if (!validate_app_addr(s_offset, 1))
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ s = addr_app_to_native(s_offset);
|
|
|
+ return strlen(s);
|
|
|
+}
|
|
|
+
|
|
|
+#endif /* OPS_UNSAFE_BUFFERS */
|
|
|
+
|
|
|
+static int32
|
|
|
+_malloc_wrapper(uint32 size)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ return module_malloc(size);
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_calloc_wrapper(uint32 nmemb, uint32 size)
|
|
|
+{
|
|
|
+ uint64 total_size = (uint64) nmemb * (uint64) size;
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ uint32 ret_offset = 0;
|
|
|
+ uint8 *ret_ptr;
|
|
|
+
|
|
|
+ if (total_size > UINT32_MAX)
|
|
|
+ total_size = UINT32_MAX;
|
|
|
+
|
|
|
+ ret_offset = module_malloc((uint32 )total_size);
|
|
|
+ if (ret_offset) {
|
|
|
+ ret_ptr = addr_app_to_native(ret_offset);
|
|
|
+ memset(ret_ptr, 0, (uint32) total_size);
|
|
|
+ }
|
|
|
+
|
|
|
+ return ret_offset;
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_free_wrapper(int32 ptr_offset)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+
|
|
|
+ if (!validate_app_addr(ptr_offset, 4))
|
|
|
+ return;
|
|
|
+ return module_free(ptr_offset);
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+setTempRet0_wrapper(uint32 temp_ret)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ wasm_runtime_set_temp_ret(module_inst, temp_ret);
|
|
|
+}
|
|
|
+
|
|
|
+static uint32
|
|
|
+getTempRet0_wrapper()
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ return wasm_runtime_get_temp_ret(module_inst);
|
|
|
+}
|
|
|
+
|
|
|
+static uint32
|
|
|
+_llvm_bswap_i16_wrapper(uint32 data)
|
|
|
+{
|
|
|
+ return (data & 0xFFFF0000)
|
|
|
+ | ((data & 0xFF) << 8)
|
|
|
+ | ((data & 0xFF00) >> 8);
|
|
|
+}
|
|
|
+
|
|
|
+static uint32
|
|
|
+_llvm_bswap_i32_wrapper(uint32 data)
|
|
|
+{
|
|
|
+ return ((data & 0xFF) << 24)
|
|
|
+ | ((data & 0xFF00) << 8)
|
|
|
+ | ((data & 0xFF0000) >> 8)
|
|
|
+ | ((data & 0xFF000000) >> 24);
|
|
|
+}
|
|
|
+
|
|
|
+static uint32
|
|
|
+_bitshift64Lshr_wrapper(uint32 uint64_part0, uint32 uint64_part1,
|
|
|
+ uint32 bits)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ union {
|
|
|
+ uint64 value;
|
|
|
+ uint32 parts[2];
|
|
|
+ } u;
|
|
|
+
|
|
|
+ u.parts[0] = uint64_part0;
|
|
|
+ u.parts[1] = uint64_part1;
|
|
|
+
|
|
|
+ u.value >>= bits;
|
|
|
+ /* return low 32bit and save high 32bit to temp ret */
|
|
|
+ wasm_runtime_set_temp_ret(module_inst, (uint32) (u.value >> 32));
|
|
|
+ return (uint32) u.value;
|
|
|
+}
|
|
|
+
|
|
|
+static uint32
|
|
|
+_bitshift64Shl_wrapper(uint32 int64_part0, uint32 int64_part1,
|
|
|
+ uint32 bits)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ union {
|
|
|
+ int64 value;
|
|
|
+ uint32 parts[2];
|
|
|
+ } u;
|
|
|
+
|
|
|
+ u.parts[0] = int64_part0;
|
|
|
+ u.parts[1] = int64_part1;
|
|
|
+
|
|
|
+ u.value <<= bits;
|
|
|
+ /* return low 32bit and save high 32bit to temp ret */
|
|
|
+ wasm_runtime_set_temp_ret(module_inst, (uint32) (u.value >> 32));
|
|
|
+ return (uint32) u.value;
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_llvm_stackrestore_wrapper(uint32 llvm_stack)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ printf("_llvm_stackrestore called!\n");
|
|
|
+ wasm_runtime_set_llvm_stack(module_inst, llvm_stack);
|
|
|
+}
|
|
|
+
|
|
|
+static uint32
|
|
|
+_llvm_stacksave_wrapper()
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ printf("_llvm_stacksave called!\n");
|
|
|
+ return wasm_runtime_get_llvm_stack(module_inst);
|
|
|
+}
|
|
|
+
|
|
|
+static int32
|
|
|
+_emscripten_memcpy_big_wrapper(int32 dst_offset, int32 src_offset,
|
|
|
+ uint32 size)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ void *dst, *src;
|
|
|
+
|
|
|
+ if (!validate_app_addr(dst_offset, size)
|
|
|
+ || !validate_app_addr(src_offset, size))
|
|
|
+ return dst_offset;
|
|
|
+
|
|
|
+ dst = addr_app_to_native(dst_offset);
|
|
|
+ src = addr_app_to_native(src_offset);
|
|
|
+
|
|
|
+ memcpy(dst, src, size);
|
|
|
+ return dst_offset;
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+abort_wrapper(int32 code)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ char buf[32];
|
|
|
+ snprintf(buf, sizeof(buf), "env.abort(%i)", code);
|
|
|
+ wasm_runtime_set_exception(module_inst, buf);
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+abortStackOverflow_wrapper(int32 code)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ char buf[32];
|
|
|
+ snprintf(buf, sizeof(buf), "env.abortStackOverflow(%i)", code);
|
|
|
+ wasm_runtime_set_exception(module_inst, buf);
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+nullFunc_X_wrapper(int32 code)
|
|
|
+{
|
|
|
+ wasm_module_inst_t module_inst = get_module_inst();
|
|
|
+ char buf[32];
|
|
|
+ snprintf(buf, sizeof(buf), "env.nullFunc_X(%i)", code);
|
|
|
+ wasm_runtime_set_exception(module_inst, buf);
|
|
|
+}
|
|
|
+
|
|
|
+/*#define ENABLE_SPEC_TEST 1*/
|
|
|
+
|
|
|
+#ifdef ENABLE_SPEC_TEST
|
|
|
+static void
|
|
|
+print_i32_wrapper(int i32)
|
|
|
+{
|
|
|
+ printf("%d\n", i32);
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+print_wrapper(int i32)
|
|
|
+{
|
|
|
+ printf("%d\n", i32);
|
|
|
+}
|
|
|
+#endif
|
|
|
+
|
|
|
+/* TODO: add function parameter/result types check */
|
|
|
+#define REG_NATIVE_FUNC(module_name, func_name) \
|
|
|
+ { #module_name, #func_name, func_name##_wrapper }
|
|
|
+
|
|
|
+typedef struct WASMNativeFuncDef {
|
|
|
+ const char *module_name;
|
|
|
+ const char *func_name;
|
|
|
+ void *func_ptr;
|
|
|
+} WASMNativeFuncDef;
|
|
|
+
|
|
|
+static WASMNativeFuncDef native_func_defs[] = {
|
|
|
+
|
|
|
+#ifdef ENABLE_SPEC_TEST
|
|
|
+ REG_NATIVE_FUNC(spectest, print_i32),
|
|
|
+ REG_NATIVE_FUNC(spectest, print),
|
|
|
+#endif
|
|
|
+
|
|
|
+#if OPS_INPUT_OUTPUT
|
|
|
+ REG_NATIVE_FUNC(env, _printf),
|
|
|
+ REG_NATIVE_FUNC(env, _sprintf),
|
|
|
+ REG_NATIVE_FUNC(env, _snprintf),
|
|
|
+ REG_NATIVE_FUNC(env, _puts),
|
|
|
+ REG_NATIVE_FUNC(env, _putchar),
|
|
|
+#endif
|
|
|
+ REG_NATIVE_FUNC(env, _memcmp),
|
|
|
+ REG_NATIVE_FUNC(env, _memcpy),
|
|
|
+ REG_NATIVE_FUNC(env, _memmove),
|
|
|
+ REG_NATIVE_FUNC(env, _memset),
|
|
|
+#if OPS_UNSAFE_BUFFERS
|
|
|
+ REG_NATIVE_FUNC(env, _strchr),
|
|
|
+ REG_NATIVE_FUNC(env, _strcmp),
|
|
|
+ REG_NATIVE_FUNC(env, _strcpy),
|
|
|
+ REG_NATIVE_FUNC(env, _strlen),
|
|
|
+ REG_NATIVE_FUNC(env, _strncmp),
|
|
|
+ REG_NATIVE_FUNC(env, _strncpy),
|
|
|
+ REG_NATIVE_FUNC(env, _strdup),
|
|
|
+#endif
|
|
|
+ REG_NATIVE_FUNC(env, _malloc),
|
|
|
+ REG_NATIVE_FUNC(env, _calloc),
|
|
|
+ REG_NATIVE_FUNC(env, _free),
|
|
|
+ REG_NATIVE_FUNC(env, setTempRet0),
|
|
|
+ REG_NATIVE_FUNC(env, getTempRet0),
|
|
|
+ REG_NATIVE_FUNC(env, _llvm_bswap_i16),
|
|
|
+ REG_NATIVE_FUNC(env, _llvm_bswap_i32),
|
|
|
+ REG_NATIVE_FUNC(env, _bitshift64Lshr),
|
|
|
+ REG_NATIVE_FUNC(env, _bitshift64Shl),
|
|
|
+ REG_NATIVE_FUNC(env, _llvm_stackrestore),
|
|
|
+ REG_NATIVE_FUNC(env, _llvm_stacksave),
|
|
|
+ REG_NATIVE_FUNC(env, _emscripten_memcpy_big),
|
|
|
+ REG_NATIVE_FUNC(env, abort),
|
|
|
+ REG_NATIVE_FUNC(env, abortStackOverflow),
|
|
|
+ REG_NATIVE_FUNC(env, nullFunc_X)
|
|
|
+};
|
|
|
+
|
|
|
+void*
|
|
|
+wasm_native_func_lookup(const char *module_name, const char *func_name)
|
|
|
+{
|
|
|
+ uint32 size = sizeof(native_func_defs) / sizeof(WASMNativeFuncDef);
|
|
|
+ WASMNativeFuncDef *func_def = native_func_defs;
|
|
|
+ WASMNativeFuncDef *func_def_end = func_def + size;
|
|
|
+ void *ret;
|
|
|
+
|
|
|
+ if (!module_name || !func_name)
|
|
|
+ return NULL;
|
|
|
+
|
|
|
+ while (func_def < func_def_end) {
|
|
|
+ if (!strcmp(func_def->module_name, module_name)
|
|
|
+ && (!strcmp(func_def->func_name, func_name)
|
|
|
+ || (func_def->func_name[0] == '_'
|
|
|
+ && !strcmp(func_def->func_name + 1, func_name))))
|
|
|
+ return (void*) (uintptr_t) func_def->func_ptr;
|
|
|
+ func_def++;
|
|
|
+ }
|
|
|
+
|
|
|
+ if ((ret = wasm_platform_native_func_lookup(module_name, func_name)))
|
|
|
+ return ret;
|
|
|
+
|
|
|
+ return NULL;
|
|
|
+}
|
|
|
+
|
|
|
+/*************************************
|
|
|
+ * Global Variables *
|
|
|
+ *************************************/
|
|
|
+
|
|
|
+typedef struct WASMNativeGlobalDef {
|
|
|
+ const char *module_name;
|
|
|
+ const char *global_name;
|
|
|
+ WASMValue global_data;
|
|
|
+} WASMNativeGlobalDef;
|
|
|
+
|
|
|
+static WASMNativeGlobalDef native_global_defs[] = {
|
|
|
+#ifdef ENABLE_SPEC_TEST
|
|
|
+ { "spectest", "global_i32", .global_data.u32 = 0 },
|
|
|
+#endif
|
|
|
+ { "env", "STACKTOP", .global_data.u32 = 0 },
|
|
|
+ { "env", "STACK_MAX", .global_data.u32 = 0 },
|
|
|
+ { "env", "ABORT", .global_data.u32 = 0 },
|
|
|
+ { "env", "memoryBase", .global_data.u32 = 0 },
|
|
|
+ { "env", "__memory_base", .global_data.u32 = 0 },
|
|
|
+ { "env", "tableBase", .global_data.u32 = 0 },
|
|
|
+ { "env", "__table_base", .global_data.u32 = 0 },
|
|
|
+ { "env", "DYNAMICTOP_PTR", .global_data.addr = 0 },
|
|
|
+ { "env", "tempDoublePtr", .global_data.addr = 0 },
|
|
|
+ { "global", "NaN", .global_data.u64 = 0x7FF8000000000000LL },
|
|
|
+ { "global", "Infinity", .global_data.u64 = 0x7FF0000000000000LL }
|
|
|
+};
|
|
|
+
|
|
|
+bool
|
|
|
+wasm_native_global_lookup(const char *module_name, const char *global_name,
|
|
|
+ WASMGlobalImport *global)
|
|
|
+{
|
|
|
+ uint32 size = sizeof(native_global_defs) / sizeof(WASMNativeGlobalDef);
|
|
|
+ WASMNativeGlobalDef *global_def = native_global_defs;
|
|
|
+ WASMNativeGlobalDef *global_def_end = global_def + size;
|
|
|
+
|
|
|
+ if (!module_name || !global_name || !global)
|
|
|
+ return false;
|
|
|
+
|
|
|
+ /* Lookup constant globals which can be defined by table */
|
|
|
+ while (global_def < global_def_end) {
|
|
|
+ if (!strcmp(global_def->module_name, module_name)
|
|
|
+ && !strcmp(global_def->global_name, global_name)) {
|
|
|
+ global->global_data_linked = global_def->global_data;
|
|
|
+ return true;
|
|
|
+ }
|
|
|
+ global_def++;
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Lookup non-constant globals which cannot be defined by table */
|
|
|
+ if (!strcmp(module_name, "env")) {
|
|
|
+#if 0 /* unsupported in sgx */
|
|
|
+ if (!strcmp(global_name, "_stdin")) {
|
|
|
+ global->global_data_linked.addr = (uintptr_t)stdin;
|
|
|
+ global->is_addr = true;
|
|
|
+ return true;
|
|
|
+ } else if (!strcmp(global_name, "_stdout")) {
|
|
|
+ global->global_data_linked.addr = (uintptr_t)stdout;
|
|
|
+ global->is_addr = true;
|
|
|
+ return true;
|
|
|
+ } else if (!strcmp(global_name, "_stderr")) {
|
|
|
+ global->global_data_linked.addr = (uintptr_t)stderr;
|
|
|
+ global->is_addr = true;
|
|
|
+ return true;
|
|
|
+ }
|
|
|
+#endif /* OPS_INPUT_OUTPUT */
|
|
|
+ }
|
|
|
+
|
|
|
+ return false;
|
|
|
+}
|
|
|
+
|
|
|
+bool
|
|
|
+wasm_native_init()
|
|
|
+{
|
|
|
+ /* TODO: qsort the function defs and global defs. */
|
|
|
+ return true;
|
|
|
+}
|