forked from Mirrors/wasm3
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
1.6 KiB
C++
69 lines
1.6 KiB
C++
//
|
|
// Wasm3 - high performance WebAssembly interpreter written in C.
|
|
//
|
|
// Copyright © 2019 Steven Massey, Volodymyr Shymanskyy.
|
|
// All rights reserved.
|
|
//
|
|
|
|
#include "esp_system.h"
|
|
|
|
#include <stdio.h>
|
|
#include <time.h>
|
|
#include <unistd.h>
|
|
|
|
#include "wasm3.h"
|
|
#include "m3_env.h"
|
|
|
|
#include "extra/fib32.wasm.h"
|
|
|
|
#define FATAL(msg, ...) { printf("Fatal: " msg "\n", ##__VA_ARGS__); return; }
|
|
|
|
static void run_wasm(void)
|
|
{
|
|
M3Result result = m3Err_none;
|
|
|
|
uint8_t* wasm = (uint8_t*)fib32_wasm;
|
|
uint32_t fsize = fib32_wasm_len;
|
|
|
|
printf("Loading WebAssembly...\n");
|
|
IM3Environment env = m3_NewEnvironment ();
|
|
if (!env) FATAL("m3_NewEnvironment failed");
|
|
|
|
IM3Runtime runtime = m3_NewRuntime (env, 1024, NULL);
|
|
if (!runtime) FATAL("m3_NewRuntime failed");
|
|
|
|
IM3Module module;
|
|
result = m3_ParseModule (env, &module, wasm, fsize);
|
|
if (result) FATAL("m3_ParseModule: %s", result);
|
|
|
|
result = m3_LoadModule (runtime, module);
|
|
if (result) FATAL("m3_LoadModule: %s", result);
|
|
|
|
IM3Function f;
|
|
result = m3_FindFunction (&f, runtime, "fib");
|
|
if (result) FATAL("m3_FindFunction: %s", result);
|
|
|
|
printf("Running...\n");
|
|
|
|
result = m3_CallV(f, 24);
|
|
if (result) FATAL("m3_Call: %s", result);
|
|
|
|
long value = *(uint64_t*)(runtime->stack);
|
|
printf("Result: %ld\n", value);
|
|
}
|
|
|
|
extern "C" void app_main(void)
|
|
{
|
|
printf("\nWasm3 v" M3_VERSION " on ESP32, build " __DATE__ " " __TIME__ "\n");
|
|
|
|
clock_t start = clock();
|
|
run_wasm();
|
|
clock_t end = clock();
|
|
|
|
printf("Elapsed: %ld ms\n", (end - start)*1000 / CLOCKS_PER_SEC);
|
|
|
|
sleep(3);
|
|
printf("Restarting...\n\n\n");
|
|
esp_restart();
|
|
}
|