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

* rename WinCE softfp compilerproc names to lowercase, needed since r31404

Browse Source 
(mantis #28598)

git-svn-id: trunk@31478 -
This commit is contained in:
Jonas Maebe 2015-09-02 09:54:02 +00:00
parent 675c02dd17
commit fbacf9682f
3 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/nadd.pas
View File

@ -2964,25 +2964,25 @@ implementation
begin begin
case nodetype of case nodetype of
addn: addn:
procname:='ADD'; procname:='add';
muln: muln:
procname:='MUL'; procname:='mul';
subn: subn:
procname:='SUB'; procname:='sub';
slashn: slashn:
procname:='DIV'; procname:='div';
ltn: ltn:
procname:='LT'; procname:='lt';
lten: lten:
procname:='LE'; procname:='le';
gtn: gtn:
procname:='GT'; procname:='gt';
gten: gten:
procname:='GE'; procname:='ge';
equaln: equaln:
procname:='EQ'; procname:='eq';
unequaln: unequaln:
procname:='NE'; procname:='ne';
else else
begin begin
CGMessage3(type_e_operator_not_supported_for_types,node2opstr(nodetype),left.resultdef.typename,right.resultdef.typename); CGMessage3(type_e_operator_not_supported_for_types,node2opstr(nodetype),left.resultdef.typename,right.resultdef.typename);
@ -2992,12 +2992,12 @@ implementation
case tfloatdef(left.resultdef).floattype of case tfloatdef(left.resultdef).floattype of
s32real: s32real:
begin begin
procname:=procname+'S'; procname:=procname+'s';
if nodetype in [addn,muln,subn,slashn] then if nodetype in [addn,muln,subn,slashn] then
procname:=lower(procname); procname:=lower(procname);
end; end;
s64real: s64real:
procname:=procname+'D'; procname:=procname+'d';
{!!! not yet implemented {!!! not yet implemented
s128real: s128real:
} }

16
compiler/ncnv.pas
View File

@ -2955,23 +2955,23 @@ implementation
if is_currency(left.resultdef) then if is_currency(left.resultdef) then
left.resultdef := s64inttype; left.resultdef := s64inttype;
if is_signed(left.resultdef) then if is_signed(left.resultdef) then
fname:='I64TO' fname:='i64to'
else else
fname:='UI64TO'; fname:='ui64to';
end end
else else
{ other integers are supposed to be 32 bit } { other integers are supposed to be 32 bit }
begin begin
if is_signed(left.resultdef) then if is_signed(left.resultdef) then
fname:='ITO' fname:='ito'
else else
fname:='UTO'; fname:='uto';
firstpass(left); firstpass(left);
end; end;
if tfloatdef(resultdef).floattype=s64real then if tfloatdef(resultdef).floattype=s64real then
fname:=fname+'D' fname:=fname+'d'
else else
fname:=fname+'S'; fname:=fname+'s';
result:=ccallnode.createintern(fname,ccallparanode.create( result:=ccallnode.createintern(fname,ccallparanode.create(
left,nil)); left,nil));
left:=nil; left:=nil;
@ -3027,7 +3027,7 @@ implementation
s32real: s32real:
case tfloatdef(resultdef).floattype of case tfloatdef(resultdef).floattype of
s64real: s64real:
result:=ccallnode.createintern('STOD',ccallparanode.create(left,nil)); result:=ccallnode.createintern('stod',ccallparanode.create(left,nil));
s32real: s32real:
begin begin
result:=left; result:=left;
@ -3039,7 +3039,7 @@ implementation
s64real: s64real:
case tfloatdef(resultdef).floattype of case tfloatdef(resultdef).floattype of
s32real: s32real:
result:=ccallnode.createintern('DTOS',ccallparanode.create(left,nil)); result:=ccallnode.createintern('dtos',ccallparanode.create(left,nil));
s64real: s64real:
begin begin
result:=left; result:=left;

4
compiler/nmat.pas
View File

@ -951,9 +951,9 @@ implementation
begin begin
case tfloatdef(resultdef).floattype of case tfloatdef(resultdef).floattype of
s32real: s32real:
procname:='NEGS'; procname:='negs';
s64real: s64real:
procname:='NEGD'; procname:='negd';
{!!! not yet implemented {!!! not yet implemented
s128real: s128real:
} }