* new bug

tests/webtbs/tw2834.pp

@@ -0,0 +1,19 @@
+{ Source provided for Free Pascal Bug Report 2834 }
+{ Submitted by "Mattias Gaertner" on  2003-12-06 }
+{ e-mail: [email protected] }
+{$mode objfpc}{$H+}
+
+uses
+  uw2834;
+
+var
+  l1,l2 : pointer;
+begin
+  writeln('Should be the same:');
+  l1:=PrintTypeInfo;
+  l2:=pointer(TypeInfo(TMyType));
+  writeln(cardinal(l1),' - ',cardinal(l2));
+  if l1<>l2 then
+    halt(1);
+end.
+

tests/webtbs/uw2834.pp

@@ -0,0 +1,19 @@
+unit uw2834;
+
+{$mode objfpc}{$H+}
+
+interface
+
+type
+  TMyType = 1..2;
+
+function PrintTypeInfo:pointer;
+
+implementation
+
+function PrintTypeInfo:pointer;
+begin
+  result:=pointer(TypeInfo(TMyType));
+end;
+
+end.