model: intro a service to get the `Pointer` type

Signed-off-by: Alexis Laferrière <alexis.laf@xymus.net>

diff --git a/src/model/model.nit b/src/model/model.nit
index f3c3164..fe4eade 100644 (file)
--- a/src/model/model.nit
+++ b/src/model/model.nit
@@ -216,6 +216,10 @@ redef class MModule
 
        private var object_type_cache: nullable MClassType
 
+       # The type `Pointer`, super class to all extern classes
+       fun pointer_type: MClassType
+       is cached do return self.get_primitive_class("Pointer").mclass_type
+
        # The primitive type `Bool`
        fun bool_type: MClassType
        do