Differences From Artifact [1eddb942cd]:

• File generic/tclClock.c — part of check-in [891c8d0689] at 2024-08-20 15:44:36 on branch unchained — Merge [19499b816370cd3f], "Fix suggestion in [86dd172271], updating Tcl_Time.sec to "long long". This is a binary incompatibility for 32-bit platforms!". (user: pooryorick size: 56098) [more...]

To Artifact [60f9a51b17]:

• File generic/tclClock.c — part of check-in [56f804fdc4] at 2024-08-20 20:14:51 on branch unchained — Merge [5b82f60b5df259fc]: Fix [00655c867e]: ClockGetdatefieldsObjCmd(): avoid signed integer overflow and platform-dependent behavior. (user: pooryorick size: 56276) [more...]

454
455
456
457
458
459
460
461

462
463
464
465

466
467
468
469
470
471
472

     */

    if (ConvertUTCToLocal(interp, &fields, objv[2], changeover) != TCL_OK) {
	return TCL_ERROR;
    }

    /*
     * Extract Julian day.

     */

    fields.julianDay = (int) ((fields.localSeconds + JULIAN_SEC_POSIX_EPOCH)
	    / SECONDS_PER_DAY);


    /*
     * Convert to Julian or Gregorian calendar.
     */

    GetGregorianEraYearDay(&fields, changeover);
    GetMonthDay(&fields);

|
>


|
|
>

454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474

     */

    if (ConvertUTCToLocal(interp, &fields, objv[2], changeover) != TCL_OK) {
	return TCL_ERROR;
    }

    /*
     * Extract Julian day. Always round the quotient down by subtracting 1
     * when the remainder is negative (i.e. if the quotient was rounded up).
     */

    fields.julianDay = (int) ((fields.localSeconds / SECONDS_PER_DAY) -
	    ((fields.localSeconds % SECONDS_PER_DAY) < 0) +
	    JULIAN_DAY_POSIX_EPOCH);

    /*
     * Convert to Julian or Gregorian calendar.
     */

    GetGregorianEraYearDay(&fields, changeover);
    GetMonthDay(&fields);