develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34018 - trunk/languages/perl6/src/pmc

From:
jonathan
Date:
December 17, 2008 03:38
Subject:
[svn:parrot] r34018 - trunk/languages/perl6/src/pmc
Message ID:
20081217113752.85195CBA12@x12.develooper.com
Author: jonathan
Date: Wed Dec 17 03:37:51 2008
New Revision: 34018

Modified:
   trunk/languages/perl6/src/pmc/perl6multisub.pmc

Log:
[rakudo] Make sure we give correct error message when multiple dispatch ties on a bunch of candidates all with non-matching constraints.

Modified: trunk/languages/perl6/src/pmc/perl6multisub.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6multisub.pmc	(original)
+++ trunk/languages/perl6/src/pmc/perl6multisub.pmc	Wed Dec 17 03:37:51 2008
@@ -562,6 +562,11 @@
             possibles       = constraint_free;
             possibles_count = constraint_free_count;
         }
+        else {
+            possibles_count = 0;
+            mem_sys_free(matching);
+            mem_sys_free(constraint_free);
+        }
     }
 
     /* Check is default trait if we still have multiple options. */



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About