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

* int64,qword rtti support

Browse Source
This commit is contained in:
peter 2000-06-22 20:01:57 +00:00
parent ff5533bbfc
commit 8c25925349
1 changed files with 58 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
compiler/symdef.inc
View File

@ -48,6 +48,8 @@
tkObject = 16; tkObject = 16;
tkWChar = 17; tkWChar = 17;
tkBool = 18; tkBool = 18;
tkInt64 = 19;
tkQWord = 20;
otSByte = 0; otSByte = 0;
otUByte = 1; otUByte = 1;
@ -1121,24 +1123,63 @@
procedure torddef.write_rtti_data; procedure torddef.write_rtti_data;
const
trans : array[uchar..bool8bit] of byte = procedure dointeger;
(otUByte,otUByte,otUWord,otULong,otSByte,otSWord,otSLong,otUByte); const
trans : array[uchar..bool8bit] of byte =
(otUByte,otUByte,otUWord,otULong,otSByte,otSWord,otSLong,otUByte);
begin
write_rtti_name;
rttilist^.concat(new(pai_const,init_8bit(byte(trans[typ]))));
rttilist^.concat(new(pai_const,init_32bit(low)));
rttilist^.concat(new(pai_const,init_32bit(high)));
end;
begin begin
case typ of case typ of
bool8bit: s64bit :
begin
rttilist^.concat(new(pai_const,init_8bit(tkInt64)));
write_rtti_name;
{ low }
rttilist^.concat(new(pai_const,init_32bit($0)));
rttilist^.concat(new(pai_const,init_32bit($8000)));
{ high }
rttilist^.concat(new(pai_const,init_32bit($ffff)));
rttilist^.concat(new(pai_const,init_32bit($7fff)));
end;
u64bit :
begin
rttilist^.concat(new(pai_const,init_8bit(tkQWord)));
write_rtti_name;
{ low }
rttilist^.concat(new(pai_const,init_32bit($0)));
rttilist^.concat(new(pai_const,init_32bit($0)));
{ high }
rttilist^.concat(new(pai_const,init_32bit($0)));
rttilist^.concat(new(pai_const,init_32bit($8000)));
end;
bool8bit:
begin
rttilist^.concat(new(pai_const,init_8bit(tkBool))); rttilist^.concat(new(pai_const,init_8bit(tkBool)));
uchar: dointeger;
end;
uchar:
begin
rttilist^.concat(new(pai_const,init_8bit(tkWChar))); rttilist^.concat(new(pai_const,init_8bit(tkWChar)));
uwidechar: dointeger;
end;
uwidechar:
begin
rttilist^.concat(new(pai_const,init_8bit(tkChar))); rttilist^.concat(new(pai_const,init_8bit(tkChar)));
else dointeger;
end;
else
begin
rttilist^.concat(new(pai_const,init_8bit(tkInteger))); rttilist^.concat(new(pai_const,init_8bit(tkInteger)));
end; dointeger;
write_rtti_name; end;
rttilist^.concat(new(pai_const,init_8bit(byte(trans[typ])))); end;
rttilist^.concat(new(pai_const,init_32bit(low)));
rttilist^.concat(new(pai_const,init_32bit(high)));
end; end;
@ -4086,7 +4127,10 @@ Const local_symtable_index : longint = $8001;
{ {
$Log$ $Log$
Revision 1.201 2000-06-18 18:11:32 peter Revision 1.202 2000-06-22 20:01:57 peter
* int64,qword rtti support
Revision 1.201 2000/06/18 18:11:32 peter
* C record packing fixed to also check first entry of the record * C record packing fixed to also check first entry of the record
if bigger than the recordalignment itself if bigger than the recordalignment itself
* variant record alignment uses alignment per variant and saves the * variant record alignment uses alignment per variant and saves the