+ some extra tests

tests/test/cg/tcalcon1.pp

@@ -51,6 +51,33 @@ begin
     halt(1);
 end;
 
+procedure p1normal2(r: tr1);
+begin
+  if @r = @r1 then
+    halt(1);
+end;
+
+
+procedure p2normal2(r: tr2);
+begin
+  if @r = @r2 then
+    halt(1);
+end;
+
+
+procedure p3normal2(r: tr3);
+begin
+  if @r = @r3 then
+    halt(1);
+end;
+
+
+procedure p4normal2(r: tr4);
+begin
+  if @r = @r4 then
+    halt(1);
+end;
+
 
 procedure p1mw(const r: tr1); mwpascal;
 begin
@@ -80,14 +107,52 @@ begin
 end;
 
 
+procedure p1mw2(r: tr1); mwpascal;
+begin
+  if @r = @r1 then
+    halt(1);
+end;
+
+
+procedure p2mw2(r: tr2);mwpascal;
+begin
+  if @r = @r2 then
+    halt(1);
+end;
+
+
+procedure p3mw2(r: tr3);mwpascal;
+begin
+  if @r = @r3 then
+    halt(1);
+end;
+
+
+procedure p4mw2(r: tr4);mwpascal;
+begin
+  if @r = @r4 then
+    halt(1);
+end;
+
+
 begin
   p1normal(r1);
   p2normal(r2);
   p3normal(r3);
   p4normal(r4);
 
+  p1normal2(r1);
+  p2normal2(r2);
+  p3normal2(r3);
+  p4normal2(r4);
+
   p1mw(r1);
   p2mw(r2);
   p3mw(r3);
   p4mw(r4);
+
+  p1mw2(r1);
+  p2mw2(r2);
+  p3mw2(r3);
+  p4mw2(r4);
 end.