Differences From Artifact [af5acf3ba6]:

• File unix/tclUnixTest.c — part of check-in [261aca7955] at 2024-08-26 12:12:52 on branch unchained — Merge [28e5e230b66f785b]: "Tcl_GetStringFromObj() -> TclGetStringFromObj() (optimization)", and resolve conflicts, including changing all occurrences os "TclGetStringFromObj" to Tcl_GetStringFromObj(). (user: pooryorick size: 17706) [more...]

To Artifact [95975d3c84]:

• File unix/tclUnixTest.c — part of check-in [12c6b8b472] at 2024-08-29 08:40:51 on branch unchained — Merge [9ffd7855661ca409]: More of the same: Space before tab is extremely unlikely to be correct indentation pattern. (user: pooryorick size: 17704) [more...]

556
557
558
559
560
561
562
563

564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580

581
582
583
584
585
586
587

556
557
558
559
560
561
562

563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579

580
581
582
583
584
585
586
587

-
+
















-
+

 *
 *	Signal handler for the alarm command.
 *
 * Results:
 *	None.
 *
 * Side effects:
 * 	Calls the Tcl Async handler.
 *	Calls the Tcl Async handler.
 *
 *----------------------------------------------------------------------
 */

static void
AlarmHandler(
    TCL_UNUSED(int) /*signum*/)
{
    gotsig = "1";
}

/*
 *----------------------------------------------------------------------
 *
 * TestgotsigCmd --
 *
 * 	Verify the signal was handled after the testalarm command.
 *	Verify the signal was handled after the testalarm command.
 *
 * Results:
 *	None.
 *
 * Side Effects:
 *	Resets the value of gotsig back to '0'.
 *