root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretto azzeramento di numeri reali nulli

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3955 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-12-03 09:22:15 +00:00
parent 42d50eeaeb
commit 6af9bc3cfd
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
include/printapp.cpp
View File

@ -927,7 +927,7 @@ void TPrint_application::set_row (
case 'r': // Real
{
const real& rrr = * va_arg (params, real *);
if (_picture[0] && (formato[2] == '\0' || formato == "%Lf"))
if (_picture[0] && (formato.len() == 2 || formato == "%Lf"))
{
// no format specifications
// use default picture
@ -944,7 +944,7 @@ void TPrint_application::set_row (
q = __tmp_string;
}
if (rrr.is_zero () && !_print_zero)
q.fill (' ');
q.fill (' ', q.len());
}
break;
default:
@ -1180,7 +1180,7 @@ bool TPrint_application::print_one (
{
// it's a _FieldTok
_FieldTok *ft = (_FieldTok *) t;
TString toprint;
TString256 toprint;
from = to = -1;
if (ft->_flags & FONT_FLAG)
@ -1274,7 +1274,7 @@ bool TPrint_application::print_one (
}
else if (ft->_flags & NUMBER_FLAG)
{
TString pict (0);
TString80 pict;
real r(f.get (fn));
bool isreal = f.curr ().type (fn) == _realfld;
@ -1292,7 +1292,7 @@ bool TPrint_application::print_one (
toprint = r.string ();
if (r.is_zero () && !_print_zero)
toprint.fill (' ');
toprint.fill (' ', toprint.len());
}
else if (ft->_flags & STRING_FLAG)
{
@ -1415,7 +1415,7 @@ bool TPrint_application::print_one (
}
ps = __tmp_string;
if (rrr.is_zero () && !_print_zero)
ps.fill (' ');
ps.fill (' ', ps.len());
break;
}
}