Fix for Mantis #28650.

rtl/objpas/sysutils/sysstrh.inc:
  * forward PString to ObjPas.PString to avoid potential type conflicts

+ added test

git-svn-id: trunk@31603 -

.gitattributes

@@ -14736,6 +14736,7 @@ tests/webtbs/tw2853e.pp svneol=native#text/plain
 tests/webtbs/tw2859.pp svneol=native#text/plain
 tests/webtbs/tw28593.pp svneol=native#text/plain
 tests/webtbs/tw2865.pp svneol=native#text/plain
+tests/webtbs/tw28650.pp svneol=native#text/pascal
 tests/webtbs/tw2876.pp svneol=native#text/plain
 tests/webtbs/tw2883.pp svneol=native#text/plain
 tests/webtbs/tw2885.pp svneol=native#text/plain

rtl/objpas/sysutils/sysstrh.inc

@@ -19,7 +19,7 @@
 {==============================================================================}
 
 type
-   PString = ^String;
+   PString = ObjPas.PString;
 
    { For FloatToText }
    TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency);

tests/webtbs/tw28650.pp

@@ -0,0 +1,20 @@
+unit tw28650;
+
+{$mode objfpc}{$H+}
+
+interface
+
+function Test: PString;
+
+implementation
+
+uses
+  SysUtils;
+
+function Test: PString;
+begin
+
+end;
+
+end.
+