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

* emit smallsets as a single byte/word/cardinal, since that is how they

Browse Source 
are handled in the code generator (and ncgcon) as well

git-svn-id: trunk@34439 -
This commit is contained in:
Jonas Maebe 2016-09-06 21:28:30 +00:00
parent 2f79e6147b
commit 26f6d2f39d
1 changed files with 45 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/ngtcon.pas
View File

@ -992,6 +992,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
Psetbytes = ^setbytes;
var
i: longint;
setval: cardinal;
begin
if node.nodetype=setconstn then
begin
@ -1007,17 +1008,55 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
ftcb.maybe_begin_aggregate(def);
tsetconstnode(node).adjustforsetbase;
{ this writing is endian-dependant }
if source_info.endian = target_info.endian then
if not is_smallset(def) then
begin
for i:=0 to node.resultdef.size-1 do
ftcb.emit_tai(tai_const.create_8bit(Psetbytes(tsetconstnode(node).value_set)^[i]),u8inttype);
if source_info.endian=target_info.endian then
begin
for i:=0 to node.resultdef.size-1 do
ftcb.emit_tai(tai_const.create_8bit(Psetbytes(tsetconstnode(node).value_set)^[i]),u8inttype);
end
else
begin
for i:=0 to node.resultdef.size-1 do
ftcb.emit_tai(tai_const.create_8bit(reverse_byte(Psetbytes(tsetconstnode(node).value_set)^[i])),u8inttype);
end;
end
else
begin
for i:=0 to node.resultdef.size-1 do
ftcb.emit_tai(tai_const.create_8bit(reverse_byte(Psetbytes(tsetconstnode(node).value_set)^[i])),u8inttype);
{ emit the set as a single constant (would be nicer if we
could automatically merge the bytes inside the
typed const builder, but it's not easy :/ ) }
setval:=0;
if source_info.endian=target_info.endian then
begin
for i:=0 to node.resultdef.size-1 do
setval:=setval or (Psetbytes(tsetconstnode(node).value_set)^[i] shl (i*8));
end
else
begin
for i:=0 to node.resultdef.size-1 do
setval:=setval or (reverse_byte(Psetbytes(tsetconstnode(node).value_set)^[i]) shl (i*8));
end;
case def.size of
1:
ftcb.emit_tai(tai_const.create_8bit(setval),def);
2:
begin
if source_info.endian<>target_info.endian then
setval:=swap(word(setval));
ftcb.emit_tai(tai_const.create_16bit(setval),def);
end;
4:
begin
if source_info.endian<>target_info.endian then
setval:=swap(setval);
ftcb.emit_tai(tai_const.create_32bit(setval),def);
end;
else
internalerror(2015112207);
end;
end;
ftcb.maybe_end_aggregate(def);
ftcb.maybe_end_aggregate(def);
end;
end
else