+ added symdef.voidcodepointertype

git-svn-id: trunk@27536 -

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;

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}