typecheck: Add basic typechecking for ReferenceType

gcc/rust/ChangeLog:
	* hir/tree/rust-hir-pattern.h (HIR::ReferencePattern):
	added get_referenced_pattern function.
	* resolve/rust-ast-resolve-pattern.h
	(Resolve::PatternDeclaration): add visit function for
	AST::ReferencePattern
	* typecheck/rust-hir-type-check-pattern.cc
	(Resolver::TypeCheckPattern): add visit function for
	HIR::ReferencePattern

Signed-off-by: Mahmoud Mohamed <mahadelr19@gmail.com>

gcc/rust/hir/tree/rust-hir-pattern.h

@@ -477,6 +477,12 @@ class ReferencePattern : public Pattern
     return PatternType::REFERENCE;
   }
 
+  std::unique_ptr<Pattern> &get_referenced_pattern ()
+  {
+    rust_assert (pattern != nullptr);
+    return pattern;
+  }
+
 protected:
   /* Use covariance to implement clone function as returning this object rather
    * than base */

gcc/rust/resolve/rust-ast-resolve-pattern.h

@@ -75,6 +75,11 @@ class PatternDeclaration : public ResolverBase
     pattern.get_pattern_in_parens ()->accept_vis (*this);
   }
 
+  void visit (AST::ReferencePattern &pattern) override
+  {
+    pattern.get_referenced_pattern ()->accept_vis(*this);
+  }
+
   // cases in a match expression
   void visit (AST::PathInExpression &pattern) override;
 

gcc/rust/typecheck/rust-hir-type-check-pattern.cc

@@ -410,8 +410,15 @@ TypeCheckPattern::visit (HIR::QualifiedPathInExpression &pattern)
 void
 TypeCheckPattern::visit (HIR::ReferencePattern &pattern)
 {
-  rust_sorry_at (pattern.get_locus (),
-		 "type checking qualified path patterns not supported");
+  if (parent->get_kind () != TyTy::TypeKind::REF)
+    rust_error_at(pattern.get_locus (),
+       "expected %s, found reference",
+			 parent->as_string ().c_str ());
+
+  TyTy::ReferenceType *ref_ty_ty = static_cast<TyTy::ReferenceType *>(parent);
+
+  TypeCheckPattern::Resolve(pattern.get_referenced_pattern ().get (),
+		 ref_ty_ty->get_base ());
 }
 
 void