* 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

@@ -568,7 +568,7 @@ interface
          'FINALFIELDS',
          'UNICODESTRINGS',
          'TYPEHELPERS',
-         'BLOCKS');
+         'CBLOCKS');
 
 
      type

tests/test/tblock1.pp

@@ -1,7 +1,7 @@
 { %target=darwin,iphonesim}
 { %skipcpu=powerpc,powerpc64 }
 
-{$modeswitch blocks}
+{$modeswitch cblocks}
 
 type
   tblock = reference to procedure; cdecl;

tests/test/tblock1a.pp

@@ -2,7 +2,7 @@
 { %skipcpu=powerpc,powerpc64 }
 
 {$mode delphi}
-{$modeswitch blocks}
+{$modeswitch cblocks}
 
 type
   tblock = reference to procedure; cdecl;

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;

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;

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;