* extend scanning of $modeswitch to support not only + and -, but also ON and OFF like other switches

+ added tests

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39280 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 50 insertions, 0 deletions

diff --git a/tests/tbf/tb0257a.pp b/tests/tbf/tb0257a.pp
new file mode 100644
index 0000000000..07d673a5e7
--- /dev/null
+++ b/tests/tbf/tb0257a.pp
@@ -0,0 +1,25 @@
+{ %FAIL }
+
+unit tb0257a;
+
+{$mode delphi}
+{$modeswitch advancedrecords-}
+
+interface
+
+type
+  TTest = record
+    procedure Test;
+  end;
+
+implementation
+
+{ TTest }
+
+procedure TTest.Test;
+begin
+
+end;
+
+end.
+
diff --git a/tests/tbf/tb0257b.pp b/tests/tbf/tb0257b.pp
new file mode 100644
index 0000000000..795f73fc2a
--- /dev/null
+++ b/tests/tbf/tb0257b.pp
@@ -0,0 +1,25 @@
+{ %FAIL }
+
+unit tb0257b;
+
+{$mode delphi}
+{$modeswitch advancedrecords off}
+
+interface
+
+type
+  TTest = record
+    procedure Test;
+  end;
+
+implementation
+
+{ TTest }
+
+procedure TTest.Test;
+begin
+
+end;
+
+end.
+