Make LLVM integer support optional

Author: adazem009

CMakeLists.txt

@@ -10,6 +10,7 @@ option(LIBSCRATCHCPP_BUILD_UNIT_TESTS "Build unit tests" ON)
 option(LIBSCRATCHCPP_NETWORK_SUPPORT "Support for downloading projects" ON)
 option(LIBSCRATCHCPP_PRINT_LLVM_IR "Print LLVM IR of compiled Scratch scripts (for debugging)" OFF)
 option(LIBSCRATCHCPP_ENABLE_CODE_ANALYZER "Analyze Scratch scripts to enable various optimizations" ON)
+option(LIBSCRATCHCPP_LLVM_INTEGER_SUPPORT "Use integers when possible to enable various optimizations" ON)
 option(LIBSCRATCHCPP_ENABLE_SANITIZER "Enable sanitizer to detect memory issues" OFF)
 
 if (LIBSCRATCHCPP_ENABLE_SANITIZER)
@@ -126,6 +127,10 @@ if(LIBSCRATCHCPP_ENABLE_CODE_ANALYZER)
     target_compile_definitions(scratchcpp PRIVATE ENABLE_CODE_ANALYZER)
 endif()
 
+if(LIBSCRATCHCPP_LLVM_INTEGER_SUPPORT)
+    target_compile_definitions(scratchcpp PRIVATE LLVM_INTEGER_SUPPORT)
+endif()
+
 # Macros
 target_compile_definitions(scratchcpp PRIVATE LIBSCRATCHCPP_LIBRARY)
 target_compile_definitions(scratchcpp PRIVATE LIBSCRATCHCPP_VERSION="${PROJECT_VERSION}")

src/engine/internal/llvm/instructions/instructionbuilder.cpp

@@ -10,11 +10,14 @@
 #include "variables.h"
 #include "lists.h"
 #include "procedures.h"
+#include "../llvminstruction.h"
+#include "../llvmbuildutils.h"
 
 using namespace libscratchcpp;
 using namespace libscratchcpp::llvmins;
 
-InstructionBuilder::InstructionBuilder(LLVMBuildUtils &utils)
+InstructionBuilder::InstructionBuilder(LLVMBuildUtils &utils) :
+    m_utils(utils)
 {
     // Create groups
     m_groups.push_back(std::make_shared<Functions>(utils));
@@ -34,8 +37,14 @@ LLVMInstruction *InstructionBuilder::process(LLVMInstruction *ins)
     for (const auto &group : m_groups) {
         ProcessResult result = group->process(ins);
 
-        if (result.match)
+        if (result.match) {
+#ifndef LLVM_INTEGER_SUPPORT
+            if (ins->functionReturnReg)
+                ins->functionReturnReg->isInt = m_utils.builder().getInt1(false);
+#endif
+
             return result.next;
+        }
     }
 
     assert(false); // instruction not found

src/engine/internal/llvm/instructions/instructionbuilder.h

@@ -15,6 +15,7 @@ class InstructionBuilder
         LLVMInstruction *process(LLVMInstruction *ins);
 
     private:
+        LLVMBuildUtils &m_utils;
         std::vector<std::shared_ptr<InstructionGroup>> m_groups;
 };
 

src/engine/internal/llvm/llvmbuildutils.cpp

@@ -65,8 +65,12 @@ void LLVMBuildUtils::init(llvm::Function *function, BlockPrototype *procedurePro
 
     // Init registers
     for (auto reg : regs) {
+#ifdef LLVM_INTEGER_SUPPORT
         bool isIntConst = (reg->isConst() && optimizeRegisterType(reg.get()) == Compiler::StaticType::Number && reg->constValue().toDouble() == std::floor(reg->constValue().toDouble()));
         reg->isInt = m_builder.getInt1(isIntConst);
+#else
+        reg->isInt = m_builder.getInt1(false);
+#endif
         reg->intValue = llvm::ConstantInt::get(m_builder.getInt64Ty(), reg->constValue().toDouble(), true);
     }