* several new tests

tests/tbs/tb0370.pp

@@ -0,0 +1,11 @@
+{ %VERSION=1.1 }
+
+{$mode delphi}
+type
+   tenum = (e1,e2,e3);
+
+const
+   e256 = tenum(256);
+
+begin
+end.

tests/tbs/tb0371.pp

@@ -0,0 +1,26 @@
+{ %VERSION=1.1 }
+{$mode delphi}
+unit test;
+
+interface
+
+  const
+     dllname = 'lalala';
+
+  type
+     pinteger = ^integer;
+
+  procedure p1(var i : integer);overload;
+  procedure p1(i : pinteger);overload;
+  procedure p2(var i : integer);overload;
+  procedure p2(i : pinteger);overload;
+
+implementation
+
+  procedure p1(var i : integer);overload;external dllname;
+  procedure p1(i : pinteger);overload;external dllname;
+  procedure p2(var i : integer);external dllname name 'lalala';
+  procedure p2(i : pinteger);external dllname name 'lalala';
+
+begin
+end.

tests/tbs/tb0372.pp

@@ -0,0 +1,17 @@
+{ %VERSION=1.1 }
+type
+   imyinterface = interface
+      // this program isn't supposed to run so the guid doesn't matter }
+      ['{00000000-0000-0000-0000-000000000000}']
+      procedure p;
+   end;
+
+const
+   iid_imyinterface = imyinterface;
+
+var
+   g : tguid;
+
+begin
+   g:=imyinterface;
+end.

tests/tbs/tb0373.pp

@@ -0,0 +1,8 @@
+{ %VERSION=1.1 }
+type
+   tmyinterface = interface
+      procedure p(p : longint); // Delphi allows this
+   end;
+
+begin
+end.