Browse files

undo an oops in the last merge

  • Loading branch information...
1 parent 1a73c2e commit f60964d613023e008b9af77bb9b5ac636e71fea8 @leto committed Apr 22, 2009
Showing with 2 additions and 13 deletions.
  1. +2 −13 src/classes/Complex.pir
View
15 src/classes/Complex.pir
@@ -63,19 +63,8 @@ Returns the exponential of a Complex.
.sub 'log10' :multi('Complex')
.param pmc z
- .local num r
- .local num theta
- $P0 = z.'polar'()
- $P1 = new 'Complex'
- r = $P0[0]
- theta = $P0[1]
- $N0 = ln 10
- div theta, theta, $N0
- $N1 = ln r
- div $N1, $N1, $N0
- $P1[0]= $N1
- $P1[1]= theta
- .return ($P1)
+ $P0 = z.'log10'()
+ .return ($P0)
.end
=item log

0 comments on commit f60964d

Please sign in to comment.