# revisions: 31603

git-svn-id: branches/fixes_3_0@33834 -

.gitattributes

@@ -14542,6 +14542,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/tw28674.pp svneol=native#text/pascal
 tests/webtbs/tw28702.pp svneol=native#text/plain
 tests/webtbs/tw28718a.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.
+