Lines Matching refs:ptm
3703 Perl_init_tm(pTHX_ struct tm *ptm) /* see mktime, strftime and asctime */ argument
3711 Copy(my_tm, ptm, 1, struct tm);
3713 PERL_UNUSED_ARG(ptm);
3722 Perl_mini_mktime(pTHX_ struct tm *ptm) argument
3803 year = 1900 + ptm->tm_year;
3804 month = ptm->tm_mon;
3805 mday = ptm->tm_mday;
3807 if (ptm->tm_yday >= 0 && mday <= 0 && month <= 0) {
3810 jday = 1 + ptm->tm_yday;
3827 if ((unsigned) ptm->tm_sec <= 60) {
3831 secs = ptm->tm_sec;
3832 ptm->tm_sec = 0;
3834 secs += 60 * ptm->tm_min;
3835 secs += SECS_PER_HOUR * ptm->tm_hour;
3852 ptm->tm_hour = secs/SECS_PER_HOUR;
3854 ptm->tm_min = secs/60;
3856 ptm->tm_sec += secs;
3895 ptm->tm_year = year - 1900;
3897 ptm->tm_mday = yearday;
3898 ptm->tm_mon = month;
3901 ptm->tm_mday = 31;
3902 ptm->tm_mon = month - 1;
3908 ptm->tm_yday = jday - yearday;
3910 if ((unsigned)ptm->tm_wday > 6)
3911 ptm->tm_wday = (jday + WEEKDAY_BIAS) % 7;