diff --git a/lib/comp2.c b/lib/comp2.c index e6ed05c..80c2032 100644 --- a/lib/comp2.c +++ b/lib/comp2.c @@ -300,6 +300,7 @@ static int emit_byte_instruction (hcl_t* hcl, hcl_oob_t bc, const hcl_ioloc_t* s if (srcloc) { + hcl->code.locptr[hcl->code.bc.len] = srcloc->line; } diff --git a/lib/hcl.h b/lib/hcl.h index a5fbd45..5838577 100644 --- a/lib/hcl.h +++ b/lib/hcl.h @@ -552,7 +552,7 @@ struct hcl_function_t hcl_oop_t nargs; /* smooi. number of arguments */ hcl_oop_context_t home; /* home context. nil for the initial function */ - hcl_oop_t dbgi_file_offset; + hcl_oop_t dbgi; /* byte array containing debug information. nil if not available */ /* == variable indexed part == */ hcl_oop_t literal_frame[1]; /* it stores literals. it may not exist */ diff --git a/lib/read2.c b/lib/read2.c index 10b98a3..db5c558 100644 --- a/lib/read2.c +++ b/lib/read2.c @@ -1033,7 +1033,7 @@ retry: { int n; - n = end_include (hcl); + n = end_include(hcl); if (n <= -1) return -1; if (n >= 1) goto retry;