Searched refs:TZ_Form (Results 1 – 4 of 4) sorted by relevance
461 TZ_Form : constant Picture_String := "%:::z"; constant464 if P + TZ_Form'Length - 1 <= Picture'Last465 and then Picture (P .. P + TZ_Form'Length - 1) = "%:::z"482 P := P + TZ_Form'Length - 2; -- will add 2 below