Tag all types as being Perl 6 types.

rakudo · Apr 9, 2013 · a7e8fbf · a7e8fbf
1 parent 8627b69
commit a7e8fbf
Show file tree

Hide file tree

Showing 11 changed files with 12 additions and 11 deletions.
diff --git a/src/Perl6/Metamodel/ClassHOW.pm b/src/Perl6/Metamodel/ClassHOW.pm
@@ -43,7 +43,7 @@ class Perl6::Metamodel::ClassHOW
 
     method new_type(:$name = '<anon>', :$repr = 'P6opaque', :$ver, :$auth) {
         my $metaclass := self.new();
-        my $obj := nqp::newtype($metaclass, $repr);
+        my $obj := nqp::settypehll(nqp::newtype($metaclass, $repr), 'perl6');
         self.add_stash($obj);
         $metaclass.set_name($obj, $name);
         $metaclass.set_ver($obj, $ver) if $ver;

diff --git a/src/Perl6/Metamodel/ConcreteRoleHOW.pm b/src/Perl6/Metamodel/ConcreteRoleHOW.pm
@@ -41,7 +41,7 @@ class Perl6::Metamodel::ConcreteRoleHOW
 
     method new_type(:@roles, :$name = '<anon>', :$ver, :$auth, :$repr) {
         my $metarole := self.new(:roles(@roles));
-        my $obj := nqp::newtype($metarole, 'Uninstantiable');
+        my $obj := nqp::settypehll(nqp::newtype($metarole, 'Uninstantiable'), 'perl6');
         $metarole.set_name($obj, $name);
         $metarole.set_ver($obj, $ver) if $ver;
         $metarole.set_auth($obj, $auth) if $auth;

diff --git a/src/Perl6/Metamodel/CurriedRoleHOW.pm b/src/Perl6/Metamodel/CurriedRoleHOW.pm
@@ -48,7 +48,7 @@ class Perl6::Metamodel::CurriedRoleHOW
     method new_type($curried_role, *@pos_args, *%named_args) {
         my $meta := self.new(:curried_role($curried_role), :pos_args(@pos_args),
             :named_args(%named_args));
-        my $type := nqp::newtype($meta, 'Uninstantiable');
+        my $type := nqp::settypehll(nqp::newtype($meta, 'Uninstantiable'), 'perl6');
         pir::stable_set_type_check_mode__0PI($type, 2)
     }
 

diff --git a/src/Perl6/Metamodel/EnumHOW.pm b/src/Perl6/Metamodel/EnumHOW.pm
@@ -47,7 +47,7 @@ class Perl6::Metamodel::EnumHOW
 
     method new_type(:$name!, :$base_type!) {
         my $meta := self.new();
-        my $obj  := nqp::newtype($meta, 'P6opaque');
+        my $obj  := nqp::settypehll(nqp::newtype($meta, 'P6opaque'), 'perl6');
         $meta.set_name($obj, $name);
         $meta.set_base_type($meta, $base_type);
         self.add_stash($obj);

diff --git a/src/Perl6/Metamodel/GenericHOW.pm b/src/Perl6/Metamodel/GenericHOW.pm
@@ -20,7 +20,7 @@ class Perl6::Metamodel::GenericHOW
     # ourself.
     method new_type(:$name) {
         my $meta := self.new();
-        my $obj := nqp::newtype($meta, 'Uninstantiable');
+        my $obj := nqp::settypehll(nqp::newtype($meta, 'Uninstantiable'), 'perl6');
         $meta.set_name($obj, $name);
         $obj
     }

diff --git a/src/Perl6/Metamodel/ModuleHOW.pm b/src/Perl6/Metamodel/ModuleHOW.pm
@@ -20,7 +20,7 @@ class Perl6::Metamodel::ModuleHOW
     method new_type(:$name = '<anon>', :$repr, :$ver, :$auth) {
         if $repr { nqp::die("'module' does not support custom representations") }
         my $metaclass := self.new();
-        my $obj := nqp::newtype($metaclass, 'Uninstantiable');
+        my $obj := nqp::settypehll(nqp::newtype($metaclass, 'Uninstantiable'), 'perl6');
         $metaclass.set_name($obj, $name);
         $metaclass.set_ver($obj, $ver) if $ver;
         $metaclass.set_auth($obj, $auth) if $auth;

diff --git a/src/Perl6/Metamodel/NativeHOW.pm b/src/Perl6/Metamodel/NativeHOW.pm
@@ -22,7 +22,7 @@ class Perl6::Metamodel::NativeHOW
 
     method new_type(:$name = '<anon>', :$repr = 'P6opaque', :$ver, :$auth) {
         my $metaclass := self.new(:nativesize(0));
-        my $obj := nqp::newtype($metaclass, $repr);
+        my $obj := nqp::settypehll(nqp::newtype($metaclass, $repr), 'perl6');
         $metaclass.set_name($obj, $name);
         $metaclass.set_ver($obj, $ver) if $ver;
         $metaclass.set_auth($obj, $auth) if $auth;

diff --git a/src/Perl6/Metamodel/PackageHOW.pm b/src/Perl6/Metamodel/PackageHOW.pm
@@ -19,7 +19,7 @@ class Perl6::Metamodel::PackageHOW
     method new_type(:$name = '<anon>', :$repr, :$ver, :$auth) {
         if $repr { nqp::die("'package' does not support custom representations") }
         my $metaclass := nqp::create(self);
-        my $obj := nqp::newtype($metaclass, 'Uninstantiable');
+        my $obj := nqp::settypehll(nqp::newtype($metaclass, 'Uninstantiable'), 'perl6');
         $metaclass.set_name($obj, $name);
         self.add_stash($obj);
     }

diff --git a/src/Perl6/Metamodel/ParametricRoleGroupHOW.pm b/src/Perl6/Metamodel/ParametricRoleGroupHOW.pm
@@ -38,7 +38,8 @@ class Perl6::Metamodel::ParametricRoleGroupHOW
 
     method new_type(:$name!, :$repr) {
         my $meta := self.new(:selector($selector_creator()));
-        my $type_obj := self.add_stash(nqp::newtype($meta, 'Uninstantiable'));
+        my $type_obj := self.add_stash(nqp::settypehll(
+            nqp::newtype($meta, 'Uninstantiable'), 'perl6'));
         $meta.set_name($type_obj, $name);
         $meta.set_boolification_mode($type_obj, 5);
         $meta.publish_boolification_spec($type_obj);

diff --git a/src/Perl6/Metamodel/ParametricRoleHOW.pm b/src/Perl6/Metamodel/ParametricRoleHOW.pm
@@ -32,7 +32,7 @@ class Perl6::Metamodel::ParametricRoleHOW
 
     method new_type(:$name = '<anon>', :$ver, :$auth, :$repr, :$signatured, *%extra) {
         my $metarole := self.new(:signatured($signatured));
-        my $type := nqp::newtype($metarole, 'Uninstantiable');
+        my $type := nqp::settypehll(nqp::newtype($metarole, 'Uninstantiable'), 'perl6');
         $metarole.set_name($type, $name);
         $metarole.set_ver($type, $ver) if $ver;
         $metarole.set_auth($type, $auth) if $auth;

diff --git a/src/Perl6/Metamodel/SubsetHOW.pm b/src/Perl6/Metamodel/SubsetHOW.pm
@@ -24,7 +24,7 @@ class Perl6::Metamodel::SubsetHOW
 
     method new_type(:$name = '<anon>', :$refinee!, :$refinement!) {
         my $metasubset := self.new(:refinee($refinee), :refinement($refinement));
-        my $type := nqp::newtype($metasubset, 'Uninstantiable');
+        my $type := nqp::settypehll(nqp::newtype($metasubset, 'Uninstantiable'), 'perl6');
         $metasubset.set_name($type, $name);
         pir::stable_set_type_check_mode__0PI($type, 2)
     }