Something went wrong. Try again.
MIRROR: javascript for 🐜's, a tiny runtime with big ambitions ant.themackabu.dev
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678#include "silver/stack_trace.h"#include "cfunc.h"#include "errors.h"#include "error_render.h"#include "gc/roots.h"#include "gc/modules.h"#include "ptr.h"
#include <stdlib.h>#include <string.h>#include <limits.h>
js_error_site_t js_error_site_from_source( const char *src, ant_offset_t src_len, const char *filename, ant_offset_t off, ant_offset_t span_len) { return (js_error_site_t){ .src = src, .src_len = src_len, .filename = filename, .off = off < 0 ? 0 : off, .span_len = span_len < 0 ? 0 : span_len, .valid = src != NULL && src_len >= 0, };}
js_error_site_t js_error_site_from_bc(sv_func_t *func, int bc_offset) { js_error_site_t site = {0}; const sv_srcpos_t *pos = bc_offset >= 0 ? sv_srcpos_at(func, bc_offset) : NULL; if (!pos || !func->debug->source || func->debug->source_len <= 0) return site;
const char *src = func->debug->source; ant_offset_t src_len = (ant_offset_t)func->debug->source_len; ant_offset_t off = (ant_offset_t)pos->src_off; ant_offset_t span_len = pos->src_end > pos->src_off ? (ant_offset_t)(pos->src_end - pos->src_off) : 0; if (span_len == 0 && off < src_len) span_len = 1;
site = js_error_site_from_source(src, src_len, func->debug->filename, off, span_len); site.func = func; site.line = pos->line; site.col = pos->col; return site;}
js_error_site_t js_error_site_from_frame(sv_func_t *func, int bc_offset) { return js_error_site_from_bc(func, bc_offset < 0 ? 0 : bc_offset);}
js_error_site_t js_error_site_from_vm_top(ant_t *js) { sv_stack_iter_t it; sv_stack_entry_t top; sv_stack_iter_init(js ? js->vm : NULL, &it, 1, true); bool found = sv_stack_iter_next(&it, &top); sv_stack_iter_finish(&it); return found ? js_error_site_from_frame(top.func, top.bc_off) : (js_error_site_t){0};}
void sv_stack_iter_init(sv_vm_t *vm, sv_stack_iter_t *it, int limit, bool resolve) { it->vm = vm; it->seg = vm ? vm->js->vm_segs : NULL; it->acts = it->inline_acts; it->n_acts = 0; it->ai = 0; it->i = vm ? vm->fp : -1; it->skip = -1; it->n_pending = 0; it->resolve = resolve; if (vm && vm->js->jit_active_depth) it->n_acts = sv_jit_collect_activations(vm, &it->acts, SV_STACK_INLINE_ACTIVATIONS, limit);}
void sv_stack_iter_finish(sv_stack_iter_t *it) { if (it->acts != it->inline_acts) free(it->acts); it->acts = it->inline_acts;}
static int sv_stack_frame_bc_off(sv_stack_iter_t *it, int idx, const sv_frame_t *frame) { if (!frame->func || !frame->ip || !frame->func->code) return -1; int off = (int)(frame->ip - frame->func->code); if (idx >= it->vm->fp || off == 0) return off; while (it->seg && it->seg->entry_vm_fp > idx + 1) it->seg = it->seg->prev; return it->seg && it->seg->entry_vm_fp == idx + 1 ? off : off - 1;}
static void sv_stack_resolve(sv_stack_iter_t *it, const sv_jit_activation_t *a, ant_value_t callee) { sv_jit_frame_t frames[SV_JIT_INLINE_FRAMES_MAX + 1]; int n = sv_jit_frames_at(it->vm->js, a->pc, frames, SV_JIT_INLINE_FRAMES_MAX + 1); if (n <= 0) frames[n++] = (sv_jit_frame_t){ a->func, -1 }; for (int k = 0; k < n; k++) it->pending[n - 1 - k] = (sv_stack_entry_t){ .func = frames[k].func, .callee = k == n - 1 ? callee : js_mkundef(), .bc_off = frames[k].bc_off, .frame_index = -1, }; it->n_pending = n;}
bool sv_stack_iter_next(sv_stack_iter_t *it, sv_stack_entry_t *out) { sv_vm_t *vm = it->vm; if (!vm) return false; if (it->n_pending > 0) { *out = it->pending[--it->n_pending]; return true; }
for (;;) { if (it->ai < it->n_acts && it->acts[it->ai].vm_fp >= it->i) { sv_jit_activation_t *a = &it->acts[it->ai++]; bool host = a->osr_host && a->vm_fp >= 0 && a->vm_fp <= vm->fp; if (host) it->skip = a->vm_fp; if (!a->func) continue; ant_value_t callee = host ? vm->frames[a->vm_fp].callee : js_mkundef(); if (it->resolve) { sv_stack_resolve(it, a, callee); *out = it->pending[--it->n_pending]; } else *out = (sv_stack_entry_t){ a->func, callee, a->pc, -1, -1 }; return true; }
if (it->i < 0) return false; int idx = it->i--; if (idx == it->skip) continue; sv_frame_t *frame = &vm->frames[idx]; *out = (sv_stack_entry_t){ frame->func, frame->callee, 0, sv_stack_frame_bc_off(it, idx, frame), idx }; return true; }}
void js_get_call_location(ant_t *js, const char **out_filename, int *out_line, int *out_col) { if (!js) return; js_error_site_t site = js_error_site_from_vm_top(js); if (out_filename) *out_filename = (site.valid && site.filename) ? site.filename : js->filename; if (out_line) *out_line = 1; if (out_col) *out_col = 1; if (site.valid && site.line > 0) { if (out_line) *out_line = (int)site.line; if (out_col) *out_col = (int)site.col; } else if (site.valid && site.src) error_line_col( site.src, site.src_len, site.off, out_line, out_col );}
static int error_stack_trace_limit(ant_t *js) { ant_value_t ctor = js->builtins.error_ctor, limit; if (vtype(ctor) != kTypeFunction) return 10; if (!js_try_get_own_data_prop(js, ctor, "stackTraceLimit", 15, &limit) || vtype(limit) != kTypeNumber) return -1; double d = js_getnum(limit); if (!(d > 0)) return 0; return d >= (double)INT_MAX ? INT_MAX : (int)d;}
static const char *error_frame_name_of(ant_t *js, ant_value_t callee, sv_func_t *func) { if (func && func->debug->name && func->debug->name[0]) return func->debug->name; ant_value_t name; if (vtype(callee) == kTypeFunction && js_try_get_own_data_prop(js, callee, "name", 4, &name) && vtype(name) == kTypeString) { size_t len = 0; const char *text = js_getstr(js, name, &len); if (text && len > 0) return text; } if (func && func->debug->display_name && !func->debug->display_name_varies) return func->debug->display_name; return "<anonymous>";}
typedef struct { const char *name; const char *file; int line; int col;} error_frame_view_t;
typedef struct { sv_func_t *func; ant_value_t callee; uintptr_t pc; int bc_off;} error_frame_t;
static error_frame_view_t error_frame_view(ant_t *js, const error_frame_t *f, const char *fallback_file) { error_frame_view_t view = { .name = error_frame_name_of(js, f->callee, f->func), .file = f->func && f->func->debug->filename ? f->func->debug->filename : fallback_file, .line = f->func && f->func->debug->source_line > 0 ? f->func->debug->source_line : 1, .col = 1, };
uint32_t l, c; if (f->bc_off >= 0 && sv_lookup_srcpos(f->func, f->bc_off, &l, &c)) { view.line = (int)l; view.col = (int)c; } return view;}
static bool error_entry_is_wrapper(ant_t *js, const sv_stack_entry_t *e, int newer) { if (e->frame_index != 0 || newer == 0) return false; error_frame_view_t view = error_frame_view(js, &(error_frame_t){ e->func, e->callee, 0, e->bc_off }, ""); return view.line == 1 && view.col == 1 && strcmp(view.name, "<anonymous>") == 0;}
static constexpr int ERROR_FRAMES_INLINE = 32;
static bool error_frames_reserve(error_frame_t **frames, error_frame_t *local, int *cap, int need) { if (need <= *cap) return true; int grown_cap = *cap * 2 > need ? *cap * 2 : need; error_frame_t *grown = *frames == local ? malloc((size_t)grown_cap * sizeof(*grown)) : realloc(*frames, (size_t)grown_cap * sizeof(*grown)); if (!grown) return false; if (*frames == local) memcpy(grown, local, (size_t)*cap * sizeof(*grown)); *frames = grown; *cap = grown_cap; return true;}
static void error_append_frames( ant_t *js, const error_frame_t *frames, int count, const char *fallback_file, errbuf_t *eb, size_t *n, error_frame_style_t style) { for (int i = 0; i < count; i++) { error_frame_view_t view = error_frame_view(js, &frames[i], fallback_file); if (!error_render_frame(eb, n, view.name, view.file, view.line, view.col, style)) return; }}
static int error_live_frames(ant_t *js, int limit, error_frame_t *local, error_frame_t **out) { *out = local; if (!js || !js->vm || limit == 0) return 0; sv_stack_iter_t it; sv_stack_entry_t e; int n = 0, cap = ERROR_FRAMES_INLINE; sv_stack_iter_init(js->vm, &it, limit, true); while ((limit < 0 || n < limit) && sv_stack_iter_next(&it, &e)) { if (error_entry_is_wrapper(js, &e, n)) continue; if (!error_frames_reserve(out, local, &cap, n + 1)) break; (*out)[n++] = (error_frame_t){ e.func, e.callee, 0, e.bc_off }; } sv_stack_iter_finish(&it); return n;}
static size_t error_append_live_frames(ant_t *js, int limit, const char *file, errbuf_t *eb, size_t n, error_frame_style_t style) { error_frame_t local[ERROR_FRAMES_INLINE], *frames; int count = error_live_frames(js, limit, local, &frames); error_append_frames(js, frames, count, file, eb, &n, style); if (frames != local) free(frames); return n;}
ant_value_t js_capture_raw_stack(ant_t *js) { errbuf_t eb; if (!errbuf_init(&eb, 4096)) return js_mkundef(); const char *file = js->filename ? js->filename : "<eval>"; size_t n = error_append_live_frames(js, error_stack_trace_limit(js), file, &eb, 0, ERROR_FRAME_RAW); return errbuf_take_string(js, &eb, n);}
void js_print_stack_trace_vm(ant_t *js, FILE *stream) { errbuf_t eb; if (!stream || !errbuf_init(&eb, 4096)) return; const char *file = js->filename ? js->filename : "<unknown>"; size_t n = error_append_live_frames(js, -1, file, &eb, 0, ERROR_FRAME_PRETTY); if (n > 0) { fwrite(eb.buf + 1, 1, n - 1, stream); fputc('\n', stream); } free(eb.buf);}
typedef enum { ERROR_SITE_NEWEST_FRAME, ERROR_SITE_SOURCE, ERROR_SITE_RENDERED,} error_site_kind_t;
typedef struct { error_site_kind_t site_kind; sv_func_t *site_func; ant_offset_t site_pos, site_span; int line, col; ant_value_t rendered_site; ant_value_t file; int limit; int n_frames; error_frame_t frames[];} error_record_t;
static constexpr uint32_t ERROR_RECORD_NATIVE_TAG = Ant_NativeTag("ERRR");
static error_record_t *error_record_of(ant_value_t value) { return vtype(value) == kTypeObject ? js_get_native(value, ERROR_RECORD_NATIVE_TAG) : NULL;}
bool js_is_error_record(ant_value_t value) { return error_record_of(value) != NULL;}
void gc_mark_error_record(ant_t *js, ant_value_t value, gc_mark_fn mark) { error_record_t *rec = error_record_of(value); if (!rec) return; if (rec->site_func) mark(js, mkref(kTypeFunctionInfo, rec->site_func)); mark(js, rec->rendered_site); mark(js, rec->file); for (int i = 0; i < rec->n_frames; i++) { if (rec->frames[i].func) mark(js, mkref(kTypeFunctionInfo, rec->frames[i].func)); mark(js, rec->frames[i].callee); }}
static void error_record_finalize(ant_t *js, ant_object_t *obj) { if (obj->native_tag == ERROR_RECORD_NATIVE_TAG) free(obj->native_ptr);}
ant_value_t js_error_record_capture(ant_t *js, const js_error_site_t *at) { int limit = error_stack_trace_limit(js); if (limit < 0) return js_mkundef();
error_frame_t local[ERROR_FRAMES_INLINE], *frames = local; int n = 0, cap = ERROR_FRAMES_INLINE; bool need_file = false;
sv_stack_iter_t it; sv_stack_entry_t e; sv_stack_iter_init(js->vm, &it, limit, false); while (n < limit && sv_stack_iter_next(&it, &e)) { if (error_entry_is_wrapper(js, &e, n)) continue; if (!error_frames_reserve(&frames, local, &cap, n + 1)) break; bool named = e.func && e.func->debug->name && e.func->debug->name[0]; frames[n++] = (error_frame_t){ e.func, named ? js_mkundef() : e.callee, e.pc, e.bc_off }; if (!e.func || !e.func->debug->filename) need_file = true; } sv_stack_iter_finish(&it);
error_record_t *rec = calloc(1, sizeof(*rec) + (size_t)n * sizeof(rec->frames[0])); if (rec) memcpy(rec->frames, frames, (size_t)n * sizeof(rec->frames[0])); if (frames != local) free(frames); if (!rec) return js_mkundef(); rec->limit = limit; rec->n_frames = n;
js_error_site_t es = at && at->valid ? *at : (js_error_site_t){0}; const char *file = es.valid ? error_site_file(js, &es) : js->filename ? js->filename : "<eval>"; js_error_render_site_t site; error_render_site_init(&es, &site);
if (!es.valid) { rec->site_kind = ERROR_SITE_NEWEST_FRAME; need_file |= rec->n_frames == 0; } else if (es.func && site.src == es.func->debug->source && site.src_len <= ERROR_CONTEXT_MAX_SOURCE_BYTES) { rec->site_kind = ERROR_SITE_SOURCE; rec->site_func = es.func; rec->site_pos = site.src_pos; rec->site_span = site.src_span_len; need_file |= file != es.func->debug->filename; } else { rec->site_kind = ERROR_SITE_RENDERED; need_file = true; } rec->line = site.line; rec->col = site.col;
GC_ROOT_SAVE(root_mark, js); ant_value_t rendered = js_mkundef(), file_str = js_mkundef(); GC_ROOT_PIN(js, rendered); GC_ROOT_PIN(js, file_str); errbuf_t eb; if (rec->site_kind == ERROR_SITE_RENDERED && errbuf_init(&eb, 1024)) { size_t len = 0; error_render_site_finish(&site); error_render_site_prefix(&eb, &len, file, &site); rendered = errbuf_take_string(js, &eb, len); } if (need_file) file_str = js_mkstr(js, file, strlen(file)); rec->rendered_site = rendered; rec->file = file_str;
ant_value_t record = Ant_Object_CreateBare(js); if (vtype(record) == kTypeObject) { js_set_native(record, rec, ERROR_RECORD_NATIVE_TAG); js_set_finalizer(record, error_record_finalize); } else { free(rec); record = js_mkundef(); }
GC_ROOT_RESTORE(js, root_mark); return record;}
typedef struct { const error_record_t *rec; error_frame_t local[ERROR_FRAMES_INLINE]; error_frame_t *frames; int n; const char *file; js_error_render_site_t site;} error_render_t;
static void error_render_begin(ant_t *js, const error_record_t *rec, error_render_t *r) { r->rec = rec; r->frames = r->local; r->n = 0; int cap = ERROR_FRAMES_INLINE;
for (int k = 0; k < rec->n_frames && r->n < rec->limit; k++) { const error_frame_t *f = &rec->frames[k]; sv_jit_frame_t at[SV_JIT_INLINE_FRAMES_MAX + 1]; int m = f->pc ? sv_jit_frames_at(js, f->pc, at, SV_JIT_INLINE_FRAMES_MAX + 1) : 0; if (m <= 0) at[m++] = (sv_jit_frame_t){ f->func, f->bc_off }; for (int i = 0; i < m && r->n < rec->limit; i++) { if (!error_frames_reserve(&r->frames, r->local, &cap, r->n + 1)) return; r->frames[r->n++] = (error_frame_t){ at[i].func, i == m - 1 ? f->callee : js_mkundef(), 0, at[i].bc_off }; } }
sv_func_t *file_func = rec->site_func ? rec->site_func : r->n > 0 ? r->frames[0].func : NULL; r->file = vtype(rec->file) == kTypeString ? js_getstr(js, rec->file, NULL) : file_func && file_func->debug->filename ? file_func->debug->filename : "<eval>";
js_error_site_t es = {0}; if (rec->site_kind == ERROR_SITE_SOURCE) { sv_func_t *func = rec->site_func; es = js_error_site_from_source(func->debug->source, (ant_offset_t)func->debug->source_len, func->debug->filename, rec->site_pos, rec->site_span); es.func = func; es.line = (uint32_t)rec->line; es.col = (uint32_t)rec->col; } else if (rec->site_kind == ERROR_SITE_NEWEST_FRAME && r->n > 0) es = js_error_site_from_frame(r->frames[0].func, r->frames[0].bc_off); error_render_site_init(&es, &r->site); if (rec->site_kind == ERROR_SITE_RENDERED) { r->site.line = rec->line; r->site.col = rec->col; }}
static void error_render_end(error_render_t *r) { if (r->frames != r->local) free(r->frames);}
static void error_render_prefix(ant_t *js, error_render_t *r, errbuf_t *eb, size_t *n) { if (r->rec->site_kind != ERROR_SITE_RENDERED) { error_render_site_finish(&r->site); error_render_site_prefix(eb, n, r->file, &r->site); return; } size_t len = 0; const char *text = vtype(r->rec->rendered_site) == kTypeString ? js_getstr(js, r->rec->rendered_site, &len) : NULL; if (text) *n = errbuf_appendf(eb, *n, "%.*s", (int)len, text);}
static void error_render_frames(ant_t *js, const error_render_t *r, errbuf_t *eb, size_t *n, error_frame_style_t style) { error_append_frames(js, r->frames, r->n, r->file, eb, n, style); if (r->n == 0 && r->rec->limit > 0) error_render_frame(eb, n, NULL, r->file, r->site.line, r->site.col, style);}
char *js_error_render_pretty(ant_t *js, ant_value_t err, ant_value_t stack, size_t *out_len, size_t *header_at) { if (!is_object_type(err) || vtype(stack) != kTypeString) return NULL; error_record_t *rec = error_record_of(js_get_slot(err, SLOT_ERROR_STACK)); errbuf_t eb; if (!rec || js_get_slot(err, SLOT_ERROR_STACK_TEXT) != stack) return NULL; if (!errbuf_init(&eb, 4096)) return NULL;
error_render_t r; error_render_begin(js, rec, &r); size_t n = 0; error_render_prefix(js, &r, &eb, &n); *header_at = n; error_render_frames(js, &r, &eb, &n, ERROR_FRAME_PRETTY); error_render_end(&r);
*out_len = n; return eb.buf;}
ant_value_t js_error_record_throw_text(ant_t *js, ant_value_t value, ant_value_t record) { error_record_t *rec = error_record_of(record); errbuf_t eb; if (!rec || !errbuf_init(&eb, 4096)) return js_mkundef();
GC_ROOT_SAVE(root_mark, js); GC_ROOT_PIN(js, value); GC_ROOT_PIN(js, record);
error_render_t r; error_render_begin(js, rec, &r); size_t n = 0; error_render_prefix(js, &r, &eb, &n); n = error_render_value(&eb, js, n, value); error_render_frames(js, &r, &eb, &n, ERROR_FRAME_PRETTY); error_render_end(&r);
ant_value_t text = errbuf_take_string(js, &eb, n); GC_ROOT_RESTORE(js, root_mark); return text;}
ant_value_t js_error_record_stack_text(ant_t *js, ant_value_t header, ant_value_t record) { error_record_t *rec = error_record_of(record); errbuf_t eb; if (!rec || !errbuf_init(&eb, 1024)) return js_mkundef();
GC_ROOT_SAVE(root_mark, js); GC_ROOT_PIN(js, header); GC_ROOT_PIN(js, record);
size_t len = 0; const char *text = js_getstr(js, header, &len); size_t n = errbuf_appendf(&eb, 0, "%.*s", (int)len, text ? text : "");
error_render_t r; error_render_begin(js, rec, &r); error_render_frames(js, &r, &eb, &n, ERROR_FRAME_PLAIN); error_render_end(&r);
ant_value_t stack = errbuf_take_string(js, &eb, n); GC_ROOT_RESTORE(js, root_mark); return stack;}
enum { CS_FILE = 0, CS_LINE, CS_COL, CS_NAME};
static ant_value_t callsite_field(ant_t *js, int field) { ant_value_t data = js_get_slot(js->this_val, SLOT_DATA); if (vtype(data) != kTypeArray) return js_mkundef(); return js_arr_get(js, data, field);}
static ant_value_t callsite_getFileName(ant_params_t) { return callsite_field(js, CS_FILE); }static ant_value_t callsite_getLineNumber(ant_params_t) { return callsite_field(js, CS_LINE); }static ant_value_t callsite_getColumnNumber(ant_params_t) { return callsite_field(js, CS_COL); }static ant_value_t callsite_getFunctionName(ant_params_t) { return callsite_field(js, CS_NAME); }
static ant_value_t callsite_null(ant_params_t) { return js_mknull(); }static ant_value_t callsite_false(ant_params_t) { return js_false; }static ant_value_t callsite_undefined(ant_params_t) { return js_mkundef(); }
static ant_value_t callsite_toString(ant_params_t) { ant_value_t name = callsite_field(js, CS_NAME); ant_value_t file = callsite_field(js, CS_FILE); ant_value_t line = callsite_field(js, CS_LINE); ant_value_t col = callsite_field(js, CS_COL);
const char *n = js_str(js, name); const char *f = js_str(js, file); int l = vtype(line) == kTypeNumber ? (int)js_getnum(line) : 0; int c = vtype(col) == kTypeNumber ? (int)js_getnum(col) : 0;
char buf[512]; int len = snprintf(buf, sizeof(buf), "%s (%s:%d:%d)", n, f, l, c); if (len < 0) len = 0; return js_mkstr(js, buf, (size_t)len);}
static const ant_cfunc_meta_t callsite_methods[] = { { callsite_getFileName, "getFileName", 0, 0 }, { callsite_getLineNumber, "getLineNumber", 0, 0 }, { callsite_getColumnNumber, "getColumnNumber", 0, 0 }, { callsite_getFunctionName, "getFunctionName", 0, 0 }, { callsite_null, "getTypeName", 0, 0 }, { callsite_getFunctionName, "getMethodName", 0, 0 }, { callsite_false, "isNative", 0, 0 }, { callsite_false, "isToplevel", 0, 0 }, { callsite_false, "isEval", 0, 0 }, { callsite_false, "isConstructor", 0, 0 }, { callsite_undefined, "getEvalOrigin", 0, 0 }, { callsite_undefined, "getThis", 0, 0 }, { callsite_toString, "toString", 0, 0 },};
static ant_value_t callsite_proto(ant_t *js) { if (vtype(js->builtins.callsite_proto) == kTypeObject) return js->builtins.callsite_proto; ant_value_t proto = Ant_Object_CreateBare(js); js->builtins.callsite_proto = proto; for (size_t i = 0; i < sizeof(callsite_methods) / sizeof(callsite_methods[0]); i++) js_set(js, proto, callsite_methods[i].name, js_mkfun_meta(&callsite_methods[i])); return proto;}
ant_value_t js_build_callsite_array(ant_t *js) { GC_ROOT_SAVE(root_mark, js); ant_value_t proto = callsite_proto(js); ant_value_t arr = js_mkarr(js); GC_ROOT_PIN(js, arr);
error_frame_t local[ERROR_FRAMES_INLINE], *frames; int count = error_live_frames(js, error_stack_trace_limit(js), local, &frames); const char *file = js->filename ? js->filename : "<eval>";
ant_value_t data = js_mkundef(), site = js_mkundef(); GC_ROOT_PIN(js, data); GC_ROOT_PIN(js, site);
for (int i = 0; i < count; i++) { error_frame_view_t view = error_frame_view(js, &frames[i], file); data = js_mkarr(js); js_arr_push(js, data, js_mkstr(js, view.file, strlen(view.file))); js_arr_push(js, data, js_mknum((double)view.line)); js_arr_push(js, data, js_mknum((double)view.col)); js_arr_push(js, data, js_mkstr(js, view.name, strlen(view.name)));
site = Ant_Object_CreateBare(js); js_set_proto_init(site, proto); js_set_slot(site, SLOT_DATA, data); js_arr_push(js, arr, site); } if (frames != local) free(frames); GC_ROOT_RESTORE(js, root_mark); return arr;}