Yesterday I posted a function written using Virtual Pascal's builtin
assembler for computing the power of a number power(y,x); today I found
the first bug!  

I wasn't popping the stack properly when a 0 was passed as the first
argument, so after that happened a few times, the function would return
garbage.

The following is the final few lines of the unit as corrected:

___----------------------------------------------------------


{at}was_z2:
      fscale       { just need to scale by 2**st(1) }
{at}get_out:
      fstp   st(1)
      fstp {at}result
   end;
end;

begin
end.

___----------------------------------------------------------

Sorry about that....

Patrick

___
 X KWQ/2 1.2i X Cut welfare for destitute two year olds.  Love those conservative
--- Maximus/2 2.02