* new bugs

tests/webtbs/tw1364.pp

@@ -0,0 +1,16 @@
+{$X-}
+
+type
+  o=object
+    constructor init(s:string);
+  end;
+
+constructor o.init(s:string);
+begin
+end;
+
+var
+  s:o;
+begin
+  s.init('test');
+end.

tests/webtbs/tw1376.pp

@@ -0,0 +1,13 @@
+unit tw1376;
+
+interface
+
+procedure mumble (x:integer); pascal;
+
+implementation
+
+procedure mumble (x:integer); pascal;
+begin
+end;
+
+end.