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

* moved creation of voidpointertype, so that voidpointertype.size is available

Browse Source 
earlier

git-svn-id: trunk@26951 -
This commit is contained in:
nickysn 2014-03-04 14:10:02 +00:00
parent 0ec6a79505
commit 9743a9122d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/psystem.pas
View File

@ -190,6 +190,7 @@ implementation
cformaltype:=tformaldef.create(false);
ctypedformaltype:=tformaldef.create(true);
voidtype:=torddef.create(uvoid,0,0);
voidpointertype:=tpointerdef.create(voidtype);
u8inttype:=torddef.create(u8bit,0,255);
s8inttype:=torddef.create(s8bit,int64(-128),127);
u16inttype:=torddef.create(u16bit,0,65535);
@ -270,7 +271,6 @@ implementation
{$endif jvm}
set_default_int_types;
{ some other definitions }
voidpointertype:=tpointerdef.create(voidtype);
charpointertype:=tpointerdef.create(cansichartype);
widecharpointertype:=tpointerdef.create(cwidechartype);
{$ifdef i8086}
@ -388,6 +388,7 @@ implementation
addtype('$formal',cformaltype);
addtype('$typedformal',ctypedformaltype);
addtype('$void',voidtype);
addtype('$void_pointer',voidpointertype);
addtype('$byte',u8inttype);
addtype('$shortint',s8inttype);
addtype('$word',u16inttype);
@ -412,7 +413,6 @@ implementation
addtype('$wordbool',bool16type);
addtype('$longbool',bool32type);
addtype('$qwordbool',bool64type);
addtype('$void_pointer',voidpointertype);
addtype('$char_pointer',charpointertype);
addtype('$widechar_pointer',widecharpointertype);
addtype('$parentfp_void_pointer',parentfpvoidpointertype);
@ -523,6 +523,7 @@ implementation
loadtype('formal',cformaltype);
loadtype('typedformal',ctypedformaltype);
loadtype('void',voidtype);
loadtype('void_pointer',voidpointertype);
loadtype('char',cansichartype);
loadtype('widechar',cwidechartype);
loadtype('shortstring',cshortstringtype);
@ -548,7 +549,6 @@ implementation
loadtype('wordbool',bool16type);
loadtype('longbool',bool32type);
loadtype('qwordbool',bool64type);
loadtype('void_pointer',voidpointertype);
loadtype('char_pointer',charpointertype);
loadtype('widechar_pointer',widecharpointertype);
loadtype('parentfp_void_pointer',parentfpvoidpointertype);