Handle mode-42 functor init.
This commit is contained in:
parent
2326672b3a
commit
1b69bb5d2f
|
|
@ -17,7 +17,7 @@
|
||||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
||||||
*/
|
*/
|
||||||
#if !defined(WINNT)
|
#if !defined(WINNT)
|
||||||
#ident "$Id: compile.cc,v 1.105 2001/10/12 03:00:08 steve Exp $"
|
#ident "$Id: compile.cc,v 1.106 2001/10/14 03:41:58 steve Exp $"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
# include "arith.h"
|
# include "arith.h"
|
||||||
|
|
@ -714,10 +714,14 @@ void compile_functor(char*label, char*type, unsigned argc, struct symb_s*argv)
|
||||||
/* Recalculate the output based on the given ival. if the oval
|
/* Recalculate the output based on the given ival. if the oval
|
||||||
turns out to *not* be x, then schedule the functor so that
|
turns out to *not* be x, then schedule the functor so that
|
||||||
the value gets propagated. */
|
the value gets propagated. */
|
||||||
unsigned char out = obj->table[obj->ival >> 2];
|
if (obj->mode == M42) {
|
||||||
obj->oval = 3 & (out >> 2 * (obj->ival&3));
|
obj->obj->set(fdx, obj, false);
|
||||||
if (obj->oval != 2)
|
} else {
|
||||||
schedule_functor(fdx, 0);
|
unsigned char out = obj->table[obj->ival >> 2];
|
||||||
|
obj->oval = 3 & (out >> 2 * (obj->ival&3));
|
||||||
|
if (obj->oval != 2)
|
||||||
|
schedule_functor(fdx, 0);
|
||||||
|
}
|
||||||
|
|
||||||
free(label);
|
free(label);
|
||||||
free(type);
|
free(type);
|
||||||
|
|
@ -1569,6 +1573,9 @@ vvp_ipoint_t debug_lookup_functor(const char*name)
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* $Log: compile.cc,v $
|
* $Log: compile.cc,v $
|
||||||
|
* Revision 1.106 2001/10/14 03:41:58 steve
|
||||||
|
* Handle mode-42 functor init.
|
||||||
|
*
|
||||||
* Revision 1.105 2001/10/12 03:00:08 steve
|
* Revision 1.105 2001/10/12 03:00:08 steve
|
||||||
* M42 implementation of mode 2 (Stephan Boettcher)
|
* M42 implementation of mode 2 (Stephan Boettcher)
|
||||||
*
|
*
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue