Add support for OpenString intrinsic type

See: https://docwiki.embarcadero.com/Libraries/en/System.Openstring

Author: cirras

CHANGELOG.md

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

delphi-frontend/src/main/java/au/com/integradev/delphi/type/factory/TypeFactoryImpl.java

@@ -290,6 +290,8 @@ private void createIntrinsicTypes() {
     addString(IntrinsicType.UNICODESTRING, pointerSize(), IntrinsicType.WIDECHAR);
     addString(IntrinsicType.SHORTSTRING, 256, IntrinsicType.ANSICHAR);
 
+    addWeakAlias(IntrinsicType.OPENSTRING, IntrinsicType.SHORTSTRING);
+
     if (isStringUnicode()) {
       addWeakAlias(IntrinsicType.STRING, IntrinsicType.UNICODESTRING);
       addWeakAlias(IntrinsicType.CHAR, IntrinsicType.WIDECHAR);

delphi-frontend/src/main/java/org/sonar/plugins/communitydelphi/api/type/IntrinsicType.java

@@ -50,6 +50,7 @@ public enum IntrinsicType implements Qualifiable {
   WIDESTRING("WideString"),
   UNICODESTRING("UnicodeString"),
   SHORTSTRING("ShortString"),
+  OPENSTRING("OpenString"),
   STRING("String"),
   ANSICHAR("AnsiChar"),
   WIDECHAR("WideChar"),