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

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

Browse Source 
(mantis )

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

24
compiler/nadd.pas
View File

@ -2964,25 +2964,25 @@ implementation
begin
case nodetype of
addn:
procname:='ADD';
procname:='add';
muln:
procname:='MUL';
procname:='mul';
subn:
procname:='SUB';
procname:='sub';
slashn:
procname:='DIV';
procname:='div';
ltn:
procname:='LT';
procname:='lt';
lten:
procname:='LE';
procname:='le';
gtn:
procname:='GT';
procname:='gt';
gten:
procname:='GE';
procname:='ge';
equaln:
procname:='EQ';
procname:='eq';
unequaln:
procname:='NE';
procname:='ne';
else
begin
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
s32real:
begin
procname:=procname+'S';
procname:=procname+'s';
if nodetype in [addn,muln,subn,slashn] then
procname:=lower(procname);
end;
s64real:
procname:=procname+'D';
procname:=procname+'d';
{!!! not yet implemented
s128real:
}

16
compiler/ncnv.pas
View File

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

4
compiler/nmat.pas
View File

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