From 5d4837329b41c9a02cde819195e8c3b3ee546c2e Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 1 Feb 2015 15:50:06 +0000
Subject: [PATCH] * changed {$modeswitch blocks} to {$modeswitch cblocks} to
avoid confusion with the Pascal meaning of the term "block"
git-svn-id: trunk@29594 -
---
compiler/globtype.pas | 2 +-
tests/test/tblock1.pp | 2 +-
tests/test/tblock1a.pp | 2 +-
tests/test/tblock1c.pp | 2 +-
tests/test/tblock2.pp | 2 +-
tests/test/tblock2a.pp | 2 +-
6 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/compiler/globtype.pas b/compiler/globtype.pas
index 7fc2d055c0..1e2262927b 100644
--- a/compiler/globtype.pas
+++ b/compiler/globtype.pas
@@ -568,7 +568,7 @@ interface
'FINALFIELDS',
'UNICODESTRINGS',
'TYPEHELPERS',
- 'BLOCKS');
+ 'CBLOCKS');
type
diff --git a/tests/test/tblock1.pp b/tests/test/tblock1.pp
index 0344deb7d3..db34e16ed7 100644
--- a/tests/test/tblock1.pp
+++ b/tests/test/tblock1.pp
@@ -1,7 +1,7 @@
{ %target=darwin,iphonesim}
{ %skipcpu=powerpc,powerpc64 }
-{$modeswitch blocks}
+{$modeswitch cblocks}
type
tblock = reference to procedure; cdecl;
diff --git a/tests/test/tblock1a.pp b/tests/test/tblock1a.pp
index 09cbe29d71..9e24a93435 100644
--- a/tests/test/tblock1a.pp
+++ b/tests/test/tblock1a.pp
@@ -2,7 +2,7 @@
{ %skipcpu=powerpc,powerpc64 }
{$mode delphi}
-{$modeswitch blocks}
+{$modeswitch cblocks}
type
tblock = reference to procedure; cdecl;
diff --git a/tests/test/tblock1c.pp b/tests/test/tblock1c.pp
index 38c646fa79..2702207591 100644
--- a/tests/test/tblock1c.pp
+++ b/tests/test/tblock1c.pp
@@ -1,7 +1,7 @@
{ %target=darwin,iphonesim}
{ %skipcpu=powerpc,powerpc64 }
-{$modeswitch blocks}
+{$modeswitch cblocks}
type
tblock = reference to function(l: longint): longint; cdecl;
diff --git a/tests/test/tblock2.pp b/tests/test/tblock2.pp
index 9979b66a7a..235c237364 100644
--- a/tests/test/tblock2.pp
+++ b/tests/test/tblock2.pp
@@ -2,7 +2,7 @@
{ %skipcpu=powerpc,powerpc64 }
{$mode objfpc}
-{$modeswitch blocks}
+{$modeswitch cblocks}
type
tblock = reference to procedure(j: longint); cdecl;
diff --git a/tests/test/tblock2a.pp b/tests/test/tblock2a.pp
index 3c00f23066..3f68a33f6e 100644
--- a/tests/test/tblock2a.pp
+++ b/tests/test/tblock2a.pp
@@ -2,7 +2,7 @@
{ %skipcpu=powerpc,powerpc64 }
{$mode delphi}
-{$modeswitch blocks}
+{$modeswitch cblocks}
type
tblock = reference to procedure(j: longint); cdecl;