Skip to content

Commit 8982537

Browse files
Merge pull request #2431 from Thirumalai-Shaktivel/symbolic_03
[ASR Pass] Symbolic: Simplify the symbolic pass handling
2 parents 7899add + 6a7b2cd commit 8982537

File tree

2 files changed

+802
-1172
lines changed

2 files changed

+802
-1172
lines changed

src/libasr/pass/intrinsic_function_registry.h

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -251,11 +251,11 @@ class ASRBuilder {
251251
false, nullptr, 0, false, false, false));
252252

253253
// Types -------------------------------------------------------------------
254-
#define int32 TYPE(ASR::make_Integer_t(al, loc, 4))
254+
#define int32 ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4))
255255
#define int64 TYPE(ASR::make_Integer_t(al, loc, 8))
256256
#define real32 TYPE(ASR::make_Real_t(al, loc, 4))
257257
#define real64 TYPE(ASR::make_Real_t(al, loc, 8))
258-
#define logical TYPE(ASR::make_Logical_t(al, loc, 4))
258+
#define logical ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4))
259259
#define character(x) TYPE(ASR::make_Character_t(al, loc, 1, x, nullptr))
260260
#define List(x) TYPE(ASR::make_List_t(al, loc, x))
261261

@@ -285,7 +285,7 @@ class ASRBuilder {
285285

286286
// Expressions -------------------------------------------------------------
287287
#define i(x, t) EXPR(ASR::make_IntegerConstant_t(al, loc, x, t))
288-
#define i32(x) EXPR(ASR::make_IntegerConstant_t(al, loc, x, int32))
288+
#define i32(x) ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, x, int32))
289289
#define i32_n(x) EXPR(ASR::make_IntegerUnaryMinus_t(al, loc, i32(abs(x)), \
290290
int32, i32(x)))
291291
#define i32_neg(x, t) EXPR(ASR::make_IntegerUnaryMinus_t(al, loc, x, t, nullptr))
@@ -414,7 +414,7 @@ class ASRBuilder {
414414
}
415415

416416
// Compare -----------------------------------------------------------------
417-
#define iEq(x, y) EXPR(ASR::make_IntegerCompare_t(al, loc, x, \
417+
#define iEq(x, y) ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc, x, \
418418
ASR::cmpopType::Eq, y, logical, nullptr))
419419
#define iNotEq(x, y) EXPR(ASR::make_IntegerCompare_t(al, loc, x, \
420420
ASR::cmpopType::NotEq, y, logical, nullptr))

0 commit comments

Comments
 (0)