paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 06:49:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added po_far to tprocoptions

Browse Source 
git-svn-id: trunk@24815 -
This commit is contained in:
nickysn 2013-06-08 16:34:30 +00:00
parent fcc84e5d96
commit 381c996e53
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ppu.pas
View File

@ -43,7 +43,7 @@ type
{$endif Test_Double_checksum} {$endif Test_Double_checksum}
const const
CurrentPPUVersion = 160; CurrentPPUVersion = 161;
{ buffer sizes } { buffer sizes }
maxentrysize = 1024; maxentrysize = 1024;

4
compiler/symconst.pas
View File

@ -350,7 +350,9 @@ type
{ the visibility of of this procdef was raised automatically by the { the visibility of of this procdef was raised automatically by the
compiler, e.g. because it was designated as a getter/setter for a property compiler, e.g. because it was designated as a getter/setter for a property
with a higher visibility on the JVM target } with a higher visibility on the JVM target }
po_auto_raised_visibility po_auto_raised_visibility,
{ procedure is far (x86 only) }
po_far
); );
tprocoptions=set of tprocoption; tprocoptions=set of tprocoption;

3
compiler/utils/ppuutils/ppudump.pp
View File

@ -1723,7 +1723,8 @@ const
(mask:po_java_nonvirtual; str: 'Java non-virtual method'), (mask:po_java_nonvirtual; str: 'Java non-virtual method'),
(mask:po_ignore_for_overload_resolution;str: 'Ignored for overload resolution'), (mask:po_ignore_for_overload_resolution;str: 'Ignored for overload resolution'),
(mask:po_rtlproc; str: 'RTL procedure'), (mask:po_rtlproc; str: 'RTL procedure'),
(mask:po_auto_raised_visibility; str: 'Visibility raised by compiler') (mask:po_auto_raised_visibility; str: 'Visibility raised by compiler'),
(mask:po_far; str: 'Far')
); );
var var
proctypeoption : tproctypeoption; proctypeoption : tproctypeoption;