From 542719c8f5128d7be444c06b50b14177aed8bc0f Mon Sep 17 00:00:00 2001 From: nickysn Date: Fri, 11 Apr 2014 20:47:45 +0000 Subject: [PATCH] + added symdef.voidcodepointertype git-svn-id: trunk@27536 - --- compiler/psystem.pas | 5 +++++ compiler/symdef.pas | 1 + 2 files changed, 6 insertions(+) diff --git a/compiler/psystem.pas b/compiler/psystem.pas index 43f5b97bd8..933f070be6 100644 --- a/compiler/psystem.pas +++ b/compiler/psystem.pas @@ -153,8 +153,13 @@ implementation procedure set_default_ptr_types; begin {$ifdef i8086} + if current_settings.x86memorymodel in x86_far_code_models then + voidcodepointertype:=voidfarpointertype + else + voidcodepointertype:=voidnearpointertype; voidstackpointertype:=voidnearsspointertype; {$else i8086} + voidcodepointertype:=voidpointertype; voidstackpointertype:=voidpointertype; {$endif i8086} end; diff --git a/compiler/symdef.pas b/compiler/symdef.pas index 0d66ff4762..cedb000efe 100644 --- a/compiler/symdef.pas +++ b/compiler/symdef.pas @@ -924,6 +924,7 @@ interface voidpointertype, { pointer for Void-pointeddef } charpointertype, { pointer for Char-pointeddef } widecharpointertype, { pointer for WideChar-pointeddef } + voidcodepointertype, { pointer to code; corresponds to System.CodePointer } voidstackpointertype, { the pointer type used for accessing parameters and local vars on the stack } parentfpvoidpointertype, { void pointer with the size of the hidden parentfp parameter, passed to nested functions } {$ifdef x86}