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

removed some unused variables in read.c

Browse Source
This commit is contained in:
hyung-hwan 2022-07-31 04:18:09 +00:00
parent 7263ddf7e9
commit e12033f81a
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/read.c
View File

@ -1395,7 +1395,6 @@ retry:
break; break;
} }
done:
#if defined(HCL_DEBUG_LEXER) #if defined(HCL_DEBUG_LEXER)
HCL_DEBUG2 (hcl, "TOKEN: [%.*js]\n", (hcl_ooi_t)TOKEN_NAME_LEN(hcl), TOKEN_NAME_PTR(hcl)); HCL_DEBUG2 (hcl, "TOKEN: [%.*js]\n", (hcl_ooi_t)TOKEN_NAME_LEN(hcl), TOKEN_NAME_PTR(hcl));
#endif #endif
@ -1543,7 +1542,7 @@ static HCL_INLINE int enter_list (hcl_t* hcl, const hcl_ioloc_t* loc, int flagv)
static HCL_INLINE hcl_cnode_t* leave_list (hcl_t* hcl, int* flagv, int* oldflagv) static HCL_INLINE hcl_cnode_t* leave_list (hcl_t* hcl, int* flagv, int* oldflagv)
{ {
hcl_rstl_t* rstl; hcl_rstl_t* rstl;
hcl_cnode_t* head, * list; hcl_cnode_t* head;
hcl_ioloc_t loc; hcl_ioloc_t loc;
int fv, concode; int fv, concode;
@ -1843,7 +1842,7 @@ static hcl_cnode_t* read_object (hcl_t* hcl)
/* this function read an s-expression non-recursively /* this function read an s-expression non-recursively
* by manipulating its own stack. */ * by manipulating its own stack. */
int level = 0, data_list_level = 0, flagv = 0; int level = 0, flagv = 0;
hcl_cnode_t* obj = HCL_NULL; hcl_cnode_t* obj = HCL_NULL;
while (1) while (1)
@ -2691,7 +2690,6 @@ static int feed_process_token (hcl_t* hcl)
if (frd->level <= 0) if (frd->level <= 0)
{ {
int n; int n;
hcl_cb_t* cb;
/* upon exit, we must be at the top level */ /* upon exit, we must be at the top level */
HCL_ASSERT (hcl, frd->level == 0); HCL_ASSERT (hcl, frd->level == 0);