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

minor code clean-up
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source
This commit is contained in:
hyung-hwan 2023-11-21 16:30:20 +09:00
parent 3d85965b98
commit 6a861d2db5
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/comp.c
View File

@ -33,7 +33,7 @@ enum
VAR_INST, /* instance variable */ VAR_INST, /* instance variable */
VAR_CLASS_I, /* class variable in class initialization scope */ VAR_CLASS_I, /* class variable in class initialization scope */
VAR_CLASS_CM, /* class variable in class method scope */ VAR_CLASS_CM, /* class variable in class method scope */
VAR_CLASS_IM, /* class variable in instance method scope */ VAR_CLASS_IM /* class variable in instance method scope */
}; };
enum enum
@ -381,7 +381,7 @@ HCL_INFO2 (hcl, "CLASS NAMED VAR [%.*js]\n", name->len, name->ptr);
vi->type = VAR_INDEXED; vi->type = VAR_INDEXED;
vi->ctx_offset = hcl->c->fnblk.depth - i; /* context offset */ vi->ctx_offset = hcl->c->fnblk.depth - i; /* context offset */
vi->index_in_ctx = index; vi->index_in_ctx = index;
//HCL_INFO4 (hcl, "FOUND ...[%.*js]................ ===> ctx_offset %d index %d\n", name->len, name->ptr, (int)(vi->ctx_offset), (int)vi->index_in_ctx); /*HCL_INFO4 (hcl, "FOUND ...[%.*js]................ ===> ctx_offset %d index %d\n", name->len, name->ptr, (int)(vi->ctx_offset), (int)vi->index_in_ctx);*/
if (vi->ctx_offset > 0) if (vi->ctx_offset > 0)
{ {
@ -395,7 +395,7 @@ HCL_INFO2 (hcl, "CLASS NAMED VAR [%.*js]\n", name->len, name->ptr);
} }
} }
//HCL_INFO2 (hcl, "NOT FOUND => %.*js\n", name->len, name->ptr); /*HCL_INFO2 (hcl, "NOT FOUND => %.*js\n", name->len, name->ptr); */
return 0; /* not found */ return 0; /* not found */
} }
@ -1507,7 +1507,7 @@ enum
COP_POST_TRY, COP_POST_TRY,
COP_POST_CATCH, COP_POST_CATCH,
COP_POST_LAMBDA, COP_POST_LAMBDA
}; };
/* ========================================================================= */ /* ========================================================================= */

2
lib/err.c
View File

@ -250,7 +250,7 @@ const hcl_uch_t* hcl_geterrumsg (hcl_t* hcl)
const hcl_ooch_t* msg; const hcl_ooch_t* msg;
hcl_oow_t wcslen, mbslen; hcl_oow_t wcslen, mbslen;
msg = (hcl->errmsg.len <= 0)? hcl_errnum_to_errstrerrstr(hcl->errnum): hcl->errmsg.buf; msg = (hcl->errmsg.len <= 0)? hcl_errnum_to_errstr(hcl->errnum): hcl->errmsg.buf;
wcslen = HCL_COUNTOF(hcl->errmsg.xerrmsg); wcslen = HCL_COUNTOF(hcl->errmsg.xerrmsg);
hcl_conv_bcstr_to_ucstr_with_cmgr (msg, &mbslen, hcl->errmsg.xerrmsg, &wcslen, hcl_getcmgr(hcl), 1); hcl_conv_bcstr_to_ucstr_with_cmgr (msg, &mbslen, hcl->errmsg.xerrmsg, &wcslen, hcl_getcmgr(hcl), 1);

4
lib/exec.c
View File

@ -2412,7 +2412,7 @@ static int is_regular_executable_file_by_me(const char *path)
{ {
struct stat st; struct stat st;
if (stat(path, &st) == -1) return 0; if (stat(path, &st) == -1) return 0;
return S_ISREG(st.st_mode) && access(path, X_OK) == 0; //? use eaccess instead?? return S_ISREG(st.st_mode) && access(path, X_OK) == 0; /* use eaccess instead?? */
} }
static char* find_exec (hcl_t* hcl, const char *name) static char* find_exec (hcl_t* hcl, const char *name)
@ -3847,7 +3847,7 @@ if (do_throw(hcl, hcl->_nil, fetched_instruction_pointer) <= -1)
} }
else sc = hcl->_nil; else sc = hcl->_nil;
t = hcl_makeclass(hcl, sc, b2, b3, ivars_str, cvars_str); // TOOD: pass variable information... t = hcl_makeclass(hcl, sc, b2, b3, ivars_str, cvars_str); /* TOOD: pass variable information... */
if (HCL_UNLIKELY(!t)) goto oops_with_errmsg_supplement; if (HCL_UNLIKELY(!t)) goto oops_with_errmsg_supplement;
/* push the class created to the class stack. but don't push to the normal operation stack */ /* push the class created to the class stack. but don't push to the normal operation stack */

2
lib/hcl.h
View File

@ -93,7 +93,7 @@ enum hcl_errnum_t
HCL_EEXCEPT, /**< runtime error - exception not handled */ HCL_EEXCEPT, /**< runtime error - exception not handled */
HCL_ESTKOVRFLW, /**< runtime error - stack overflow */ HCL_ESTKOVRFLW, /**< runtime error - stack overflow */
HCL_ESTKUNDFLW, /**< runtime error - stack overflow */ HCL_ESTKUNDFLW, /**< runtime error - stack overflow */
HCL_EUNDEFVAR, /**< runtime error - undefined variable access */ HCL_EUNDEFVAR /**< runtime error - undefined variable access */
}; };
typedef enum hcl_errnum_t hcl_errnum_t; typedef enum hcl_errnum_t hcl_errnum_t;