diff --git a/compiler/ppu.pas b/compiler/ppu.pas index 79052ce335..b7c14c0c98 100644 --- a/compiler/ppu.pas +++ b/compiler/ppu.pas @@ -43,7 +43,7 @@ type {$endif Test_Double_checksum} const - CurrentPPUVersion = 160; + CurrentPPUVersion = 161; { buffer sizes } maxentrysize = 1024; diff --git a/compiler/symconst.pas b/compiler/symconst.pas index 83dd7982b2..9390826ef8 100644 --- a/compiler/symconst.pas +++ b/compiler/symconst.pas @@ -350,7 +350,9 @@ type { 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 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; diff --git a/compiler/utils/ppuutils/ppudump.pp b/compiler/utils/ppuutils/ppudump.pp index c4df7c08f3..219f5566ef 100644 --- a/compiler/utils/ppuutils/ppudump.pp +++ b/compiler/utils/ppuutils/ppudump.pp @@ -1723,7 +1723,8 @@ const (mask:po_java_nonvirtual; str: 'Java non-virtual method'), (mask:po_ignore_for_overload_resolution;str: 'Ignored for overload resolution'), (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 proctypeoption : tproctypeoption;