Add support for GetTypeKind intrinsic

Author: cirras

CHANGELOG.md

@@ -10,6 +10,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ### Added
 
 - Support for the `AtomicCmpExchange128` intrinsic routine.
+- Support for the `GetTypeKind` intrinsic routine.
 - **API:** `TypeParameterNode::getTypeParameters` method.
 - **API:** `InterfaceTypeNode::getGuidExpression` method.
 - **API:** `AttributeNode::getExpression` method.

delphi-checks-testkit/src/main/java/au/com/integradev/delphi/checks/verifier/CheckVerifierImpl.java

@@ -793,6 +793,12 @@ private Path createStandardLibrary() {
               + "  TVarArgList = record\n"
               + "  end;\n"
               + "\n"
+              + "  TTypeKind = (\n"
+              + "    tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet,\n"
+              + "    tkClass, tkMethod, tkWChar, tkLString, tkWString, tkVariant, tkArray,\n"
+              + "    tkClassRef, tkPointer, tkProcedure, tkMRecord\n"
+              + "  );\n"
+              + "\n"
               + "implementation\n"
               + "\n"
               + "end.");

delphi-frontend/src/main/java/au/com/integradev/delphi/type/intrinsic/IntrinsicsInjector.java

@@ -262,6 +262,7 @@ private void buildRoutines() {
     routine("FreeMem").varParam(ANY_POINTER).param(type(INTEGER)).required(1);
     routine("GetDir").param(type(BYTE)).varParam(ANY_STRING);
     routine("GetMem").varParam(ANY_POINTER).param(type(INTEGER));
+    routine("GetTypeKind").param(TypeFactory.untypedType()).returns(systemType("TTypeKind"));
     routine("Halt").param(type(INTEGER)).required(0);
     routine("HasWeakRef").param(ANY_CLASS_REFERENCE).returns(type(BOOLEAN));
     routine("Hi").param(type(INTEGER)).returns(type(BYTE));

delphi-frontend/src/test/java/au/com/integradev/delphi/executor/DelphiSymbolTableExecutorTest.java

@@ -610,6 +610,12 @@ void testVarArgIntrinsics() {
     verifyUsages(15, 2, reference(18, 21));
   }
 
+  @Test
+  void testGetTypeKindIntrinsic() {
+    execute("intrinsics/GetTypeKindIntrinsic.pas");
+    verifyUsages(7, 10, reference(14, 2), reference(15, 2));
+  }
+
   @Test
   void testBinaryOperatorIntrinsics() {
     execute("operators/BinaryOperatorIntrinsics.pas");
@@ -1648,6 +1654,7 @@ private static Path createStandardLibrary(Path baseDir) {
               + "  end;\n"
               + "  TVarArgList = record\n"
               + "  end;\n"
+              + "  TTypeKind = (tkUnknown);\n"
               + "implementation\n"
               + "end.");
 

delphi-frontend/src/test/resources/au/com/integradev/delphi/symbol/intrinsics/GetTypeKindIntrinsic.pas

@@ -0,0 +1,18 @@
+unit GetTypeKindIntrinsic;
+
+interface
+
+implementation
+
+procedure Proc(Arg: TTypeKind); overload;
+begin
+  // Do nothing
+end;
+
+procedure Test;
+begin
+  Proc(GetTypeKind(123));
+  Proc(GetTypeKind(TObject));
+end;
+
+end.