paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed {$modeswitch blocks} to {$modeswitch cblocks} to avoid confusion

Browse Source 
with the Pascal meaning of the term "block"

git-svn-id: trunk@29594 -
This commit is contained in:
Jonas Maebe 2015-02-01 15:50:06 +00:00
parent 460c4acaee
commit 5d4837329b
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/globtype.pas
View File

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

2
tests/test/tblock1.pp
View File

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

2
tests/test/tblock1a.pp
View File

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

2
tests/test/tblock1c.pp
View File

@ -1,7 +1,7 @@
{ %target=darwin,iphonesim}
{ %skipcpu=powerpc,powerpc64 }
{$modeswitch blocks}
{$modeswitch cblocks}
type
tblock = reference to function(l: longint): longint; cdecl;

2
tests/test/tblock2.pp
View File

@ -2,7 +2,7 @@
{ %skipcpu=powerpc,powerpc64 }
{$mode objfpc}
{$modeswitch blocks}
{$modeswitch cblocks}
type
tblock = reference to procedure(j: longint); cdecl;

2
tests/test/tblock2a.pp
View File

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