allocmem of task.c corrected

k-ueda · k-ueda · commit b9e2927e0f73 · 2014-05-09T01:53:09.000+09:00
diff --git a/src/task.c b/src/task.c
@@ -945,6 +945,7 @@ static BOOL interpret(LmnReactCxt *rc, LmnRule rule, LmnRuleInstr instr)
                 v[i].wt = (LmnWord)t;
               } else {
                 t = 0;
+//              v[i].wt = wt(rc, i); // allocmem命令の場合はTT_OTHERになっている(2014-05-08 ueda)
                 //lmn_fatal("implementation error");
               }
             }
@@ -1818,6 +1819,7 @@ static BOOL interpret(LmnReactCxt *rc, LmnRule rule, LmnRuleInstr instr)
       LmnInstrVar dstmemi;
       READ_VAL(LmnInstrVar, instr, dstmemi);
       wt_set(rc, dstmemi, lmn_mem_make());
+      tt_set(rc, dstmemi, TT_OTHER); /* 2014-05-08, ueda */
       break;
     }
     case INSTR_REMOVEATOM:

Original file line number	Diff line number	Diff line change
`@@ -945,6 +945,7 @@ static BOOL interpret(LmnReactCxt *rc, LmnRule rule, LmnRuleInstr instr)`
`945`	`945`	`v[i].wt = (LmnWord)t;`
`946`	`946`	`} else {`
`947`	`947`	`t = 0;`
	`948`	`+// v[i].wt = wt(rc, i); // allocmem命令の場合はTT_OTHERになっている(2014-05-08 ueda)`
`948`	`949`	`//lmn_fatal("implementation error");`
`949`	`950`	`}`
`950`	`951`	`}`
`@@ -1818,6 +1819,7 @@ static BOOL interpret(LmnReactCxt *rc, LmnRule rule, LmnRuleInstr instr)`
`1818`	`1819`	`LmnInstrVar dstmemi;`
`1819`	`1820`	`READ_VAL(LmnInstrVar, instr, dstmemi);`
`1820`	`1821`	`wt_set(rc, dstmemi, lmn_mem_make());`
	`1822`	`+ tt_set(rc, dstmemi, TT_OTHER); /* 2014-05-08, ueda */`
`1821`	`1823`	`break;`
`1822`	`1824`	`}`
`1823`	`1825`	`case INSTR_REMOVEATOM:`