This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Baby-cleanup-step in sync with dist-3.5-27
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 16 Jun 2008 07:37:26 +0000 (07:37 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 16 Jun 2008 07:37:26 +0000 (07:37 +0000)
p4raw-id: //depot/metaconfig@34059

U/perl/d_builtin.U

index c207a01..28e3379 100644 (file)
@@ -32,6 +32,7 @@
 ?H:#$d_builtin_expect HAS_BUILTIN_EXPECT       /**/
 ?H:#$d_builtin_choose_expr HAS_BUILTIN_CHOOSE_EXPR     /**/
 ?H:.
 ?H:#$d_builtin_expect HAS_BUILTIN_EXPECT       /**/
 ?H:#$d_builtin_choose_expr HAS_BUILTIN_CHOOSE_EXPR     /**/
 ?H:.
+?F:!try
 ?LINT:set d_builtin_expect d_builtin_choose_expr
 : Look for GCC-style __builtin_choose_expr
 case "$d_builtin_choose_expr" in
 ?LINT:set d_builtin_expect d_builtin_choose_expr
 : Look for GCC-style __builtin_choose_expr
 case "$d_builtin_choose_expr" in