Add check for absolute word type

git-svn-id: trunk@29091 -

tests/webtbs/tw8513.pp

@@ -14,6 +14,7 @@ end;
 var
   Item: TMyType;
   ItemAsByte: byte absolute Item;
+  ItemAsWord: word absolute Item;
 
   r: tr;
   b: byte absolute r.b;
@@ -40,6 +41,9 @@ begin
   if (itemasbyte <> $de) then
     halt(1);
 
+  if (itemasword <> $dead) then
+    halt(3);
+
   r.a := $de;
   r.b := $ad;
   r.c := $be;