mirror of
https://github.com/janet-lang/janet
synced 2025-06-11 19:14:13 +00:00
Be more complete with JANET_NO_SOURCEMAPS
This actually removed sourcemaps, not just the top level annotation in bindings.
This commit is contained in:
parent
cf05ff610f
commit
4b4fe80404
@ -63,7 +63,13 @@ int main(int argc, const char **argv) {
|
|||||||
janet_def(env, "process/config", janet_wrap_table(opts), "Boot options");
|
janet_def(env, "process/config", janet_wrap_table(opts), "Boot options");
|
||||||
|
|
||||||
/* Run bootstrap script to generate core image */
|
/* Run bootstrap script to generate core image */
|
||||||
status = janet_dobytes(env, janet_gen_boot, janet_gen_boot_size, "boot.janet", NULL);
|
const char *boot_file;
|
||||||
|
#ifdef JANET_NO_SOURCEMAPS
|
||||||
|
boot_file = NULL;
|
||||||
|
#else
|
||||||
|
boot_file = "boot.janet";
|
||||||
|
#endif
|
||||||
|
status = janet_dobytes(env, janet_gen_boot, janet_gen_boot_size, boot_file, NULL);
|
||||||
|
|
||||||
/* Deinitialize vm */
|
/* Deinitialize vm */
|
||||||
janet_deinit();
|
janet_deinit();
|
||||||
|
@ -629,7 +629,7 @@ JanetFuncDef *janetc_pop_funcdef(JanetCompiler *c) {
|
|||||||
}
|
}
|
||||||
memcpy(def->bytecode, c->buffer + scope->bytecode_start, s);
|
memcpy(def->bytecode, c->buffer + scope->bytecode_start, s);
|
||||||
janet_v__cnt(c->buffer) = scope->bytecode_start;
|
janet_v__cnt(c->buffer) = scope->bytecode_start;
|
||||||
if (NULL != c->mapbuffer) {
|
if (NULL != c->mapbuffer && c->source) {
|
||||||
size_t s = sizeof(JanetSourceMapping) * def->bytecode_length;
|
size_t s = sizeof(JanetSourceMapping) * def->bytecode_length;
|
||||||
def->sourcemap = malloc(s);
|
def->sourcemap = malloc(s);
|
||||||
if (NULL == def->sourcemap) {
|
if (NULL == def->sourcemap) {
|
||||||
|
@ -83,7 +83,7 @@
|
|||||||
(def p (peg/compile grammar))
|
(def p (peg/compile grammar))
|
||||||
|
|
||||||
# Just make sure is valgrind clean.
|
# Just make sure is valgrind clean.
|
||||||
(-> p make-image load-image)
|
(def p (-> p make-image load-image))
|
||||||
|
|
||||||
(assert (peg/match p "abc") "complex peg grammar 1")
|
(assert (peg/match p "abc") "complex peg grammar 1")
|
||||||
(assert (peg/match p "[1 2 3 4]") "complex peg grammar 2")
|
(assert (peg/match p "[1 2 3 4]") "complex peg grammar 2")
|
||||||
|
Loading…
x
Reference in New Issue
Block a user