File tree Expand file tree Collapse file tree 1 file changed +2
-0
lines changed Expand file tree Collapse file tree 1 file changed +2
-0
lines changed Original file line number Diff line number Diff line change @@ -154,6 +154,7 @@ let rec eval_expr (c : config) (e : expr) =
154
154
| CallIndirect (x , e1 , es ) ->
155
155
let i = int32 (eval_expr c e1) e1.at in
156
156
let vs = List. map (fun vo -> some (eval_expr c vo) vo.at) es in
157
+ (* TODO: The conversion to int could overflow. *)
157
158
eval_func c.modul (table c x (Int32. to_int i @@ e1.at)) vs
158
159
159
160
| Return eo ->
@@ -224,6 +225,7 @@ let rec eval_expr (c : config) (e : expr) =
224
225
let i = int32 (eval_expr c e) e.at in
225
226
if (I32. rem_u i (page_size c)) <> I32. zero then
226
227
error e.at " runtime: resize_memory operand not multiple of page_size" ;
228
+ (* TODO: The conversion to int could overflow. *)
227
229
Memory. resize c.modul.memory (Int32. to_int i);
228
230
None
229
231
You can’t perform that action at this time.
0 commit comments