diff --git a/.gitattributes b/.gitattributes
index 5a252b9e2e..7da65a92bb 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -18523,6 +18523,7 @@ tests/webtbs/tw38012.pp svneol=native#text/pascal
 tests/webtbs/tw38022.pp svneol=native#text/pascal
 tests/webtbs/tw3805.pp svneol=native#text/plain
 tests/webtbs/tw38051.pp svneol=native#text/pascal
+tests/webtbs/tw38054.pp svneol=native#text/plain
 tests/webtbs/tw3814.pp svneol=native#text/plain
 tests/webtbs/tw3827.pp svneol=native#text/plain
 tests/webtbs/tw3829.pp svneol=native#text/plain
diff --git a/compiler/pinline.pas b/compiler/pinline.pas
index ef4eee9026..2f47fee9b3 100644
--- a/compiler/pinline.pas
+++ b/compiler/pinline.pas
@@ -382,7 +382,7 @@ implementation
 
                      { create call to fpc_getmem }
                      para := ccallparanode.create(cordconstnode.create
-                         (tpointerdef(p.resultdef).pointeddef.size,s32inttype,true),nil);
+                         (tpointerdef(p.resultdef).pointeddef.size,ptruinttype,true),nil);
                      addstatement(newstatement,cassignmentnode.create(
                          ctemprefnode.create(temp),
                          ccallnode.createintern('fpc_getmem',para)));
diff --git a/tests/webtbs/tw38054.pp b/tests/webtbs/tw38054.pp
new file mode 100644
index 0000000000..1012c41810
--- /dev/null
+++ b/tests/webtbs/tw38054.pp
@@ -0,0 +1,12 @@
+{ %norun }
+const
+   l = high(ptrint);	//   2000  <-->  2100
+type
+   t = array[ 1..l ]of int8;	//   1.95  <-->  2.05  GiBy
+var
+   p: ^t;
+begin
+   new(p);
+   writeln( sizeof(p^) );
+   p^[l]:=0;  writeln(p^[l])
+end .