hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

minor code change

Browse Source
This commit is contained in:
hyung-hwan 2021-01-26 15:47:22 +00:00
parent 8829e27c33
commit 79d0385600
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/comp2.c
View File

@ -300,6 +300,7 @@ static int emit_byte_instruction (hcl_t* hcl, hcl_oob_t bc, const hcl_ioloc_t* s
if (srcloc) if (srcloc)
{ {
hcl->code.locptr[hcl->code.bc.len] = srcloc->line; hcl->code.locptr[hcl->code.bc.len] = srcloc->line;
} }

2
lib/hcl.h
View File

@ -552,7 +552,7 @@ struct hcl_function_t
hcl_oop_t nargs; /* smooi. number of arguments */ hcl_oop_t nargs; /* smooi. number of arguments */
hcl_oop_context_t home; /* home context. nil for the initial function */ 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 == */ /* == variable indexed part == */
hcl_oop_t literal_frame[1]; /* it stores literals. it may not exist */ hcl_oop_t literal_frame[1]; /* it stores literals. it may not exist */

2
lib/read2.c
View File

@ -1033,7 +1033,7 @@ retry:
{ {
int n; int n;
n = end_include (hcl); n = end_include(hcl);
if (n <= -1) return -1; if (n <= -1) return -1;
if (n >= 1) goto retry; if (n >= 1) goto retry;