Do not assume that size of integer type is 4 (it's 2 for msdos)

git-svn-id: trunk@39122 -

tests/test/tgeneric5.pp

@@ -25,7 +25,7 @@ begin
       writeln('Typeinfo error');
       err:=true;
     end;
-  if sizeof(item)<>4 then
+  if sizeof(item)<>sizeof(integer) then
     begin
       writeln('Sizeof error');
       err:=true;