Missing functionality in binary VMs.

data61 · Apr 8, 2024 · bec7265 · bec7265
1 parent 90024e5
commit bec7265
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git a/GC/Processor.h b/GC/Processor.h
@@ -112,6 +112,8 @@ class Processor : public ::ProcessorBase, public GC::RuntimeBranching
     void print_str(int n);
     void print_float(const vector<int>& args);
     void print_float_prec(int n);
+
+    void incint(const BaseInstruction& instruction);
 };
 
 template <class T>

diff --git a/GC/Processor.hpp b/GC/Processor.hpp
@@ -460,6 +460,19 @@ void Processor<T>::print_float_prec(int n)
     out << setprecision(n);
 }
 
+template<class T>
+void Processor<T>::incint(const BaseInstruction& instruction)
+{
+    auto dest = &I[instruction.get_r(0)];
+    auto base = I[instruction.get_r(1)];
+    auto& start = instruction.get_start();
+    for (int i = 0; i < instruction.get_size(); i++)
+    {
+        int inc = (i / start[0]) % start[1];
+        *dest++ = base + inc * int(instruction.get_n());
+    }
+}
+
 } /* namespace GC */
 
 #endif
diff --git a/GC/instructions.h b/GC/instructions.h
@@ -109,6 +109,7 @@
     X(SUBINT, I0 = PI1 - PI2) \
     X(MULINT, I0 = PI1 * PI2) \
     X(DIVINT, I0 = PI1 / PI2) \
+    X(INCINT, PROC.incint(instruction)) \
     X(JMP, PROC.PC += IMM) \
     X(JMPNZ, if (I0 != 0) PROC.PC += IMM) \
     X(JMPEQZ, if (I0 == 0) PROC.PC += IMM) \