* test for fixed bug to play safe

tests/webtbs/tw39464.pp

@@ -0,0 +1,17 @@
+{ %norun }
+program Test;
+
+{$Mode ObjFPC}
+
+type
+  TTestRec = packed record
+    Empty: packed record end;
+  end;
+
+function GetEmptyPtr(R: TTestRec): Pointer;
+begin
+  Result := @R.Empty;
+end;
+    
+begin
+end.