Differences From Artifact [2b00aa795e]:

• File generic/tclUtf.c — part of check-in [aadfd3448c] at 2020-04-16 17:55:42 on branch dgp-utf-next — merge 8.5 (user: dgp size: 54973) [more...]

To Artifact [9bef9c5891]:

• File generic/tclUtf.c — part of check-in [29041a6d75] at 2020-04-16 18:40:40 on branch dgp-utf-next — More tests and fix for overlong handling in revised Tcl_UtfNext. (user: dgp size: 55021)

707
708
709
710
711
712
713



714
715
716
717
718
719
720

	     * src points to non-trail byte; We ran out of trail bytes
	     * before the needs of the lead byte were satisfied.
	     * Let the (malformed) lead byte alone be a character
	     */
	    return src + 1;
	}
	next++;



    }
    return next;
}

/*
 *---------------------------------------------------------------------------
 *

>
>
>

707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723

	     * src points to non-trail byte; We ran out of trail bytes
	     * before the needs of the lead byte were satisfied.
	     * Let the (malformed) lead byte alone be a character
	     */
	    return src + 1;
	}
	next++;
    }
    if (Overlong(src)) {
	return src + 1;
    }
    return next;
}

/*
 *---------------------------------------------------------------------------
 *