From 43d7b23555ac17e766262e04cc1b28777c6025c8 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 4 Jun 2018 10:58:23 +0000
Subject: [PATCH]  * fix for #33817, also p* marshalledstring for Delphi
 compat.

git-svn-id: trunk@39165 -
---
 rtl/inc/systemh.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 08dbf71b43..dd8c382f1f 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -592,6 +592,9 @@ Type
   PUnicodeChar        = ^UnicodeChar;
   PUnicodeString      = ^UnicodeString;
 
+  PMarshaledString    = ^PWideChar;
+  PMarshaledAString   = ^PAnsiChar;
+
   MarshaledString     = PWideChar;
   MarshaledAString    = PAnsiChar;