Implement .arith/sub subtraction.

This commit is contained in:
steve
2001-06-07 03:09:03 +00:00
parent f480943649
commit 19a7f3faeb
7 changed files with 186 additions and 38 deletions
+64 -3
View File
@@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#if !defined(WINNT)
#ident "$Id: arith.cc,v 1.1 2001/06/05 03:05:41 steve Exp $"
#ident "$Id: arith.cc,v 1.2 2001/06/07 03:09:03 steve Exp $"
#endif
# include "arith.h"
@@ -26,12 +26,12 @@
# include <stdio.h>
vvp_arith_sum::vvp_arith_sum(vvp_ipoint_t b, unsigned w)
vvp_arith_::vvp_arith_(vvp_ipoint_t b, unsigned w)
: base_(b), wid_(w)
{
}
void vvp_arith_sum::output_x_(bool push)
void vvp_arith_::output_x_(bool push)
{
for (unsigned idx = 0 ; idx < wid_ ; idx += 1) {
vvp_ipoint_t ptr = ipoint_index(base_,idx);
@@ -48,6 +48,11 @@ void vvp_arith_sum::output_x_(bool push)
}
}
vvp_arith_sum::vvp_arith_sum(vvp_ipoint_t b, unsigned w)
: vvp_arith_(b, w)
{
}
void vvp_arith_sum::set(vvp_ipoint_t i, functor_t f, bool push)
{
assert(wid_ <= sizeof(unsigned long));
@@ -96,8 +101,64 @@ void vvp_arith_sum::set(vvp_ipoint_t i, functor_t f, bool push)
}
}
vvp_arith_sub::vvp_arith_sub(vvp_ipoint_t b, unsigned w)
: vvp_arith_(b, w)
{
}
void vvp_arith_sub::set(vvp_ipoint_t i, functor_t f, bool push)
{
assert(wid_ <= sizeof(unsigned long));
unsigned long sum = 0;
for (unsigned idx = 0 ; idx < wid_ ; idx += 1) {
vvp_ipoint_t ptr = ipoint_index(base_,idx);
functor_t obj = functor_index(ptr);
unsigned ival = obj->ival;
if (ival & 0xaa) {
output_x_(push);
return;
}
unsigned tmp = 0;
if (ival & 0x01)
tmp += 1;
if (ival & 0x04)
tmp -= 1;
if (ival & 0x10)
tmp -= 1;
if (ival & 0x40)
tmp -= 1;
sum += (tmp << idx);
}
for (unsigned idx = 0 ; idx < wid_ ; idx += 1) {
vvp_ipoint_t ptr = ipoint_index(base_,idx);
functor_t obj = functor_index(ptr);
unsigned oval = sum & 1;
sum >>= 1;
if (obj->oval == oval)
continue;
obj->oval = oval;
if (push)
functor_propagate(ptr);
else
schedule_functor(ptr, 0);
}
}
/*
* $Log: arith.cc,v $
* Revision 1.2 2001/06/07 03:09:03 steve
* Implement .arith/sub subtraction.
*
* Revision 1.1 2001/06/05 03:05:41 steve
* Add structural addition.
*