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

* Use fpc_Write_Text_Currency and fpc_Read_Text_Currency for currency.

Browse Source 
git-svn-id: trunk@5875 -
This commit is contained in:
yury 2007-01-10 22:13:01 +00:00
parent 71961bb8ce
commit b3c82a05c5
1 changed files with 114 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ninl.pas
View File

@ -602,10 +602,12 @@ implementation
para.left:=p1; para.left:=p1;
end; end;
{ Currency will be written using the bestreal }
if is_currency(para.left.resultdef) then if is_currency(para.left.resultdef) then
inserttypeconv(para.left,pbestrealtype^); begin
is_real:=true;
name := procprefix+'currency';
end
else
case para.left.resultdef.typ of case para.left.resultdef.typ of
stringdef : stringdef :
begin begin
@ -779,6 +781,8 @@ implementation
cordconstnode.create(-1,s32inttype,false),nil); cordconstnode.create(-1,s32inttype,false),nil);
{ add it to the lenpara } { add it to the lenpara }
lenpara.right := fracpara; lenpara.right := fracpara;
if not is_currency(para.left.resultdef) then
begin
{ and add the realtype para (this also removes the link } { and add the realtype para (this also removes the link }
{ to any parameters coming after it) } { to any parameters coming after it) }
fracpara.right := ccallparanode.create( fracpara.right := ccallparanode.create(
@ -786,6 +790,7 @@ implementation
s32inttype,true),nil); s32inttype,true),nil);
end; end;
end; end;
end;
{ special handling of reading small numbers, because the helpers } { special handling of reading small numbers, because the helpers }
{ expect a longint/card/bestreal var parameter. Use a temp. can't } { expect a longint/card/bestreal var parameter. Use a temp. can't }