LLVM/C: Implement CPtrCompare

Author: Smit-create

src/libasr/codegen/asr_to_c_cpp.h

@@ -1556,6 +1556,10 @@ R"(#include <stdio.h>
         handle_Compare(x);
     }
 
+    void visit_CPtrCompare(const ASR::CPtrCompare_t &x) {
+        handle_Compare(x);
+    }
+
     template<typename T>
     void handle_Compare(const T &x) {
         CHECK_FAST_C_CPP(compiler_options, x)
@@ -1663,6 +1667,10 @@ R"(#include <stdio.h>
         }
     }
 
+    void visit_PointerNullConstant(const ASR::PointerNullConstant_t& /*x*/) {
+        src = "NULL";
+    }
+
     void visit_GetPointer(const ASR::GetPointer_t& x) {
         CHECK_FAST_C_CPP(compiler_options, x)
         self().visit_expr(*x.m_arg);

src/libasr/codegen/asr_to_llvm.cpp

@@ -5134,6 +5134,49 @@ class ASRToLLVMVisitor : public ASR::BaseVisitor<ASRToLLVMVisitor>
         }
     }
 
+    void visit_CPtrCompare(const ASR::CPtrCompare_t &x) {
+        if (x.m_value) {
+            this->visit_expr_wrapper(x.m_value, true);
+            return;
+        }
+        this->visit_expr_wrapper(x.m_left, true);
+        llvm::Value *left = tmp;
+        left = builder->CreatePtrToInt(left, getIntType(8, false));
+        this->visit_expr_wrapper(x.m_right, true);
+        llvm::Value *right = tmp;
+        right = builder->CreatePtrToInt(right, getIntType(8, false));
+        switch (x.m_op) {
+            case (ASR::cmpopType::Eq) : {
+                tmp = builder->CreateICmpEQ(left, right);
+                break;
+            }
+            case (ASR::cmpopType::Gt) : {
+                tmp = builder->CreateICmpSGT(left, right);
+                break;
+            }
+            case (ASR::cmpopType::GtE) : {
+                tmp = builder->CreateICmpSGE(left, right);
+                break;
+            }
+            case (ASR::cmpopType::Lt) : {
+                tmp = builder->CreateICmpSLT(left, right);
+                break;
+            }
+            case (ASR::cmpopType::LtE) : {
+                tmp = builder->CreateICmpSLE(left, right);
+                break;
+            }
+            case (ASR::cmpopType::NotEq) : {
+                tmp = builder->CreateICmpNE(left, right);
+                break;
+            }
+            default : {
+                throw CodeGenError("Comparison operator not implemented",
+                        x.base.base.loc);
+            }
+        }
+    }
+
     void visit_RealCompare(const ASR::RealCompare_t &x) {
         if (x.m_value) {
             this->visit_expr_wrapper(x.m_value, true);