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

updated the same literal check in hcl_addliteraltocode()
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan 2024-09-25 00:40:46 +09:00
parent 2595e5b35d
commit c9a96e02f7
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/xchg.c
View File

@ -679,16 +679,13 @@ int hcl_addliteraltocode (hcl_t* hcl, hcl_code_t* code, hcl_oop_t obj, hcl_oow_t
{ {
tmp = ((hcl_oop_oop_t)code->lit.arr)->slot[i]; tmp = ((hcl_oop_oop_t)code->lit.arr)->slot[i];
if (tmp == obj) if (tmp == obj || hcl_equalobjs(hcl, obj, tmp))
{ {
/* this removes redundancy of symbols, characters, and integers. */ /* this removes redundancy of symbols, characters, and integers.
if (index) *index = i - lfbase; * a string object requires equality check. however,
return 0; * the string created to the literal frame
} * must be made immutable. non-immutable string literals are
else if (HCL_IS_STRING(hcl, obj) && HCL_IS_STRING(hcl, tmp) && hcl_equalobjs(hcl, obj, tmp)) * source of various problems */
{
/* a string object requires equality check. however, the string created to the literal frame
* must be made immutable. non-immutable string literals are source of various problems */
if (index) *index = i - lfbase; if (index) *index = i - lfbase;
return 0; return 0;
} }