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

* added missing type conversion from small to normal sets

Browse Source
This commit is contained in:
Jonas Maebe 2001-08-31 15:42:15 +00:00
parent 696c2af620
commit 3d6f18bfa2
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/nadd.pas
View File

@ -744,6 +744,24 @@ implementation
htype.setdef(tsetdef.create(tsetdef(ld).elementtype,255)); htype.setdef(tsetdef.create(tsetdef(ld).elementtype,255));
inserttypeconv(left,htype); inserttypeconv(left,htype);
end; end;
{ if the destination is not a smallset then insert a typeconv
which loads a smallset into a normal set }
if (tsetdef(ld).settype<>smallset) and
(tsetdef(rd).settype=smallset) then
begin
if (right.nodetype=setconstn) then
begin
t:=csetconstnode.create(tsetconstnode(right).value_set,left.resulttype);
tsetconstnode(t).left:=tsetconstnode(right).left;
tsetconstnode(right).left := nil;
right.free;
right:=t;
end
else
inserttypeconv(right,left.resulttype);
resulttypepass(right);
end;
end end
{ compare pchar to char arrays by addresses like BP/Delphi } { compare pchar to char arrays by addresses like BP/Delphi }
@ -1357,7 +1375,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.34 2001-08-30 15:43:14 jonas Revision 1.35 2001-08-31 15:42:15 jonas
* added missing type conversion from small to normal sets
Revision 1.34 2001/08/30 15:43:14 jonas
* converted adding/comparing of strings to compileproc. Note that due * converted adding/comparing of strings to compileproc. Note that due
to the way the shortstring helpers for i386 are written, they are to the way the shortstring helpers for i386 are written, they are
still handled by the old code (reason: fpc_shortstr_compare returns still handled by the old code (reason: fpc_shortstr_compare returns