luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Type analysis of bit operators now works correctly.

Browse Source 
[COMPILER]
* BUG: Type analysis of bit operators now works correctly.
This commit is contained in:
gambas 2022-02-19 11:30:28 +01:00
parent 5a81b255e1
commit 2d681e7fa8
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
main/gbc/gbc_trans_expr.c
View File

@ -72,7 +72,8 @@ static void _drop_type(int n)
#define push_type_id(_id) fprintf(stderr, "push_type_id: %d in %s.%d\n", (_id), __func__, __LINE__), _push_type(TYPE_make_simple(_id)) #define push_type_id(_id) fprintf(stderr, "push_type_id: %d in %s.%d\n", (_id), __func__, __LINE__), _push_type(TYPE_make_simple(_id))
#define pop_type() (fprintf(stderr, "pop_type: in %s.%d\n", __func__, __LINE__),(_type[--_type_level])) #define pop_type() (fprintf(stderr, "pop_type: in %s.%d\n", __func__, __LINE__),(_type[--_type_level]))
#define drop_type(_n) fprintf(stderr, "drop_type: %d in %s.%d\n", (_n), __func__, __LINE__),_drop_type(_n) #define drop_type(_n) fprintf(stderr, "drop_type: %d in %s.%d\n", (_n), __func__, __LINE__),_drop_type(_n)
#define get_type_id(_i, _nparam) (fprintf(stderr, "get_type(%d,%d): %d in %s.%d\n", (_i), (_nparam), (_type[_type_level + (_i) - (_nparam)].t.id), __func__, __LINE__),(_type[_type_level + (_i) - (_nparam)].t.id)) #define get_type(_i, _nparam) (fprintf(stderr, "get_type(%d,%d): %d in %s.%d\n", (_i), (_nparam), (_type[_type_level + (_i) - (_nparam)].l), __func__, __LINE__),(_type[_type_level + (_i) - (_nparam)]))
#define get_type_id(_i, _nparam) (fprintf(stderr, "get_type_id(%d,%d): %d in %s.%d\n", (_i), (_nparam), (_type[_type_level + (_i) - (_nparam)].t.id), __func__, __LINE__),(_type[_type_level + (_i) - (_nparam)].t.id))
#define dup_type() fprintf(stderr, "dup_type: in %s.%d\n", __func__, __LINE__),push_type(_type[_type_level - 1]) #define dup_type() fprintf(stderr, "dup_type: in %s.%d\n", __func__, __LINE__),push_type(_type[_type_level - 1])
#else #else
@ -557,6 +558,10 @@ static void trans_operation(short op, short nparam, PATTERN previous)
ftype = TYPE_make_simple(T_VARIANT); ftype = TYPE_make_simple(T_VARIANT);
break; break;
case RST_BCLR:
ftype = get_type(0, nparam);
break;
/*case RST_GET: /*case RST_GET:
ftype = get_type(0, nparam); ftype = get_type(0, nparam);
if (ftype.t.id == T_OBJECT) if (ftype.t.id == T_OBJECT)
@ -572,6 +577,8 @@ static void trans_operation(short op, short nparam, PATTERN previous)
break;*/ break;*/
default: default:
if (type > T_OBJECT)
ERROR_panic("Operator type analysis not implemented.");
ftype = TYPE_make_simple(type); ftype = TYPE_make_simple(type);
} }