Canola  0.8.D001
lib/number/strip_redundant_decimals.cc
Go to the documentation of this file.
00001 //
00002 // canola - canon canola 1614p emulator
00003 // Copyright (C) 2012 Peter Miller
00004 //
00005 // This program is free software; you can redistribute it and/or modify
00006 // it under the terms of the GNU General Public License, version 3, as
00007 // published by the Free Software Foundation.
00008 //
00009 // This program is distributed in the hope that it will be useful,
00010 // but WITHOUT ANY WARRANTY; without even the implied warranty of
00011 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00012 // General Public License for more details.
00013 //
00014 // You should have received a copy of the GNU General Public License along
00015 // with this program. If not, see <http://www.gnu.org/licenses/>.
00016 //
00017 
00018 #include <lib/number.h>
00019 
00020 
00021 void
00022 number::strip_redundant_decimal_places(number_z &t3, unsigned &t3ndec)
00023 {
00024     unsigned n = 0;
00025     while (n < t3ndec && t3.get(n) == 0)
00026         ++n;
00027     t3 = t3.shift_right(n);
00028     t3ndec -= n;
00029 }
00030 
00031 
00032 // vim: set ts=8 sw=4 et :