paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 13:21:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed wince build.

Browse Source 
git-svn-id: trunk@5250 -
This commit is contained in:
yury 2006-11-05 17:55:00 +00:00
parent 4e3c5e202a
commit 5a9b0949c5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nadd.pas
View File

@ -2200,7 +2200,11 @@ implementation
end; end;
case tfloatdef(left.resultdef).floattype of case tfloatdef(left.resultdef).floattype of
s32real: s32real:
procname:=procname+'S'; begin
procname:=procname+'S';
if nodetype in [addn,muln,subn,slashn] then
procname:=lower(procname);
end;
s64real: s64real:
procname:=procname+'D'; procname:=procname+'D';
{!!! not yet implemented {!!! not yet implemented