mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-06-17 05:54:12 +00:00
Code Issues 1 Releases Wiki Activity

Be more complete with JANET_NO_SOURCEMAPS

Browse Source 
This actually removed sourcemaps, not just
the top level annotation in bindings.
This commit is contained in:
Calvin Rose 2019-06-20 11:52:43 -04:00
parent cf05ff610f
commit 4b4fe80404
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/boot/boot.c
View File

@ -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();

2
src/core/compile.c
View File

@ -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) {

2
test/suite7.janet
View File

@ -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")