Branch Coverage

2008.xs
Criterion Covered Total %
branch 292 864 33.8


line true false branch
306 0 5 PUSH_INT_OR_PV(st->st_size, st_tmp.st_size);
307 0 5 PUSH_INT_OR_PV(st->st_atime, st_tmp.st_atime);
308 0 5 PUSH_INT_OR_PV(st->st_mtime, st_tmp.st_mtime);
310 0 5 PUSH_INT_OR_PV(st->st_ctime, st_tmp.st_ctime);
316 0 5 PUSH_INT_OR_PV(st->st_blksize, st_tmp.st_blksize);
317 0 5 PUSH_INT_OR_PV(st->st_blocks, st_tmp.st_blocks);
323 0 5 PUSH_INT_OR_PV(st->st_atim.tv_nsec, st_tmp.st_atim.tv_nsec);
324 0 5 PUSH_INT_OR_PV(st->st_mtim.tv_nsec, st_tmp.st_mtim.tv_nsec);
326 0 5 PUSH_INT_OR_PV(st->st_ctim.tv_nsec, st_tmp.st_ctim.tv_nsec);
369 0 2 if (!buf) {
375 1 1 if (dirfd == NULL)
386 2 0 if (linklen != -1) {
387 2 0 if ((size_t)linklen < bufsize) {
392 0 0 else if (errno != ERANGE) {
402 0 0 if (buf == NULL) {
415 0 0 if (iov)
416 0 0 for (i = 0; i < cnt; i++)
417 0 0 if (iov[i].iov_base)
439 0 4 if (flags_sv != 0) {
450 4 0 for (i = 0; i < 2; i++) {
451 4 0 if (SvROK(buffers)) {
453 4 0 if (SvTYPE(buffers) == SVt_PVAV)
455 0 0 if (i == 0)
461 0 4 Size_t iovcnt = av_count(sizes);
462 0 4 if (iovcnt == 0)
464 0 4 if (iovcnt > INT_MAX) {
469 0 4 Newxz(iov, iovcnt, struct iovec);
470 0 4 if (!iov) {
475 16 4 for (i = 0; i < iovcnt; i++) {
477 16 0 if (size && SvOK(*size)) {
0 16 if (size && SvOK(*size)) {
0 0 if (size && SvOK(*size)) {
0 0 if (size && SvOK(*size)) {
478 0 16 iov_len = SvUV(*size);
479 8 8 if (iov_len > 0) {
481 0 8 if (!iov_base) {
493 2 2 if (offset_sv == NULL)
495 2 0 else if (flags_sv == NULL) {
497 0 2 off_t offset = SvOK(offset_sv) ? (off_t)SvOFFT(offset_sv) : 0;
0 0 off_t offset = SvOK(offset_sv) ? (off_t)SvOFFT(offset_sv) : 0;
0 0 off_t offset = SvOK(offset_sv) ? (off_t)SvOFFT(offset_sv) : 0;
2 0 off_t offset = SvOK(offset_sv) ? (off_t)SvOFFT(offset_sv) : 0;
515 0 4 if (rv <= 0) {
521 16 4 for (iov_sum = 0, i = 0; i < iovcnt; i++) {
526 16 0 if (iov_sum <= rv)
529 0 0 else if (iov_sum - rv < iov_len)
539 8 8 SV *tmp_sv = iov_len ? newSV_type(SVt_PV) : newSVpvn("", 0);
541 0 16 if (!tmp_sv) {
548 8 8 if (iov_len) {
549 0 8 if (sv_cur != iov_len)
555 0 8 SvTAINTED_on(tmp_sv);
558 0 16 if (!av_store((AV*)buffers, i, tmp_sv))
582 0 4 if (flags_sv != NULL) {
588 0 4 Size_t bufcnt = av_count(buffers);
589 0 4 if (bufcnt == 0)
591 0 4 if (bufcnt > INT_MAX) {
596 0 4 Newxc(iov, bufcnt, struct iovec, struct iovec);
597 0 4 if (!iov) {
604 16 4 for (i = 0; i < bufcnt; i++) {
606 16 0 if (av_elt && SvOK(*av_elt)) {
4 12 if (av_elt && SvOK(*av_elt)) {
4 0 if (av_elt && SvOK(*av_elt)) {
0 4 if (av_elt && SvOK(*av_elt)) {
607 12 0 iov_base = SvPV(*av_elt, iov_len);
608 8 4 if (iov_len > 0) {
616 0 4 if (iovcnt == 0)
618 2 2 else if (offset_sv == NULL)
620 2 0 else if (flags_sv == NULL) {
622 0 2 off_t offset = SvOK(offset_sv) ? (off_t)SvOFFT(offset_sv) : 0;
0 0 off_t offset = SvOK(offset_sv) ? (off_t)SvOFFT(offset_sv) : 0;
0 0 off_t offset = SvOK(offset_sv) ? (off_t)SvOFFT(offset_sv) : 0;
2 0 off_t offset = SvOK(offset_sv) ? (off_t)SvOFFT(offset_sv) : 0;
649 0 3 if (accmode == O_RDONLY)
651 0 3 else if (flags & O_APPEND)
652 0 0 return (accmode == O_RDWR) ? "a+b" : "ab";
653 0 3 else if (accmode == O_WRONLY)
655 3 0 else if (accmode == O_RDWR)
674 0 36 if (SvOK(sv)) {
0 0 if (SvOK(sv)) {
0 0 if (SvOK(sv)) {
675 10 26 if (psx_looks_like_number(sv))
676 10 0 fn = SvIV(sv);
677 25 0 else if ((io = sv_2io(sv))) {
678 11 14 if (IoIFP(io)) /* from open() or sysopen() */
680 14 0 else if (IoDIRP(io)) /* from opendir() */
695 0 0 if (!SvOK(sv))
0 0 if (!SvOK(sv))
0 0 if (!SvOK(sv))
697 0 0 else if (psx_looks_like_number(sv)) {
698 0 0 int fn = SvIV(sv);
701 0 0 else if ((io = sv_2io(sv))) {
702 0 0 if (IoIFP(io))
704 0 0 else if (IoDIRP(io)) {
821 0 0 if (clock_getcpuclockid(pid, &clock_id) == 0)
835 0 0 if (ix == 0)
839 0 0 if (ret == 0) {
840 0 0 EXTEND(SP, 2);
853 0 0 if (clock_settime(clock_id, &tp) == 0)
878 0 0 if (rv == 0 || (errno = rv) == EINTR)
0 0 if (rv == 0 || (errno = rv) == EINTR)
879 0 0 PUSH_NANOSLEEP_REMAIN;
0 0 PUSH_NANOSLEEP_REMAIN;
0 0 PUSH_NANOSLEEP_REMAIN;
0 0 PUSH_NANOSLEEP_REMAIN;
890 0 0 if (nanosleep(&request, &remain) == 0 || errno == EINTR)
0 0 if (nanosleep(&request, &remain) == 0 || errno == EINTR)
891 0 0 PUSH_NANOSLEEP_REMAIN;
0 0 PUSH_NANOSLEEP_REMAIN;
0 0 PUSH_NANOSLEEP_REMAIN;
0 0 PUSH_NANOSLEEP_REMAIN;
903 0 0 if (len) {
905 0 0 if (buf != NULL)
912 0 0 if (buf != NULL)
994 0 0 if (rv == 0 || rv == FNM_NOMATCH)
0 0 if (rv == 0 || rv == FNM_NOMATCH)
1011 0 0 if (tm != NULL) {
1012 0 0 EXTEND(SP, 9);
1044 0 0 if (sec && SvOK(sec))
0 0 if (sec && SvOK(sec))
0 0 if (sec && SvOK(sec))
0 0 if (sec && SvOK(sec))
1045 0 0 tm.tm_sec = SvIV(sec);
1046 0 0 if (min && SvOK(min))
0 0 if (min && SvOK(min))
0 0 if (min && SvOK(min))
0 0 if (min && SvOK(min))
1047 0 0 tm.tm_min = SvIV(min);
1048 0 0 if (hour && SvOK(hour))
0 0 if (hour && SvOK(hour))
0 0 if (hour && SvOK(hour))
0 0 if (hour && SvOK(hour))
1049 0 0 tm.tm_hour = SvIV(hour);
1050 0 0 if (mday && SvOK(mday))
0 0 if (mday && SvOK(mday))
0 0 if (mday && SvOK(mday))
0 0 if (mday && SvOK(mday))
1051 0 0 tm.tm_mday = SvIV(mday);
1052 0 0 if (mon && SvOK(mon))
0 0 if (mon && SvOK(mon))
0 0 if (mon && SvOK(mon))
0 0 if (mon && SvOK(mon))
1053 0 0 tm.tm_mon = SvIV(mon);
1054 0 0 if (year && SvOK(year))
0 0 if (year && SvOK(year))
0 0 if (year && SvOK(year))
0 0 if (year && SvOK(year))
1055 0 0 tm.tm_year = SvIV(year);
1056 0 0 if (wday && SvOK(wday))
0 0 if (wday && SvOK(wday))
0 0 if (wday && SvOK(wday))
0 0 if (wday && SvOK(wday))
1057 0 0 tm.tm_wday = SvIV(wday);
1058 0 0 if (yday && SvOK(yday))
0 0 if (yday && SvOK(yday))
0 0 if (yday && SvOK(yday))
0 0 if (yday && SvOK(yday))
1059 0 0 tm.tm_yday = SvIV(yday);
1060 0 0 if (isdst && SvOK(isdst))
0 0 if (isdst && SvOK(isdst))
0 0 if (isdst && SvOK(isdst))
0 0 if (isdst && SvOK(isdst))
1061 0 0 tm.tm_isdst = SvIV(isdst);
1065 0 0 if (remainder) {
1066 0 0 if (GIMME != G_LIST)
0 0 if (GIMME != G_LIST)
1069 0 0 EXTEND(SP, 9);
1070 0 0 if (tm.tm_sec < 0) PUSHs(&PL_sv_undef); else mPUSHi(tm.tm_sec);
1071 0 0 if (tm.tm_min < 0) PUSHs(&PL_sv_undef); else mPUSHi(tm.tm_min);
1072 0 0 if (tm.tm_hour < 0) PUSHs(&PL_sv_undef); else mPUSHi(tm.tm_hour);
1073 0 0 if (tm.tm_mday < 0) PUSHs(&PL_sv_undef); else mPUSHi(tm.tm_mday);
1074 0 0 if (tm.tm_mon < 0) PUSHs(&PL_sv_undef); else mPUSHi(tm.tm_mon);
1075 0 0 if (tm.tm_year == INT_MIN) PUSHs(&PL_sv_undef); else mPUSHi(tm.tm_year);
1076 0 0 if (tm.tm_wday < 0) PUSHs(&PL_sv_undef); else mPUSHi(tm.tm_wday);
1077 0 0 if (tm.tm_yday < 0) PUSHs(&PL_sv_undef); else mPUSHi(tm.tm_yday);
1101 0 0 if (gethostname(name, sizeof(name)) == 0)
1112 0 0 if (getitimer(which, &value) == 0) {
1113 0 0 EXTEND(SP, 4);
1129 0 0 if (setitimer(which, &value, &ovalue) == 0) {
1130 0 0 EXTEND(SP, 4);
1147 0 0 if (rv != -1 || errno == 0)
0 0 if (rv != -1 || errno == 0)
1199 0 0 RETURN_UTXENT;
0 0 RETURN_UTXENT;
1211 0 0 if (ut_id != NULL) {
1215 0 0 RETURN_UTXENT;
0 0 RETURN_UTXENT;
1226 0 0 if (ut_line != NULL) {
1229 0 0 RETURN_UTXENT;
0 0 RETURN_UTXENT;
1253 0 0 EXTEND(SP, 4);
1268 0 0 long result = ix == 0 ? jrand48(xsubi) : nrand48(xsubi);
1270 0 0 EXTEND(SP, 4);
1298 0 0 if (rv != -1 || errno == 0)
0 0 if (rv != -1 || errno == 0)
1311 0 0 EXTEND(SP, 3);
1435 0 0 if (rv == 0)
1467 0 0 if (rv == 0) {
1468 0 0 EXTEND(SP, 4);
1488 0 0 if (initial_sec < 0 || initial_nsec < 0)
0 0 if (initial_sec < 0 || initial_nsec < 0)
1497 0 0 if (rv == 0) {
1498 0 0 EXTEND(SP, 4);
1518 0 2 if (!SvOK(what)) {
0 0 if (!SvOK(what)) {
0 0 if (!SvOK(what)) {
1522 0 2 else if (SvPOK(what) || SvPOKp(what)) {
0 0 else if (SvPOK(what) || SvPOKp(what)) {
1523 2 0 path = SvPV_nolen(what);
1547 0 0 if (!SvOK(what)) {
0 0 if (!SvOK(what)) {
0 0 if (!SvOK(what)) {
1551 0 0 else if (SvPOK(what) || SvPOKp(what)) {
0 0 else if (SvPOK(what) || SvPOKp(what)) {
1552 0 0 path = SvPV_nolen(what);
1576 0 0 if (!SvOK(what)) {
0 0 if (!SvOK(what)) {
0 0 if (!SvOK(what)) {
1580 0 0 else if (SvPOK(what) || SvPOKp(what)) {
0 0 else if (SvPOK(what) || SvPOKp(what)) {
1581 0 0 path = SvPV_nolen(what);
1629 0 2 if (!SvOK(what))
0 0 if (!SvOK(what))
0 0 if (!SvOK(what))
1631 1 1 else if (SvPOK(what) || SvPOKp(what)) {
0 1 else if (SvPOK(what) || SvPOKp(what)) {
1632 1 0 char *path = SvPV_nolen(what);
1643 2 0 RETURN_STAT_BUF(rv, buf);
2 0 RETURN_STAT_BUF(rv, buf);
2 0 RETURN_STAT_BUF(rv, buf);
0 2 RETURN_STAT_BUF(rv, buf);
0 0 RETURN_STAT_BUF(rv, buf);
0 0 RETURN_STAT_BUF(rv, buf);
1655 1 0 RETURN_STAT_BUF(rv, buf);
1 0 RETURN_STAT_BUF(rv, buf);
1 0 RETURN_STAT_BUF(rv, buf);
0 1 RETURN_STAT_BUF(rv, buf);
0 0 RETURN_STAT_BUF(rv, buf);
0 0 RETURN_STAT_BUF(rv, buf);
1669 3 1 ISFUNC(isalnum)
1 124 ISFUNC(isalnum)
126 3 ISFUNC(isalnum)
125 1 ISFUNC(isalnum)
1679 3 1 ISFUNC(isalpha)
1 104 ISFUNC(isalpha)
106 3 ISFUNC(isalpha)
105 1 ISFUNC(isalpha)
1689 3 1 ISFUNC(isascii)
1 256 ISFUNC(isascii)
258 3 ISFUNC(isascii)
257 1 ISFUNC(isascii)
1699 3 1 ISFUNC(isblank)
1 4 ISFUNC(isblank)
6 3 ISFUNC(isblank)
5 1 ISFUNC(isblank)
1709 3 1 ISFUNC(iscntrl)
1 64 ISFUNC(iscntrl)
66 3 ISFUNC(iscntrl)
65 1 ISFUNC(iscntrl)
1719 3 1 ISFUNC(isdigit)
1 20 ISFUNC(isdigit)
22 3 ISFUNC(isdigit)
21 1 ISFUNC(isdigit)
1729 3 1 ISFUNC(isgraph)
1 190 ISFUNC(isgraph)
192 3 ISFUNC(isgraph)
191 1 ISFUNC(isgraph)
1739 3 1 ISFUNC(islower)
1 52 ISFUNC(islower)
54 3 ISFUNC(islower)
53 1 ISFUNC(islower)
1749 3 1 ISFUNC(isprint)
1 192 ISFUNC(isprint)
194 3 ISFUNC(isprint)
193 1 ISFUNC(isprint)
1759 3 1 ISFUNC(ispunct)
1 66 ISFUNC(ispunct)
68 3 ISFUNC(ispunct)
67 1 ISFUNC(ispunct)
1769 3 1 ISFUNC(isspace)
1 12 ISFUNC(isspace)
14 3 ISFUNC(isspace)
13 1 ISFUNC(isspace)
1779 3 1 ISFUNC(isupper)
1 52 ISFUNC(isupper)
54 3 ISFUNC(isupper)
53 1 ISFUNC(isupper)
1789 3 1 ISFUNC(isxdigit)
1 50 ISFUNC(isxdigit)
52 3 ISFUNC(isxdigit)
51 1 ISFUNC(isxdigit)
1831 0 0 if (template != NULL) {
1833 0 0 if (fd >= 0) {
1834 0 0 EXTEND(SP, 2);
1864 0 0 if (fd2 < 0)
1868 0 0 if (!dir) {
1880 0 0 io = GvIOn(gv);
0 0 io = GvIOn(gv);
0 0 io = GvIOn(gv);
0 0 io = GvIOn(gv);
0 0 io = GvIOn(gv);
1936 2 0 RETURN_STAT_BUF(rv, buf);
2 0 RETURN_STAT_BUF(rv, buf);
2 0 RETURN_STAT_BUF(rv, buf);
0 2 RETURN_STAT_BUF(rv, buf);
0 0 RETURN_STAT_BUF(rv, buf);
0 0 RETURN_STAT_BUF(rv, buf);
1981 0 9 if (ix != 0) {
1986 1 8 if (!SvOK(dirfdsv)) {
1 0 if (!SvOK(dirfdsv)) {
1 0 if (!SvOK(dirfdsv)) {
1993 5 3 if (SvROK(dirfdsv) && SvTYPE(SvRV(dirfdsv)) == SVt_IV) {
1 4 if (SvROK(dirfdsv) && SvTYPE(SvRV(dirfdsv)) == SVt_IV) {
1994 1 0 if (SvIV(SvRV(dirfdsv)) != AT_FDCWD) {
0 1 if (SvIV(SvRV(dirfdsv)) != AT_FDCWD) {
2004 1 5 if (dir_fd < 0 && dir_fd != AT_FDCWD) {
0 1 if (dir_fd < 0 && dir_fd != AT_FDCWD) {
2010 7 0 if (ix == 0) {
2012 0 7 if (items > 4)
2014 7 0 flags = (items > 2) ? SvIV(ST(2)) : O_RDONLY;
7 0 flags = (items > 2) ? SvIV(ST(2)) : O_RDONLY;
2015 0 7 mode = (items > 3) ? SvIV(ST(3)) : 0666;
0 0 mode = (items > 3) ? SvIV(ST(3)) : 0666;
2044 1 6 if (path_fd < 0)
2048 2 4 if (got_fd)
2055 4 0 if (fstat(path_fd, &st) == 0) {
2060 4 0 if (gv) {
2061 1 3 if (S_ISDIR(st.st_mode)) {
2063 1 0 if (dirp) {
2064 1 0 IO *io = GvIOn(gv);
0 1 IO *io = GvIOn(gv);
0 0 IO *io = GvIOn(gv);
1 0 IO *io = GvIOn(gv);
0 1 IO *io = GvIOn(gv);
2072 3 0 if (filep) {
2074 3 0 if (pio_filep && do_open(gv, "+<&", 3, FALSE, 0, 0, pio_filep))
3 0 if (pio_filep && do_open(gv, "+<&", 3, FALSE, 0, 0, pio_filep))
2081 4 0 if (return_handle) {
2086 0 0 else if (dirp)
2088 0 0 else if (pio_filep)
2090 0 0 else if (filep)
2096 4 0 if (gv)
2110 1 0 if (RETVAL != NULL)
2123 1 0 if (RETVAL != NULL)
2137 1 0 if (RETVAL != NULL)
2179 1 1 if (! SvPOK(buf))
2181 2 0 cbuf = SvGROW(buf, count);
0 2 cbuf = SvGROW(buf, count);
2182 0 2 if (cbuf == NULL)
2184 0 2 else if (count == 0)
2188 2 0 if (RETVAL >= 0) {
2191 0 2 SvTAINTED_on(buf);
2207 0 2 if (!SvPOK(buf))
2210 2 0 cbuf = SvPV_const(buf, buf_cur);
2211 0 2 if (!buf_cur)
2214 0 2 if (count == NULL || !SvOK(count))
0 0 if (count == NULL || !SvOK(count))
0 0 if (count == NULL || !SvOK(count))
0 0 if (count == NULL || !SvOK(count))
2217 0 0 nbytes = SvUV(count);
2218 0 0 if (nbytes > buf_cur)
2221 2 0 RETVAL = nbytes ? write(fd, cbuf, nbytes) : 0;
2304 1 1 if (! SvPOK(buf))
2306 2 0 cbuf = SvPV(buf, buf_cur);
2309 0 2 if (buf_offset < 0) {
2311 0 0 if (buf_offset < 0) {
2319 0 2 if ((new_len = buf_offset + nbytes) > buf_len) {
2320 0 0 cbuf = SvGROW(buf, new_len);
0 0 cbuf = SvGROW(buf, new_len);
2321 0 0 if (cbuf == NULL)
2326 0 2 if (buf_offset > buf_cur)
2330 2 0 if (nbytes) {
2331 2 0 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
0 2 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
0 0 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
0 0 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
0 2 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
2337 2 0 if (RETVAL >= 0) {
2340 0 2 SvTAINTED_on(buf);
2357 2 0 cbuf = SvPV_const(buf, buf_cur);
2358 2 0 if (!cbuf || !buf_cur)
0 2 if (!cbuf || !buf_cur)
2362 0 2 if (buf_offset < 0)
2364 2 0 if (buf_offset < 0 || (!buf_cur && buf_offset > 0) ||
0 2 if (buf_offset < 0 || (!buf_cur && buf_offset > 0) ||
0 0 if (buf_offset < 0 || (!buf_cur && buf_offset > 0) ||
2 0 if (buf_offset < 0 || (!buf_cur && buf_offset > 0) ||
2365 0 2 (buf_cur && buf_offset >= buf_cur)) {
2370 2 0 if (count == NULL || !SvOK(count))
2 0 if (count == NULL || !SvOK(count))
2 0 if (count == NULL || !SvOK(count))
2 0 if (count == NULL || !SvOK(count))
2373 0 0 i_count = SvUV(count);
2374 0 0 if (i_count > max_nbytes)
2377 2 0 if (i_count) {
2378 2 0 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
0 2 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
0 0 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
0 0 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
0 2 off_t f_offset = (offset != NULL && SvOK(offset)) ? SvUV(offset) : 0;
2423 0 0 if (rv == 0)
2448 0 0 if (rv == 0)
2532 0 2 if (!SvOK(what)) {
0 0 if (!SvOK(what)) {
0 0 if (!SvOK(what)) {
2536 1 1 else if (SvPOK(what) || SvPOKp(what)) {
0 1 else if (SvPOK(what) || SvPOKp(what)) {
2537 1 0 path = SvPV_nolen(what);
2665 0 0 EXTEND(SP, 2);
2879 0 0 if (errno == 0 && fetestexcept(FE_ALL_EXCEPT) == 0)
0 0 if (errno == 0 && fetestexcept(FE_ALL_EXCEPT) == 0)
2880 0 0 PUSH_INT_OR_PV(ret, tmp);
2911 0 0 if (errno == 0 && fetestexcept(FE_ALL_EXCEPT) == 0)
0 0 if (errno == 0 && fetestexcept(FE_ALL_EXCEPT) == 0)
2926 0 0 if (errno == 0 && fetestexcept(FE_ALL_EXCEPT) == 0) {
0 0 if (errno == 0 && fetestexcept(FE_ALL_EXCEPT) == 0) {
3055 0 0 RETURN_COMPLEX(result);
3090 0 0 RETURN_COMPLEX(result);
3101 0 0 RETURN_COMPLEX(result);
3113 0 0 RETURN_COMPLEX(result);
3124 0 0 RETURN_COMPLEX(result);
3135 0 0 RETURN_COMPLEX(result);
3146 0 0 RETURN_COMPLEX(result);
3157 0 0 RETURN_COMPLEX(result);
3168 0 0 RETURN_COMPLEX(result);
3179 0 0 RETURN_COMPLEX(result);
3190 0 0 RETURN_COMPLEX(result);
3201 0 0 RETURN_COMPLEX(result);
3212 0 0 RETURN_COMPLEX(result);
3223 0 0 RETURN_COMPLEX(result);
3234 0 0 RETURN_COMPLEX(result);
3245 0 0 RETURN_COMPLEX(result);
3256 0 0 RETURN_COMPLEX(result);