HspCmd/dup

  1
  2
  3
  4
  5

    ; 通常のクローン作成
    a = 10
    dup b, a
    mes strf("a[0x%p] = ",varptr(a)) + a
    mes strf("b[0x%p] = ",varptr(b)) + b

  1
  2
  3
  4
  5
  6
  7
  8
  9

    dim ary, 5, 2
    dup c, ary
 
    repeat 5*2
        m = cnt/5
        n = cnt\5
        ary(n,m) = cnt
        mes strf("ary[0x%p] = ",varptr(ary(n,m)))+ary(n,m)+strf("\tc[0x%p] = ",varptr(c.cnt))+c.cnt
    loop