Method genCode

src/hx/cppia/ArrayBuiltin.cpp:223–381

   void genCode(CppiaCompiler *compiler, const JitVal &inDest, ExprType destType) HXCPP_OVERRIDE
   {
      ExprType elemType = (ExprType)ExprTypeOf<ELEM>::value;
      ExprType rightHandType;
      switch((int)FUNC::op)
      {
         case aoMult:
         case aoDiv:
         case aoSub:
         case aoMod:
            rightHandType = etFloat;
            break;

         case aoAnd:
         case aoOr:
         case aoXOr:
         case aoShl:
         case aoShr:
         case aoUShr:
            rightHandType = etInt;

         default:
            rightHandType = elemType;
      }

      if ((int)FUNC::op==aoSet)
      {
         JitTemp thisVal(compiler,jtPointer);
         thisExpr->genCode(compiler, thisVal, etObject);

         // sJitTemp1 = index
         JitTemp index(compiler,jtInt);
         args[0]->genCode(compiler, index, etInt);

         // Right-hand-size
         JitTemp value(compiler,getJitType(rightHandType));
         args[1]->genCode(compiler, value, rightHandType);

         compiler->move(sJitTemp1,index);

         // sJitTemp0 = this
         compiler->move(sJitTemp0, thisVal);


         // Check length..
         JumpId lengthOk = compiler->compare( cmpI_LESS, sJitTemp1.as(jtInt),
                                            sJitTemp0.star(jtInt, ArrayBase::lengthOffset()) );


         JumpId enough = compiler->compare( cmpI_LESS, sJitTemp1.as(jtInt),
                                            sJitTemp0.star(jtInt, ArrayBase::allocOffset()) );
         // Make some room
         compiler->callNative( (void *)array_expand_size,  sJitTemp0.as(jtPointer), sJitTemp1.as(jtInt) );
         // sJitTemp0 is still this, restore length...
         compiler->move( sJitTemp1,index);

         compiler->comeFrom(enough);