+ forgotten test

git-svn-id: trunk@38342 -

.gitattributes

@@ -16019,6 +16019,7 @@ tests/webtbs/tw33098.pp svneol=native#text/pascal
 tests/webtbs/tw33167.pp svneol=native#text/pascal
 tests/webtbs/tw3320.pp svneol=native#text/plain
 tests/webtbs/tw33202.pp svneol=native#text/pascal
+tests/webtbs/tw33222.pp svneol=native#text/pascal
 tests/webtbs/tw3324.pp svneol=native#text/plain
 tests/webtbs/tw3327.pp svneol=native#text/plain
 tests/webtbs/tw3328.pp svneol=native#text/plain

tests/webtbs/tw33222.pp

@@ -0,0 +1,25 @@
+var
+  hl : record
+    hashnext : pqword;
+  end;
+  fs : dword;
+  sr : record
+    slot : dword;
+  end;
+
+procedure p;
+begin
+  hl.hashnext[sr.slot] := (qword(fs) shl 32) or dword(hl.hashnext[sr.slot]);
+end;
+
+begin
+  fs:=$12341234;
+  sr.slot:=0;
+  getmem(hl.hashnext,sizeof(qword));
+  hl.hashnext[sr.slot]:=$1eadbeef00000000;
+  p;
+  if hl.hashnext[sr.slot]<>$1234123400000000 then
+    halt(1);
+  freemem(hl.hashnext);
+  writeln('ok');
+end.