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

    (mantis #28598)

git-svn-id: trunk@31478 -

compiler/nadd.pas

@@ -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:
               }

compiler/ncnv.pas

@@ -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;

compiler/nmat.pas

@@ -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:
                   }