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

+ added symdef.voidcodepointertype

Browse Source 
git-svn-id: trunk@27536 -
This commit is contained in:
nickysn 2014-04-11 20:47:45 +00:00
parent e85075de7f
commit 542719c8f5
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/psystem.pas
View File

@ -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;

1
compiler/symdef.pas
View File

@ -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}