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

* fixed (macpas, non-constant) string to int conversion for little

Browse Source 
endian targets

git-svn-id: trunk@5004 -
This commit is contained in:
Jonas Maebe 2006-10-22 18:16:59 +00:00
parent badacd3808
commit 943582b5f0
1 changed files with 51 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
compiler/ncnv.pas
View File

@ -597,6 +597,9 @@ implementation
var
srsym: tsym;
srsymtable: tsymtable;
inttemp, chararrtemp: ttempcreatenode;
newblock: tblocknode;
newstatement: tstatementnode;
begin
if (m_mac in aktmodeswitches) and
is_integer(p.resulttype.def) and
@ -604,7 +607,54 @@ implementation
begin
if not searchsym_type('FPC_INTERNAL_FOUR_CHAR_ARRAY',srsym,srsymtable) then
internalerror(2006101802);
inserttypeconv_internal(p,ttypesym(srsym).restype);
if (target_info.endian = endian_big) then
inserttypeconv_internal(p,ttypesym(srsym).restype)
else
begin
newblock := internalstatements(newstatement);
inttemp := ctempcreatenode.create(p.resulttype,4,tt_persistent,true);
chararrtemp := ctempcreatenode.create(ttypesym(srsym).restype,4,tt_persistent,true);
addstatement(newstatement,inttemp);
addstatement(newstatement,cassignmentnode.create(
ctemprefnode.create(inttemp),p));
addstatement(newstatement,chararrtemp);
addstatement(newstatement,cassignmentnode.create(
cvecnode.create(ctemprefnode.create(chararrtemp),
cordconstnode.create(1,u32inttype,false)),
ctypeconvnode.create_explicit(
cshlshrnode.create(shrn,ctemprefnode.create(inttemp),
cordconstnode.create(24,s32inttype,false)),
cchartype)));
addstatement(newstatement,cassignmentnode.create(
cvecnode.create(ctemprefnode.create(chararrtemp),
cordconstnode.create(2,u32inttype,false)),
ctypeconvnode.create_explicit(
cshlshrnode.create(shrn,ctemprefnode.create(inttemp),
cordconstnode.create(16,s32inttype,false)),
cchartype)));
addstatement(newstatement,cassignmentnode.create(
cvecnode.create(ctemprefnode.create(chararrtemp),
cordconstnode.create(3,u32inttype,false)),
ctypeconvnode.create_explicit(
cshlshrnode.create(shrn,ctemprefnode.create(inttemp),
cordconstnode.create(8,s32inttype,false)),
cchartype)));
addstatement(newstatement,cassignmentnode.create(
cvecnode.create(ctemprefnode.create(chararrtemp),
cordconstnode.create(4,u32inttype,false)),
ctypeconvnode.create_explicit(
ctemprefnode.create(inttemp),cchartype)));
addstatement(newstatement,ctempdeletenode.create(inttemp));
addstatement(newstatement,ctempdeletenode.create_normal_temp(chararrtemp));
addstatement(newstatement,ctemprefnode.create(chararrtemp));
p := newblock;
resulttypepass(p);
end;
end
else
internalerror(2006101803);