mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 15:39:32 +02:00
9d2bba1917
pasbool8type for this results in too much trouble (we mustn't use i1
for parameters, because then LLVM will try to apply the ABI convention
for passing "1 bit" values, or in records because then this may
result in unwanted bitpacking). Downside: the new LLVMBool1 type is
also exposed in the system unit, because we need it to define LLVM
intrinsics...
git-svn-id: trunk@33726 -
771 lines
32 KiB
ObjectPascal
771 lines
32 KiB
ObjectPascal
{
|
|
Copyright (c) 1998-2002 by Florian Klaempfl
|
|
|
|
Load the system unit, create required defs for systemunit
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
****************************************************************************
|
|
}
|
|
unit psystem;
|
|
|
|
{$i fpcdefs.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
symbase;
|
|
|
|
procedure create_intern_symbols;
|
|
procedure create_intern_types;
|
|
|
|
procedure load_intern_types;
|
|
|
|
procedure registernodes;
|
|
procedure registertais;
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
globals,globtype,verbose,constexp,cpuinfo,
|
|
systems,
|
|
symconst,symtype,symsym,symdef,symcpu,symtable,
|
|
aasmtai,aasmdata,aasmcpu,
|
|
ncgutil,ncgrtti,fmodule,
|
|
node,nbas,nflw,nset,ncon,ncnv,nld,nmem,ncal,nmat,nadd,ninl,nopt
|
|
;
|
|
|
|
|
|
procedure create_intern_symbols;
|
|
{
|
|
all intern procedures for the system unit
|
|
}
|
|
begin
|
|
systemunit.insert(csyssym.create('Concat',in_concat_x));
|
|
systemunit.insert(csyssym.create('Write',in_write_x));
|
|
systemunit.insert(csyssym.create('WriteLn',in_writeln_x));
|
|
systemunit.insert(csyssym.create('WriteStr',in_writestr_x));
|
|
systemunit.insert(csyssym.create('Assigned',in_assigned_x));
|
|
systemunit.insert(csyssym.create('Read',in_read_x));
|
|
systemunit.insert(csyssym.create('ReadLn',in_readln_x));
|
|
systemunit.insert(csyssym.create('ReadStr',in_readstr_x));
|
|
systemunit.insert(csyssym.create('Ofs',in_ofs_x));
|
|
systemunit.insert(csyssym.create('SizeOf',in_sizeof_x));
|
|
systemunit.insert(csyssym.create('BitSizeOf',in_bitsizeof_x));
|
|
systemunit.insert(csyssym.create('TypeOf',in_typeof_x));
|
|
systemunit.insert(csyssym.create('Low',in_low_x));
|
|
systemunit.insert(csyssym.create('High',in_high_x));
|
|
systemunit.insert(csyssym.create('Slice',in_slice_x));
|
|
systemunit.insert(csyssym.create('Seg',in_seg_x));
|
|
systemunit.insert(csyssym.create('Ord',in_ord_x));
|
|
systemunit.insert(csyssym.create('Pred',in_pred_x));
|
|
systemunit.insert(csyssym.create('Succ',in_succ_x));
|
|
systemunit.insert(csyssym.create('Exclude',in_exclude_x_y));
|
|
systemunit.insert(csyssym.create('Include',in_include_x_y));
|
|
systemunit.insert(csyssym.create('Pack',in_pack_x_y_z));
|
|
systemunit.insert(csyssym.create('Unpack',in_unpack_x_y_z));
|
|
systemunit.insert(csyssym.create('Break',in_break));
|
|
systemunit.insert(csyssym.create('Exit',in_exit));
|
|
systemunit.insert(csyssym.create('Continue',in_continue));
|
|
systemunit.insert(csyssym.create('Leave',in_leave)); {macpas only}
|
|
systemunit.insert(csyssym.create('Cycle',in_cycle)); {macpas only}
|
|
systemunit.insert(csyssym.create('Dec',in_dec_x));
|
|
systemunit.insert(csyssym.create('Inc',in_inc_x));
|
|
systemunit.insert(csyssym.create('Str',in_str_x_string));
|
|
systemunit.insert(csyssym.create('Assert',in_assert_x_y));
|
|
systemunit.insert(csyssym.create('Val',in_val_x));
|
|
systemunit.insert(csyssym.create('Addr',in_addr_x));
|
|
systemunit.insert(csyssym.create('TypeInfo',in_typeinfo_x));
|
|
systemunit.insert(csyssym.create('SetLength',in_setlength_x));
|
|
systemunit.insert(csyssym.create('Copy',in_copy_x));
|
|
systemunit.insert(csyssym.create('Initialize',in_initialize_x));
|
|
systemunit.insert(csyssym.create('Finalize',in_finalize_x));
|
|
systemunit.insert(csyssym.create('Length',in_length_x));
|
|
systemunit.insert(csyssym.create('New',in_new_x));
|
|
systemunit.insert(csyssym.create('Dispose',in_dispose_x));
|
|
{$ifdef SUPPORT_GET_FRAME}
|
|
systemunit.insert(csyssym.create('Get_Frame',in_get_frame));
|
|
{$endif SUPPORT_GET_FRAME}
|
|
systemunit.insert(csyssym.create('Unaligned',in_unaligned_x));
|
|
systemunit.insert(csyssym.create('Aligned',in_aligned_x));
|
|
systemunit.insert(csyssym.create('ObjCSelector',in_objc_selector_x)); { objc only }
|
|
systemunit.insert(csyssym.create('ObjCEncode',in_objc_encode_x)); { objc only }
|
|
systemunit.insert(csyssym.create('Default',in_default_x));
|
|
systemunit.insert(csyssym.create('SetString',in_setstring_x_y_z));
|
|
systemunit.insert(cconstsym.create_ord('False',constord,0,pasbool8type));
|
|
systemunit.insert(cconstsym.create_ord('True',constord,1,pasbool8type));
|
|
end;
|
|
|
|
|
|
procedure set_default_int_types;
|
|
begin
|
|
{$ifdef cpu64bitaddr}
|
|
uinttype:=u64inttype;
|
|
sinttype:=s64inttype;
|
|
ptruinttype:=u64inttype;
|
|
ptrsinttype:=s64inttype;
|
|
{$endif cpu64bitaddr}
|
|
{$ifdef cpu32bitaddr}
|
|
uinttype:=u32inttype;
|
|
sinttype:=s32inttype;
|
|
ptruinttype:=u32inttype;
|
|
ptrsinttype:=s32inttype;
|
|
{$endif cpu32bitaddr}
|
|
{$ifdef cpu32bitalu}
|
|
uinttype:=u32inttype;
|
|
sinttype:=s32inttype;
|
|
{$endif cpu32bitalu}
|
|
{$ifdef cpu16bitaddr}
|
|
ptruinttype:=u16inttype;
|
|
ptrsinttype:=s16inttype;
|
|
{$endif cpu16bitaddr}
|
|
{$ifdef cpu16bitalu}
|
|
uinttype:=u16inttype;
|
|
sinttype:=s16inttype;
|
|
{$endif cpu16bitalu}
|
|
{$ifdef cpu8bitalu}
|
|
uinttype:=u8inttype;
|
|
sinttype:=s8inttype;
|
|
{$endif cpu8bitalu}
|
|
|
|
osuinttype:=uinttype;
|
|
ossinttype:=sinttype;
|
|
end;
|
|
|
|
|
|
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}
|
|
case voidcodepointertype.size of
|
|
2:
|
|
begin
|
|
codeptruinttype:=u16inttype;
|
|
codeptrsinttype:=s16inttype;
|
|
end;
|
|
4:
|
|
begin
|
|
codeptruinttype:=u32inttype;
|
|
codeptrsinttype:=s32inttype;
|
|
end;
|
|
8:
|
|
begin
|
|
codeptruinttype:=u64inttype;
|
|
codeptrsinttype:=s64inttype;
|
|
end;
|
|
else
|
|
Internalerror(2015112106);
|
|
end;
|
|
end;
|
|
|
|
procedure create_intern_types;
|
|
{
|
|
all the types inserted into the system unit
|
|
}
|
|
|
|
function addtype(const s:string;def:tdef):ttypesym;
|
|
begin
|
|
result:=ctypesym.create(s,def,true);
|
|
systemunit.insert(result);
|
|
end;
|
|
|
|
procedure addfield(recst:tabstractrecordsymtable;sym:tfieldvarsym);
|
|
begin
|
|
recst.insert(sym);
|
|
recst.addfield(sym,vis_hidden);
|
|
end;
|
|
|
|
procedure create_fpu_types;
|
|
begin
|
|
if init_settings.fputype<>fpu_none then
|
|
begin
|
|
s32floattype:=cfloatdef.create(s32real,true);
|
|
s64floattype:=cfloatdef.create(s64real,true);
|
|
s80floattype:=cfloatdef.create(s80real,true);
|
|
sc80floattype:=cfloatdef.create(sc80real,true);
|
|
end else begin
|
|
s32floattype:=nil;
|
|
s64floattype:=nil;
|
|
s80floattype:=nil;
|
|
sc80floattype:=nil;
|
|
end;
|
|
end;
|
|
|
|
var
|
|
hrecst : trecordsymtable;
|
|
begin
|
|
symtablestack.push(systemunit);
|
|
cundefinedtype:=cundefineddef.create(true);
|
|
cformaltype:=cformaldef.create(false);
|
|
ctypedformaltype:=cformaldef.create(true);
|
|
voidtype:=corddef.create(uvoid,0,0,true);
|
|
voidpointertype:=cpointerdef.create(voidtype);
|
|
u8inttype:=corddef.create(u8bit,0,255,true);
|
|
s8inttype:=corddef.create(s8bit,int64(-128),127,true);
|
|
u16inttype:=corddef.create(u16bit,0,65535,true);
|
|
s16inttype:=corddef.create(s16bit,int64(-32768),32767,true);
|
|
u32inttype:=corddef.create(u32bit,0,high(longword),true);
|
|
s32inttype:=corddef.create(s32bit,int64(low(longint)),int64(high(longint)),true);
|
|
u64inttype:=corddef.create(u64bit,low(qword),high(qword),true);
|
|
s64inttype:=corddef.create(s64bit,low(int64),high(int64),true);
|
|
{ upper/lower bound not yet properly set for 128 bit types, as we don't
|
|
support them yet at the Pascal level (nor for tconstexprint); they're
|
|
only used internally by the high level code generator for LLVM to
|
|
implement overflow checking }
|
|
u128inttype:=corddef.create(u128bit,0,0,true);
|
|
s128inttype:=corddef.create(s128bit,0,0,true);
|
|
pasbool8type:=corddef.create(pasbool8,0,1,true);
|
|
pasbool16type:=corddef.create(pasbool16,0,1,true);
|
|
pasbool32type:=corddef.create(pasbool32,0,1,true);
|
|
pasbool64type:=corddef.create(pasbool64,0,1,true);
|
|
bool8type:=corddef.create(bool8bit,low(int64),high(int64),true);
|
|
bool16type:=corddef.create(bool16bit,low(int64),high(int64),true);
|
|
bool32type:=corddef.create(bool32bit,low(int64),high(int64),true);
|
|
bool64type:=corddef.create(bool64bit,low(int64),high(int64),true);
|
|
{$ifdef llvm}
|
|
llvmbool1type:=corddef.create(pasbool8,0,1,true);
|
|
{$endif llvm}
|
|
cansichartype:=corddef.create(uchar,0,255,true);
|
|
cwidechartype:=corddef.create(uwidechar,0,65535,true);
|
|
cshortstringtype:=cstringdef.createshort(255,true);
|
|
{ should we give a length to the default long and ansi string definition ?? }
|
|
clongstringtype:=cstringdef.createlong(-1,true);
|
|
cansistringtype:=cstringdef.createansi(0,true);
|
|
if target_info.system in systems_windows then
|
|
cwidestringtype:=cstringdef.createwide(true)
|
|
else
|
|
cwidestringtype:=cstringdef.createunicode(true);
|
|
cunicodestringtype:=cstringdef.createunicode(true);
|
|
{ length=0 for shortstring is open string (needed for readln(string) }
|
|
openshortstringtype:=cstringdef.createshort(0,true);
|
|
{$ifdef x86}
|
|
create_fpu_types;
|
|
{$ifndef FPC_SUPPORT_X87_TYPES_ON_WIN64}
|
|
if target_info.system=system_x86_64_win64 then
|
|
begin
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
pbestrealtype:=@s64floattype;
|
|
end
|
|
else
|
|
{$endif FPC_SUPPORT_X87_TYPES_ON_WIN64}
|
|
s64currencytype:=cfloatdef.create(s64currency,true);
|
|
{$endif x86}
|
|
{$ifdef powerpc}
|
|
create_fpu_types;
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
{$endif powerpc}
|
|
{$ifdef POWERPC64}
|
|
create_fpu_types;
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
{$endif POWERPC64}
|
|
{$ifdef sparc}
|
|
create_fpu_types;
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
{$endif sparc}
|
|
{$ifdef m68k}
|
|
create_fpu_types;
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
{$endif}
|
|
{$ifdef arm}
|
|
create_fpu_types;
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
{$endif arm}
|
|
{$ifdef aarch64}
|
|
create_fpu_types;
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
{$endif aarch64}
|
|
{$ifdef avr}
|
|
s32floattype:=cfloatdef.create(s32real,true);
|
|
s64floattype:=cfloatdef.create(s64real,true);
|
|
s80floattype:=cfloatdef.create(s80real,true);
|
|
sc80floattype:=cfloatdef.create(sc80real,true);
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
{$endif avr}
|
|
{$ifdef mips}
|
|
create_fpu_types;
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
{$endif mips}
|
|
{$ifdef jvm}
|
|
create_fpu_types;
|
|
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
|
|
{$endif jvm}
|
|
set_default_int_types;
|
|
{ some other definitions }
|
|
openchararraytype:=carraydef.create(0,-1,ptrsinttype);
|
|
tarraydef(openchararraytype).elementdef:=cansichartype;
|
|
charpointertype:=cpointerdef.create(cansichartype);
|
|
widecharpointertype:=cpointerdef.create(cwidechartype);
|
|
{$ifdef i8086}
|
|
parentfpvoidpointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near_ss);
|
|
{$else i8086}
|
|
parentfpvoidpointertype:=cpointerdef.create(voidtype);
|
|
{$endif i8086}
|
|
{$ifdef x86}
|
|
voidnearpointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near);
|
|
voidnearcspointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near_cs);
|
|
voidneardspointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near_ds);
|
|
voidnearsspointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near_ss);
|
|
voidnearespointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near_es);
|
|
voidnearfspointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near_fs);
|
|
voidneargspointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near_gs);
|
|
{$ifdef i8086}
|
|
voidfarpointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_far);
|
|
voidhugepointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_huge);
|
|
charnearpointertype:=tcpupointerdefclass(cpointerdef).createx86(cansichartype,x86pt_near);
|
|
charfarpointertype:=tcpupointerdefclass(cpointerdef).createx86(cansichartype,x86pt_far);
|
|
charhugepointertype:=tcpupointerdefclass(cpointerdef).createx86(cansichartype,x86pt_huge);
|
|
bytefarpointertype:=tcpupointerdefclass(cpointerdef).createx86(u8inttype,x86pt_far);
|
|
wordfarpointertype:=tcpupointerdefclass(cpointerdef).createx86(u16inttype,x86pt_far);
|
|
longintfarpointertype:=tcpupointerdefclass(cpointerdef).createx86(s32inttype,x86pt_far);
|
|
{$endif i8086}
|
|
{$endif x86}
|
|
set_default_ptr_types;
|
|
cfiletype:=cfiledef.createuntyped;
|
|
cvarianttype:=cvariantdef.create(vt_normalvariant);
|
|
colevarianttype:=cvariantdef.create(vt_olevariant);
|
|
|
|
{$ifdef cpufpemu}
|
|
{ Normal types }
|
|
(* we use the same types as without emulator, the only
|
|
difference is that direct calls to the emulator are generated
|
|
if (cs_fp_emulation in current_settings.moduleswitches) then
|
|
begin
|
|
addtype('Single',s32floattype);
|
|
{ extended size is the best real type for the target }
|
|
addtype('Real',s32floattype);
|
|
pbestrealtype:=@s32floattype;
|
|
{ extended size is the best real type for the target }
|
|
addtype('Extended',pbestrealtype^);
|
|
end
|
|
else
|
|
*)
|
|
{$endif cpufpemu}
|
|
if init_settings.fputype <> fpu_none then
|
|
begin
|
|
addtype('Single',s32floattype);
|
|
addtype('Double',s64floattype);
|
|
{ extended size is the best real type for the target }
|
|
addtype('Extended',pbestrealtype^);
|
|
{ CExtended corresponds to the C version of the Extended type
|
|
(either "long double" or "double") }
|
|
if target_info.system in systems_android then
|
|
{ Android has "long double"="double" even for x86 }
|
|
addtype('CExtended',s64floattype)
|
|
else
|
|
if tfloatdef(pbestrealtype^).floattype=s80real then
|
|
addtype('CExtended',sc80floattype)
|
|
else
|
|
addtype('CExtended',pbestrealtype^);
|
|
end;
|
|
{$ifdef x86}
|
|
{$ifndef FPC_SUPPORT_X87_TYPES_ON_WIN64}
|
|
if target_info.system<>system_x86_64_win64 then
|
|
{$endif FPC_SUPPORT_X87_TYPES_ON_WIN64}
|
|
addtype('Comp',cfloatdef.create(s64comp,true));
|
|
{$endif x86}
|
|
addtype('Currency',s64currencytype);
|
|
addtype('Pointer',voidpointertype);
|
|
{$ifdef x86}
|
|
addtype('NearPointer',voidnearpointertype);
|
|
addtype('NearCsPointer',voidnearcspointertype);
|
|
addtype('NearDsPointer',voidneardspointertype);
|
|
addtype('NearSsPointer',voidnearsspointertype);
|
|
addtype('NearEsPointer',voidnearespointertype);
|
|
addtype('NearFsPointer',voidnearfspointertype);
|
|
addtype('NearGsPointer',voidneargspointertype);
|
|
{$ifdef i8086}
|
|
addtype('FarPointer',voidfarpointertype);
|
|
addtype('HugePointer',voidhugepointertype);
|
|
{$endif i8086}
|
|
{$endif x86}
|
|
addtype('ShortString',cshortstringtype);
|
|
{$ifdef support_longstring}
|
|
addtype('LongString',clongstringtype);
|
|
{$endif support_longstring}
|
|
addtype('AnsiString',cansistringtype);
|
|
addtype('WideString',cwidestringtype);
|
|
addtype('UnicodeString',cunicodestringtype);
|
|
|
|
addtype('OpenString',openshortstringtype);
|
|
addtype('Boolean',pasbool8type);
|
|
addtype('Boolean16',pasbool16type);
|
|
addtype('Boolean32',pasbool32type);
|
|
addtype('Boolean64',pasbool64type);
|
|
addtype('ByteBool',bool8type);
|
|
addtype('WordBool',bool16type);
|
|
addtype('LongBool',bool32type);
|
|
addtype('QWordBool',bool64type);
|
|
{$ifdef llvm}
|
|
addtype('LLVMBool1',llvmbool1type);
|
|
{$endif llvm}
|
|
addtype('Byte',u8inttype);
|
|
addtype('ShortInt',s8inttype);
|
|
addtype('Word',u16inttype);
|
|
addtype('SmallInt',s16inttype);
|
|
addtype('LongWord',u32inttype);
|
|
addtype('LongInt',s32inttype);
|
|
addtype('QWord',u64inttype);
|
|
addtype('Int64',s64inttype);
|
|
addtype('Char',cansichartype);
|
|
addtype('WideChar',cwidechartype);
|
|
addtype('Text',cfiledef.createtext);
|
|
addtype('TypedFile',cfiledef.createtyped(voidtype));
|
|
addtype('Variant',cvarianttype);
|
|
addtype('OleVariant',colevarianttype);
|
|
{ Internal types }
|
|
addtype('$undefined',cundefinedtype);
|
|
addtype('$formal',cformaltype);
|
|
addtype('$typedformal',ctypedformaltype);
|
|
addtype('$void',voidtype);
|
|
addtype('$void_pointer',voidpointertype);
|
|
addtype('$byte',u8inttype);
|
|
addtype('$shortint',s8inttype);
|
|
addtype('$word',u16inttype);
|
|
addtype('$smallint',s16inttype);
|
|
addtype('$ulong',u32inttype);
|
|
addtype('$longint',s32inttype);
|
|
addtype('$qword',u64inttype);
|
|
addtype('$int64',s64inttype);
|
|
addtype('$uint128',u128inttype);
|
|
addtype('$int128',s128inttype);
|
|
addtype('$char',cansichartype);
|
|
addtype('$widechar',cwidechartype);
|
|
addtype('$shortstring',cshortstringtype);
|
|
addtype('$longstring',clongstringtype);
|
|
addtype('$ansistring',cansistringtype);
|
|
addtype('$widestring',cwidestringtype);
|
|
addtype('$unicodestring',cunicodestringtype);
|
|
addtype('$openshortstring',openshortstringtype);
|
|
addtype('$boolean',pasbool8type);
|
|
addtype('$boolean16',pasbool16type);
|
|
addtype('$boolean32',pasbool32type);
|
|
addtype('$boolean64',pasbool64type);
|
|
addtype('$bytebool',bool8type);
|
|
addtype('$wordbool',bool16type);
|
|
addtype('$longbool',bool32type);
|
|
addtype('$qwordbool',bool64type);
|
|
{$ifdef llvm}
|
|
addtype('$llvmbool1',llvmbool1type);
|
|
{$endif llvm}
|
|
addtype('$char_pointer',charpointertype);
|
|
addtype('$widechar_pointer',widecharpointertype);
|
|
addtype('$parentfp_void_pointer',parentfpvoidpointertype);
|
|
{$ifdef x86}
|
|
addtype('$void_nearpointer',voidnearpointertype);
|
|
addtype('$void_nearcspointer',voidnearcspointertype);
|
|
addtype('$void_neardspointer',voidneardspointertype);
|
|
addtype('$void_nearsspointer',voidnearsspointertype);
|
|
addtype('$void_nearespointer',voidnearespointertype);
|
|
addtype('$void_nearfspointer',voidnearfspointertype);
|
|
addtype('$void_neargspointer',voidneargspointertype);
|
|
{$ifdef i8086}
|
|
addtype('$void_farpointer',voidfarpointertype);
|
|
addtype('$void_hugepointer',voidhugepointertype);
|
|
addtype('$char_nearpointer',charnearpointertype);
|
|
addtype('$char_farpointer',charfarpointertype);
|
|
addtype('$char_hugepointer',charhugepointertype);
|
|
addtype('$byte_farpointer',bytefarpointertype);
|
|
addtype('$word_farpointer',wordfarpointertype);
|
|
addtype('$longint_farpointer',longintfarpointertype);
|
|
{$endif i8086}
|
|
{$endif x86}
|
|
addtype('$openchararray',openchararraytype);
|
|
addtype('$file',cfiletype);
|
|
addtype('$variant',cvarianttype);
|
|
addtype('$olevariant',colevarianttype);
|
|
if init_settings.fputype<>fpu_none then
|
|
begin
|
|
addtype('$s32real',s32floattype);
|
|
addtype('$s64real',s64floattype);
|
|
addtype('$s80real',s80floattype);
|
|
addtype('$sc80real',sc80floattype);
|
|
end;
|
|
addtype('$s64currency',s64currencytype);
|
|
if not(target_info.system in systems_managed_vm) then
|
|
begin
|
|
{ Add a type for virtual method tables }
|
|
hrecst:=trecordsymtable.create('',current_settings.packrecords,current_settings.alignment.recordalignmin,current_settings.alignment.maxCrecordalign);
|
|
vmttype:=crecorddef.create('',hrecst);
|
|
pvmttype:=cpointerdef.create(vmttype);
|
|
{ can't use addtype for pvmt because the rtti of the pointed
|
|
type is not available. The rtti for pvmt will be written implicitly
|
|
by thev tblarray below }
|
|
systemunit.insert(ctypesym.create('$pvmt',pvmttype,true));
|
|
addfield(hrecst,cfieldvarsym.create('$length',vs_value,ptrsinttype,[],true));
|
|
addfield(hrecst,cfieldvarsym.create('$mlength',vs_value,ptrsinttype,[],true));
|
|
addfield(hrecst,cfieldvarsym.create('$parent',vs_value,pvmttype,[],true));
|
|
{ it seems vmttype is used both for TP objects and Delphi classes,
|
|
so the next entry could either be the first virtual method (vm1)
|
|
(object) or the class name (class). We can't easily create separate
|
|
vtable formats for both, as gdb is hard coded to search for
|
|
__vtbl_ptr_type in all cases (JM) }
|
|
addfield(hrecst,cfieldvarsym.create('$vm1_or_classname',vs_value,cpointerdef.create(cshortstringtype),[],true));
|
|
vmtarraytype:=carraydef.create(0,0,s32inttype);
|
|
tarraydef(vmtarraytype).elementdef:=voidpointertype;
|
|
addfield(hrecst,cfieldvarsym.create('$__pfn',vs_value,vmtarraytype,[],true));
|
|
addtype('$__vtbl_ptr_type',vmttype);
|
|
vmtarraytype:=carraydef.create(0,1,s32inttype);
|
|
tarraydef(vmtarraytype).elementdef:=pvmttype;
|
|
addtype('$vtblarray',vmtarraytype);
|
|
end;
|
|
{ Add a type for methodpointers }
|
|
hrecst:=trecordsymtable.create('',1,current_settings.alignment.recordalignmin,current_settings.alignment.maxCrecordalign);
|
|
addfield(hrecst,cfieldvarsym.create('$proc',vs_value,voidcodepointertype,[],true));
|
|
addfield(hrecst,cfieldvarsym.create('$self',vs_value,voidpointertype,[],true));
|
|
methodpointertype:=crecorddef.create('',hrecst);
|
|
addtype('$methodpointer',methodpointertype);
|
|
{ Add a type for nested proc pointers }
|
|
hrecst:=trecordsymtable.create('',1,current_settings.alignment.recordalignmin,current_settings.alignment.maxCrecordalign);
|
|
addfield(hrecst,cfieldvarsym.create('$proc',vs_value,voidcodepointertype,[],true));
|
|
addfield(hrecst,cfieldvarsym.create('$parentfp',vs_value,parentfpvoidpointertype,[],true));
|
|
nestedprocpointertype:=crecorddef.create('',hrecst);
|
|
addtype('$nestedprocpointer',nestedprocpointertype);
|
|
symtablestack.pop(systemunit);
|
|
end;
|
|
|
|
|
|
procedure load_intern_types;
|
|
{
|
|
Load all default definitions for consts from the system unit
|
|
}
|
|
|
|
procedure loadtype(const s:string;var def:tdef);
|
|
var
|
|
srsym : ttypesym;
|
|
begin
|
|
srsym:=search_system_type(s);
|
|
def:=srsym.typedef;
|
|
end;
|
|
|
|
var
|
|
oldcurrentmodule : tmodule;
|
|
begin
|
|
{$ifndef FPC_SUPPORT_X87_TYPES_ON_WIN64}
|
|
if target_info.system=system_x86_64_win64 then
|
|
pbestrealtype:=@s64floattype;
|
|
{$endif FPC_SUPPORT_X87_TYPES_ON_WIN64}
|
|
|
|
oldcurrentmodule:=current_module;
|
|
set_current_module(nil);
|
|
loadtype('byte',u8inttype);
|
|
loadtype('shortint',s8inttype);
|
|
loadtype('word',u16inttype);
|
|
loadtype('smallint',s16inttype);
|
|
loadtype('ulong',u32inttype);
|
|
loadtype('longint',s32inttype);
|
|
loadtype('qword',u64inttype);
|
|
loadtype('int64',s64inttype);
|
|
loadtype('uint128',u128inttype);
|
|
loadtype('int128',s128inttype);
|
|
loadtype('undefined',cundefinedtype);
|
|
loadtype('formal',cformaltype);
|
|
loadtype('typedformal',ctypedformaltype);
|
|
loadtype('void',voidtype);
|
|
loadtype('void_pointer',voidpointertype);
|
|
loadtype('char',cansichartype);
|
|
loadtype('widechar',cwidechartype);
|
|
loadtype('shortstring',cshortstringtype);
|
|
loadtype('longstring',clongstringtype);
|
|
loadtype('ansistring',cansistringtype);
|
|
loadtype('widestring',cwidestringtype);
|
|
loadtype('unicodestring',cunicodestringtype);
|
|
loadtype('openshortstring',openshortstringtype);
|
|
loadtype('openchararray',openchararraytype);
|
|
if init_settings.fputype <> fpu_none then
|
|
begin
|
|
loadtype('s32real',s32floattype);
|
|
loadtype('s64real',s64floattype);
|
|
loadtype('s80real',s80floattype);
|
|
loadtype('sc80real',sc80floattype);
|
|
end;
|
|
loadtype('s64currency',s64currencytype);
|
|
loadtype('boolean',pasbool8type);
|
|
loadtype('boolean16',pasbool16type);
|
|
loadtype('boolean32',pasbool32type);
|
|
loadtype('boolean64',pasbool64type);
|
|
loadtype('bytebool',bool8type);
|
|
loadtype('wordbool',bool16type);
|
|
loadtype('longbool',bool32type);
|
|
loadtype('qwordbool',bool64type);
|
|
loadtype('char_pointer',charpointertype);
|
|
loadtype('widechar_pointer',widecharpointertype);
|
|
loadtype('parentfp_void_pointer',parentfpvoidpointertype);
|
|
{$ifdef x86}
|
|
loadtype('void_nearpointer',voidnearpointertype);
|
|
loadtype('void_nearcspointer',voidnearcspointertype);
|
|
loadtype('void_neardspointer',voidneardspointertype);
|
|
loadtype('void_nearsspointer',voidnearsspointertype);
|
|
loadtype('void_nearespointer',voidnearespointertype);
|
|
loadtype('void_nearfspointer',voidnearfspointertype);
|
|
loadtype('void_neargspointer',voidneargspointertype);
|
|
{$ifdef i8086}
|
|
loadtype('void_farpointer',voidfarpointertype);
|
|
loadtype('void_hugepointer',voidhugepointertype);
|
|
loadtype('char_nearpointer',charnearpointertype);
|
|
loadtype('char_farpointer',charfarpointertype);
|
|
loadtype('char_hugepointer',charhugepointertype);
|
|
loadtype('byte_farpointer',bytefarpointertype);
|
|
loadtype('word_farpointer',wordfarpointertype);
|
|
loadtype('longint_farpointer',longintfarpointertype);
|
|
{$endif i8086}
|
|
{$endif x86}
|
|
{$ifdef llvm}
|
|
loadtype('llvmbool1',llvmbool1type);
|
|
{$endif llvm}
|
|
loadtype('file',cfiletype);
|
|
if not(target_info.system in systems_managed_vm) then
|
|
begin
|
|
loadtype('pvmt',pvmttype);
|
|
loadtype('vtblarray',vmtarraytype);
|
|
loadtype('__vtbl_ptr_type',vmttype);
|
|
end;
|
|
loadtype('variant',cvarianttype);
|
|
loadtype('olevariant',colevarianttype);
|
|
loadtype('methodpointer',methodpointertype);
|
|
loadtype('nestedprocpointer',nestedprocpointertype);
|
|
loadtype('HRESULT',hresultdef);
|
|
set_default_int_types;
|
|
set_default_ptr_types;
|
|
set_current_module(oldcurrentmodule);
|
|
end;
|
|
|
|
|
|
procedure registernodes;
|
|
{
|
|
Register all possible nodes in the nodeclass array that
|
|
will be used for loading the nodes from a ppu
|
|
}
|
|
begin
|
|
nodeclass[addn]:=caddnode;
|
|
nodeclass[muln]:=caddnode;
|
|
nodeclass[subn]:=caddnode;
|
|
nodeclass[divn]:=cmoddivnode;
|
|
nodeclass[symdifn]:=caddnode;
|
|
nodeclass[modn]:=cmoddivnode;
|
|
nodeclass[assignn]:=cassignmentnode;
|
|
nodeclass[loadn]:=cloadnode;
|
|
nodeclass[rangen]:=crangenode;
|
|
nodeclass[ltn]:=caddnode;
|
|
nodeclass[lten]:=caddnode;
|
|
nodeclass[gtn]:=caddnode;
|
|
nodeclass[gten]:=caddnode;
|
|
nodeclass[equaln]:=caddnode;
|
|
nodeclass[unequaln]:=caddnode;
|
|
nodeclass[inn]:=cinnode;
|
|
nodeclass[orn]:=caddnode;
|
|
nodeclass[xorn]:=caddnode;
|
|
nodeclass[shrn]:=cshlshrnode;
|
|
nodeclass[shln]:=cshlshrnode;
|
|
nodeclass[slashn]:=caddnode;
|
|
nodeclass[andn]:=caddnode;
|
|
nodeclass[subscriptn]:=csubscriptnode;
|
|
nodeclass[derefn]:=cderefnode;
|
|
nodeclass[addrn]:=caddrnode;
|
|
nodeclass[ordconstn]:=cordconstnode;
|
|
nodeclass[typeconvn]:=ctypeconvnode;
|
|
nodeclass[calln]:=ccallnode;
|
|
nodeclass[callparan]:=ccallparanode;
|
|
nodeclass[realconstn]:=crealconstnode;
|
|
nodeclass[unaryminusn]:=cunaryminusnode;
|
|
nodeclass[unaryplusn]:=cunaryplusnode;
|
|
nodeclass[asmn]:=casmnode;
|
|
nodeclass[vecn]:=cvecnode;
|
|
nodeclass[pointerconstn]:=cpointerconstnode;
|
|
nodeclass[stringconstn]:=cstringconstnode;
|
|
nodeclass[notn]:=cnotnode;
|
|
nodeclass[inlinen]:=cinlinenode;
|
|
nodeclass[niln]:=cnilnode;
|
|
nodeclass[errorn]:=cerrornode;
|
|
nodeclass[typen]:=ctypenode;
|
|
nodeclass[setelementn]:=csetelementnode;
|
|
nodeclass[setconstn]:=csetconstnode;
|
|
nodeclass[blockn]:=cblocknode;
|
|
nodeclass[statementn]:=cstatementnode;
|
|
nodeclass[ifn]:=cifnode;
|
|
nodeclass[breakn]:=cbreaknode;
|
|
nodeclass[continuen]:=ccontinuenode;
|
|
nodeclass[whilerepeatn]:=cwhilerepeatnode;
|
|
nodeclass[forn]:=cfornode;
|
|
nodeclass[exitn]:=cexitnode;
|
|
nodeclass[withn]:=cwithnode;
|
|
nodeclass[casen]:=ccasenode;
|
|
nodeclass[labeln]:=clabelnode;
|
|
nodeclass[goton]:=cgotonode;
|
|
nodeclass[tryexceptn]:=ctryexceptnode;
|
|
nodeclass[raisen]:=craisenode;
|
|
nodeclass[tryfinallyn]:=ctryfinallynode;
|
|
nodeclass[onn]:=connode;
|
|
nodeclass[isn]:=cisnode;
|
|
nodeclass[asn]:=casnode;
|
|
nodeclass[starstarn]:=caddnode;
|
|
nodeclass[arrayconstructorn]:=carrayconstructornode;
|
|
nodeclass[arrayconstructorrangen]:=carrayconstructorrangenode;
|
|
nodeclass[tempcreaten]:=ctempcreatenode;
|
|
nodeclass[temprefn]:=ctemprefnode;
|
|
nodeclass[tempdeleten]:=ctempdeletenode;
|
|
nodeclass[addoptn]:=caddnode;
|
|
nodeclass[nothingn]:=cnothingnode;
|
|
nodeclass[loadvmtaddrn]:=cloadvmtaddrnode;
|
|
nodeclass[guidconstn]:=cguidconstnode;
|
|
nodeclass[rttin]:=crttinode;
|
|
nodeclass[loadparentfpn]:=cloadparentfpnode;
|
|
end;
|
|
|
|
|
|
procedure registertais;
|
|
{
|
|
Register all possible tais in the taiclass array that
|
|
will be used for loading the tais from a ppu
|
|
}
|
|
begin
|
|
aiclass[ait_none]:=nil;
|
|
aiclass[ait_align]:=tai_align;
|
|
aiclass[ait_section]:=tai_section;
|
|
aiclass[ait_comment]:=tai_comment;
|
|
aiclass[ait_string]:=tai_string;
|
|
aiclass[ait_instruction]:=taicpu;
|
|
aiclass[ait_datablock]:=tai_datablock;
|
|
aiclass[ait_symbol]:=tai_symbol;
|
|
aiclass[ait_symbol_end]:=tai_symbol_end;
|
|
aiclass[ait_directive]:=tai_directive;
|
|
aiclass[ait_label]:=tai_label;
|
|
aiclass[ait_const]:=tai_const;
|
|
aiclass[ait_realconst]:=tai_realconst;
|
|
aiclass[ait_stab]:=tai_stab;
|
|
aiclass[ait_force_line]:=tai_force_line;
|
|
aiclass[ait_function_name]:=tai_function_name;
|
|
aiclass[ait_symbolpair]:=tai_symbolpair;
|
|
aiclass[ait_cutobject]:=tai_cutobject;
|
|
aiclass[ait_regalloc]:=tai_regalloc;
|
|
aiclass[ait_tempalloc]:=tai_tempalloc;
|
|
aiclass[ait_marker]:=tai_marker;
|
|
aiclass[ait_seh_directive]:=tai_seh_directive;
|
|
{$ifdef JVM}
|
|
aiclass[ait_jvar]:=tai_jvar;
|
|
aiclass[ait_jcatch]:=tai_jcatch;
|
|
{$endif JVM}
|
|
end;
|
|
|
|
end.
|