modules/cldc-compact/src/test/resources/lang/bytecode/TestDupXTwoJI.j

   1 ; -*- Mode: Jasmin; indent-tabs-mode: t; tab-width: 4 -*-
   2 ; ---------------------------------------------------------------------------
   3 ; SquirrelJME
   4 ;     Copyright (C) Stephanie Gawroriski <xer@multiphasicapps.net>
   5 ; ---------------------------------------------------------------------------
   6 ; SquirrelJME is under the Mozilla Public License Version 2.0.
   7 ; See license.mkd for licensing and copyright information.
   8 ; ---------------------------------------------------------------------------
   9
  10 .class public lang/bytecode/TestDupXTwoJI
  11 .super net/multiphasicapps/tac/TestInteger
  12
  13 .method public <init>()V
  14         aload 0
  15         invokenonvirtual net/multiphasicapps/tac/TestInteger/<init>()V
  16         return
  17 .end method
  18
  19 .method public test()I
  20 .limit stack 5
  21
  22 ; b
  23         sipush 1234
  24         i2l
  25
  26 ; a
  27         sipush 3000
  28
  29 ; J b, I a -> I a, J b, I a
  30         dup_x2
  31
  32 ; I a -> J a [I a, J b, J a]
  33         i2l
  34 ; J b + J a -> x [I a, J x]
  35         ladd
  36
  37 ; J x -> I x [I a, I x]
  38         l2i
  39
  40 ; I a + I x -> I y [I y]
  41         iadd
  42
  43         ireturn
  44 .end method
  45