インスタンスを移動させるためのモジュールとサンプルです。
ランタイムの管理から外れるので、丁寧に扱ってください。
インスタンスを移動させるためのモジュールとサンプルです。
ランタイムの管理から外れるので、丁寧に扱ってください。
//自由に使ってください。tds12 #module m a #modinit int _a a = _a return #modcfunc f return a #modfunc del delmod thismod return #global #module #deffunc toclone var #deffunc _toclone int ppval dupptr pval,ppval,48,4 wpoke pval,2,2 return #deffunc toinited var _mv toinited1 _mv toinited2 _mv return #deffunc toinited1 var #deffunc _toinited1 int ppval dupptr pval,ppval,48,4 wpoke pval,2,1 return #deffunc toinited2 var _mv pmv = varptr(_mv) dupptr fv,pmv,16,4 wpoke fv,0,1 return return #global newmod inst,m,3 inst2 = inst toclone inst inst = 2 mes f(inst2) toinited inst2 delmod inst2