Bytecode: move CodeLoad class out of the preprocessor

2023-02-21 16:01:27 -05:00 · 2023-02-21 16:01:27 -05:00 · 008a80910e
parent a88b921991
commit 008a80910e
1 changed files with 0 additions and 349 deletions
--- a/src/Bytecode.hh
+++ b/src/Bytecode.hh
@ -29,10 +29,6 @@

 #include "CommonEnums.hh"

-#ifdef BYTECODE_MEX
-# include <dynmex.h>
-#endif
-
 using namespace std;

 // The different opcodes of bytecode
@ -1095,349 +1091,4 @@ BytecodeWriter &operator<<(BytecodeWriter &code_file, const FCALL_ &instr);
 template<>
 BytecodeWriter &operator<<(BytecodeWriter &code_file, const FBEGINBLOCK_ &instr);

-
-#ifdef BYTECODE_MEX
-using instructions_list_t = vector<BytecodeInstruction *>;
-class CodeLoad
-{
-private:
-  char *code;
-  int nb_blocks;
-  vector<size_t> begin_block;
-public:
-
-  int
-  get_block_number() const
-  {
-    return nb_blocks;
-  };
-
-  size_t
-  get_begin_block(int block) const
-  {
-    return begin_block[block];
-  }
-  void *
-  get_current_code() const
-  {
-    return code;
-  };
-  instructions_list_t
-  get_op_code(const filesystem::path &codfile)
-  {
-    instructions_list_t tags_liste;
-    ifstream CompiledCode;
-    streamoff Code_Size;
-    CompiledCode.open(codfile, ios::in | ios::binary| ios::ate);
-    if (!CompiledCode.is_open())
-      return tags_liste;
-    Code_Size = CompiledCode.tellg();
-    CompiledCode.seekg(ios::beg);
-    code = static_cast<char *>(mxMalloc(Code_Size));
-    CompiledCode.seekg(0);
-    CompiledCode.read(reinterpret_cast<char *>(code), Code_Size);
-    CompiledCode.close();
-    nb_blocks = 0;
-    bool done = false;
-    int instruction = 0;
-    while (!done)
-      {
-        BytecodeInstruction *instr {reinterpret_cast<BytecodeInstruction *>(code)};
-        switch (*reinterpret_cast<Tags *>(code))
-          {
-          case Tags::FLDZ:
-# ifdef DEBUGL
-            mexPrintf("FLDZ = %d size = %d\n", Tags::FLDZ, sizeof(FLDZ_));
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDZ_);
-            break;
-          case Tags::FEND:
-# ifdef DEBUGL
-            mexPrintf("FEND\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FEND_);
-            done = true;
-            break;
-          case Tags::FENDBLOCK:
-# ifdef DEBUGL
-            mexPrintf("FENDBLOCK\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FENDBLOCK_);
-            break;
-          case Tags::FENDEQU:
-# ifdef DEBUGL
-            mexPrintf("FENDEQU\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FENDEQU_);
-            break;
-          case Tags::FDIMT:
-# ifdef DEBUGL
-            mexPrintf("FDIMT = %d size = %d\n", Tags::FDIMT, sizeof(FDIMT_));
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FDIMT_);
-            break;
-          case Tags::FDIMST:
-# ifdef DEBUGL
-            mexPrintf("FDIMST\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FDIMST_);
-            break;
-          case Tags::FNUMEXPR:
-# ifdef DEBUGL
-            mexPrintf("FNUMEXPR\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FNUMEXPR_);
-            break;
-          case Tags::FLDC:
-# ifdef DEBUGL
-            mexPrintf("FLDC\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDC_);
-            break;
-          case Tags::FLDU:
-# ifdef DEBUGL
-            mexPrintf("FLDU\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDU_);
-            break;
-          case Tags::FLDSU:
-# ifdef DEBUGL
-            mexPrintf("FLDSU\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDSU_);
-            break;
-          case Tags::FLDR:
-# ifdef DEBUGL
-            mexPrintf("FLDR\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDR_);
-            break;
-          case Tags::FLDT:
-# ifdef DEBUGL
-            mexPrintf("FLDT\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDT_);
-            break;
-          case Tags::FLDST:
-# ifdef DEBUGL
-            mexPrintf("FLDST\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDST_);
-            break;
-          case Tags::FSTPT:
-# ifdef DEBUGL
-            mexPrintf("FSTPT = %d size = %d\n", Tags::FSTPT, sizeof(FSTPT_));
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPT_);
-            break;
-          case Tags::FSTPST:
-# ifdef DEBUGL
-            mexPrintf("FSTPST\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPST_);
-            break;
-          case Tags::FSTPR:
-# ifdef DEBUGL
-            mexPrintf("FSTPR\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPR_);
-            break;
-          case Tags::FSTPU:
-# ifdef DEBUGL
-            mexPrintf("FSTPU\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPU_);
-            break;
-          case Tags::FSTPSU:
-# ifdef DEBUGL
-            mexPrintf("FSTPSU\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPSU_);
-            break;
-          case Tags::FSTPG:
-# ifdef DEBUGL
-            mexPrintf("FSTPG\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPG_);
-            break;
-          case Tags::FSTPG2:
-# ifdef DEBUGL
-            mexPrintf("FSTPG2\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPG2_);
-            break;
-          case Tags::FSTPG3:
-# ifdef DEBUGL
-            mexPrintf("FSTPG3\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPG3_);
-            break;
-          case Tags::FUNARY:
-# ifdef DEBUGL
-            mexPrintf("FUNARY\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FUNARY_);
-            break;
-          case Tags::FBINARY:
-# ifdef DEBUGL
-            mexPrintf("FBINARY\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FBINARY_);
-            break;
-          case Tags::FTRINARY:
-# ifdef DEBUGL
-            mexPrintf("FTRINARY\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FTRINARY_);
-            break;
-          case Tags::FLDVS:
-# ifdef DEBUGL
-            mexPrintf("FLDVS\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDVS_);
-            break;
-          case Tags::FLDSV:
-# ifdef DEBUGL
-            mexPrintf("FLDSV\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDSV_);
-            break;
-          case Tags::FSTPSV:
-# ifdef DEBUGL
-            mexPrintf("FSTPSV\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPSV_);
-            break;
-          case Tags::FLDV:
-# ifdef DEBUGL
-            mexPrintf("FLDV\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDV_);
-            break;
-          case Tags::FSTPV:
-# ifdef DEBUGL
-            mexPrintf("FSTPV\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPV_);
-            break;
-          case Tags::FBEGINBLOCK:
-# ifdef DEBUGL
-            mexPrintf("FBEGINBLOCK\n");
-# endif
-            {
-              auto *fbegin_block = new FBEGINBLOCK_{code};
-              begin_block.push_back(tags_liste.size());
-              tags_liste.push_back(fbegin_block);
-              nb_blocks++;
-            }
-            break;
-          case Tags::FJMPIFEVAL:
-# ifdef DEBUGL
-            mexPrintf("FJMPIFEVAL\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FJMPIFEVAL_);
-            break;
-          case Tags::FJMP:
-# ifdef DEBUGL
-            mexPrintf("FJMP\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FJMP_);
-            break;
-          case Tags::FCALL:
-            {
-# ifdef DEBUGL
-              mexPrintf("FCALL\n");
-# endif
-              auto *fcall = new FCALL_{code};
-              tags_liste.push_back(fcall);
-# ifdef DEBUGL
-              mexPrintf("FCALL finish\n"); mexEvalString("drawnow;");
-              mexPrintf("-- *code=%d\n", *code); mexEvalString("drawnow;");
-# endif
-            }
-            break;
-          case Tags::FLDTEF:
-# ifdef DEBUGL
-            mexPrintf("FLDTEF\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDTEF_);
-            break;
-          case Tags::FSTPTEF:
-# ifdef DEBUGL
-            mexPrintf("FSTPTEF\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPTEF_);
-            break;
-          case Tags::FLDTEFD:
-# ifdef DEBUGL
-            mexPrintf("FLDTEFD\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDTEFD_);
-            break;
-          case Tags::FSTPTEFD:
-# ifdef DEBUGL
-            mexPrintf("FSTPTEFD\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPTEFD_);
-            break;
-          case Tags::FLDTEFDD:
-# ifdef DEBUGL
-            mexPrintf("FLDTEFDD\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FLDTEFDD_);
-            break;
-          case Tags::FSTPTEFDD:
-# ifdef DEBUGL
-            mexPrintf("FSTPTEFDD\n");
-# endif
-            tags_liste.push_back(instr);
-            code += sizeof(FSTPTEFDD_);
-            break;
-          default:
-            mexPrintf("Unknown Tag value=%d code=%x\n", *code, code);
-            done = true;
-          }
-        instruction++;
-      }
-    return tags_liste;
-  };
-};
-#endif // BYTECODE_MEX
-
 #endif // _BYTECODE_HH