hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed comparison bugs in moo_pf_basic_at_test_put()

Browse Source 
changed some methods to use basicLastIndex instead of basicSize - 1
This commit is contained in:
hyunghwan.chung 2019-08-17 15:56:47 +00:00
parent 68eb5d8db8
commit 071ebb7788
3 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
moo/kernel/Apex.moo
View File

@ -314,6 +314,7 @@ class UndefinedObject(Apex)
^false.
}
/**
method handleException: exception
{
("### EXCEPTION NOT HANDLED #### " & exception class name & " - " & exception messageText) dump.
@ -321,6 +322,7 @@ class UndefinedObject(Apex)
// TODO: ensure to execute ensure blocks as well....
////Processor activeProcess terminate.
}
**/
}
extend Error

11
moo/kernel/Except.moo
View File

@ -51,8 +51,8 @@ TODO: can i convert 'thisProcess primError' to a relevant exception?
while (exctx notNil)
{
exblk := exctx findExceptionHandler: (self class).
//if (exblk notNil and: [actpos := exctx basicSize - 1. exctx basicAt: actpos])
if ((exblk notNil) and (exctx basicAt: (actpos := exctx basicSize - 1)))
//if (exblk notNil and: [actpos := exctx basicLastIndex. exctx basicAt: actpos])
if ((exblk notNil) and (exctx basicAt: (actpos := exctx basicLastIndex)))
{
self.handlerContext := exctx.
exctx basicAt: actpos put: false.
@ -176,7 +176,7 @@ extend Context
/* position of the temporary variable in the ensureBlock that indicates
* if the block has been evaluated. see the method BlockContext>>ensure:.
* it is the position of the last temporary variable of the method */
pending_pos := ctx basicSize - 1.
pending_pos := ctx basicLastIndex.
/*
if (ctx basicAt: pending_pos)
{
@ -294,7 +294,8 @@ extend MethodContext
/* position of the temporary variable 'exception_active' in MethodContext>>on:do.
* for this code to work, it must be the last temporary variable in the method. */
actpos := (self basicSize) - 1.
//actpos := (self basicSize) - 1.
actpos := self basicLastIndex.
excblk := self findExceptionHandler: (exception class).
if ((excblk isNil) or ((self basicAt: actpos) not))
@ -395,7 +396,7 @@ thisContext isExceptionContext dump.
* during evaluation for exception handling.
* it gets chagned in Context>>unwindTo:return: */
/*if (pending) { pending := false. aBlock value }.*/
if (thisContext basicAt: (thisContext basicSize - 1) test: true put: false) { aBlock value }.
if (thisContext basicAt: (thisContext basicLastIndex) test: true put: false) { aBlock value }.
^retval
}

27
moo/lib/pf-basic.c
View File

@ -292,7 +292,7 @@ moo_pfrc_t moo_pf_basic_size (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
return MOO_PF_SUCCESS;
}
moo_pfrc_t moo_pf_basic_last_index (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
moo_pfrc_t moo_pf_basic_first_index (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
{
/* return the number of indexable fields */
@ -315,7 +315,7 @@ moo_pfrc_t moo_pf_basic_last_index (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
return MOO_PF_SUCCESS;
}
moo_pfrc_t moo_pf_basic_first_index (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
moo_pfrc_t moo_pf_basic_last_index (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
{
/* return the number of indexable fields */
@ -492,7 +492,7 @@ moo_pfrc_t moo_pf_basic_at_put (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
moo_seterrbfmt (moo, MOO_EINVAL, "value not a word integer - %O", val);
return MOO_PF_FAILURE;
}
MOO_OBJ_SET_WORD_VAL (rcv, idx, MOO_OOP_TO_SMOOI(val));
MOO_OBJ_SET_WORD_VAL (rcv, idx, w);
break;
}
@ -552,6 +552,9 @@ moo_pfrc_t moo_pf_basic_at_test_put (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs
switch (MOO_OBJ_GET_FLAGS_TYPE(rcv))
{
case MOO_OBJ_TYPE_BYTE:
{
moo_ooi_t oi;
if (!MOO_OOP_IS_SMOOI(newval))
{
moo_seterrbfmt (moo, MOO_EINVAL, "new value not a byte - %O", newval);
@ -559,12 +562,13 @@ moo_pfrc_t moo_pf_basic_at_test_put (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs
}
/* TOOD: must I check the range of the new value? */
if (oldval == MOO_OBJ_GET_BYTE_VAL(rcv, idx))
if (MOO_OOP_IS_SMOOI(oldval) && (oi = MOO_OOP_TO_SMOOI(oldval)) >= 0 && oi == MOO_OBJ_GET_BYTE_VAL(rcv, idx))
{
MOO_OBJ_SET_BYTE_VAL (rcv, idx, MOO_OOP_TO_SMOOI(newval));
retval = moo->_true;
}
break;
}
case MOO_OBJ_TYPE_CHAR:
if (!MOO_OOP_IS_CHAR(newval))
@ -572,7 +576,7 @@ moo_pfrc_t moo_pf_basic_at_test_put (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs
moo_seterrbfmt (moo, MOO_EINVAL, "new value not a character - %O", newval);
return MOO_PF_FAILURE;
}
if (oldval == MOO_OBJ_GET_CHAR_VAL(rcv, idx))
if (MOO_OOP_IS_CHAR(oldval) && MOO_OOP_TO_CHAR(oldval) == MOO_OBJ_GET_CHAR_VAL(rcv, idx))
{
MOO_OBJ_SET_CHAR_VAL (rcv, idx, MOO_OOP_TO_CHAR(newval));
retval = moo->_true;
@ -580,6 +584,9 @@ moo_pfrc_t moo_pf_basic_at_test_put (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs
break;
case MOO_OBJ_TYPE_HALFWORD:
{
moo_ooi_t oi;
if (!MOO_OOP_IS_SMOOI(newval))
{
/* the new value is not a number */
@ -587,16 +594,17 @@ moo_pfrc_t moo_pf_basic_at_test_put (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs
return MOO_PF_FAILURE;
}
/* if the small integer is too large, it will get truncated */
if (oldval == MOO_OBJ_GET_HALFWORD_VAL(rcv, idx))
if (MOO_OOP_IS_SMOOI(oldval) && (oi = MOO_OOP_TO_SMOOI(oldval)) >= 0 && oi == MOO_OBJ_GET_HALFWORD_VAL(rcv, idx))
{
MOO_OBJ_SET_HALFWORD_VAL (rcv, idx, MOO_OOP_TO_SMOOI(newval));
retval = moo->_true;
}
break;
}
case MOO_OBJ_TYPE_WORD:
{
moo_oow_t w;
moo_oow_t w, ow;
if (moo_inttooow(moo, newval, &w) <= 0)
{
@ -604,9 +612,10 @@ moo_pfrc_t moo_pf_basic_at_test_put (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs
moo_seterrbfmt (moo, MOO_EINVAL, "new value not a word integer - %O", newval);
return MOO_PF_FAILURE;
}
if (oldval == MOO_OBJ_GET_WORD_VAL(rcv, idx))
if (moo_inttooow(moo, oldval, &ow) >= 1 && ow == MOO_OBJ_GET_WORD_VAL(rcv, idx))
{
MOO_OBJ_SET_WORD_VAL (rcv, idx, MOO_OOP_TO_SMOOI(newval));
MOO_OBJ_SET_WORD_VAL (rcv, idx, w);
retval = moo->_true;
}
break;