Преглед на файлове

* check that doubleaddr are refused in fpc mode

pierre преди 22 години
родител
ревизия
291f66991e
променени са 3 файла, в които са добавени 30 реда и са изтрити 0 реда
  1. 10 0
      tests/tbf/tb0155.pp
  2. 10 0
      tests/tbf/tb0155a.pp
  3. 10 0
      tests/tbf/tb0155b.pp

+ 10 - 0
tests/tbf/tb0155.pp

@@ -0,0 +1,10 @@
+{ %FAIL }
+
+{ @@(x) should be refused in normal mode }
+
+var
+ x:function(x:longint):longint;
+ z:pointer;
+begin
+ z:=@@x;
+end.

+ 10 - 0
tests/tbf/tb0155a.pp

@@ -0,0 +1,10 @@
+{ %FAIL }
+
+{ addr(@(x)) should be refused in normal mode }
+
+var
+ x:function(x:longint):longint;
+ w:pointer;
+begin
+ w:=addr(@x);
+end.

+ 10 - 0
tests/tbf/tb0155b.pp

@@ -0,0 +1,10 @@
+{ %FAIL }
+
+{ @(addr(x)) should be refused in normal mode }
+
+var
+ x:function(x:longint):longint;
+ v:pointer;
+begin
+ v:=@(addr(x));
+end.