Commit | Line | Data |
---|---|---|
44df7640 BK |
1 | # include "e.h" |
2 | ||
3 | sqrt(p2) int p2; { | |
4 | yyval = p2; | |
5 | nrwid(p2, ps, p2); | |
6 | printf(".ds %d \\v'%du'\\e\\L'%du'\\l'\\n(%du'", | |
7 | p2, ebase[p2], -eht[p2], p2); | |
8 | printf("\\v'%du'\\h'-\\n(%du'\\*(%d\n", eht[p2]-ebase[p2], p2, p2); | |
9 | eht[p2] =+ VERT(1); | |
10 | if(dbg)printf(".\tsqrt: S%d <- S%d;b=%d, h=%d\n", | |
11 | p2, p2, ebase[p2], eht[p2]); | |
12 | } |