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

minor update of an error message

Browse Source
This commit is contained in:
hyung-hwan 2021-12-31 06:31:57 +00:00
parent 72724799b3
commit ff6f895c31
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
bin/main.c
View File

@ -131,7 +131,7 @@ static HCL_INLINE int open_input (hcl_t* hcl, hcl_ioinarg_t* arg)
fn = ((bb_t*)arg->includer->handle)->fn; fn = ((bb_t*)arg->includer->handle)->fn;
fb = get_base_name (fn); fb = get_base_name(fn);
parlen = fb - fn; parlen = fb - fn;
bb = (bb_t*)hcl_callocmem (hcl, HCL_SIZEOF(*bb) + (HCL_SIZEOF(hcl_bch_t) * (parlen + bcslen + 1))); bb = (bb_t*)hcl_callocmem (hcl, HCL_SIZEOF(*bb) + (HCL_SIZEOF(hcl_bch_t) * (parlen + bcslen + 1)));
@ -166,7 +166,7 @@ static HCL_INLINE int open_input (hcl_t* hcl, hcl_ioinarg_t* arg)
#endif #endif
if (!bb->fp) if (!bb->fp)
{ {
hcl_seterrnum (hcl, HCL_EIOERR); hcl_seterrbfmt (hcl, HCL_EIOERR, "unable to open %hs", bb->fn);
goto oops; goto oops;
} }
@ -309,7 +309,10 @@ static HCL_INLINE int open_output (hcl_t* hcl, hcl_iooutarg_t* arg)
#endif #endif
if (!fp) if (!fp)
{ {
hcl_seterrnum (hcl, HCL_EIOERR); if (xtn->print_path)
hcl_seterrbfmt (hcl, HCL_EIOERR, "unable to open %hs", xtn->print_path);
else
hcl_seterrnum (hcl, HCL_EIOERR);
return -1; return -1;
} }