ecos-v3_0-branch: packages/net/snmp/lib/current/src/int64.c annotate

annotate packages/net/snmp/lib/current/src/int64.c @ 2729:74dbf4c3f2e1 after-copyright-change-20090129

Update all copyright banners to reflect FSF ownership; fix and improve licence text.

author	jlarmour
date	Thu, 29 Jan 2009 17:47:46 +0000
parents	d2c90368aeef
children

rev	line source
103 95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	1 //==========================================================================
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	2 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	3 // ./lib/current/src/int64.c
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	4 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	5 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	6 //==========================================================================
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	7 // ####ECOSGPLCOPYRIGHTBEGIN####
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	8 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	9 // This file is part of eCos, the Embedded Configurable Operating System.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	10 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 103 diff changeset	11 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	12 // eCos is free software; you can redistribute it and/or modify it under
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	13 // the terms of the GNU General Public License as published by the Free
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	14 // Software Foundation; either version 2 or (at your option) any later
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	15 // version.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 103 diff changeset	16 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	17 // eCos is distributed in the hope that it will be useful, but WITHOUT
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	18 // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	19 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	20 // for more details.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 103 diff changeset	21 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	22 // You should have received a copy of the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	23 // along with eCos; if not, write to the Free Software Foundation, Inc.,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	24 // 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 103 diff changeset	25 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	26 // As a special exception, if other files instantiate templates or use
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	27 // macros or inline functions from this file, or you compile this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	28 // and link it with other works to produce a work based on this file,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	29 // this file does not by itself cause the resulting work to be covered by
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	30 // the GNU General Public License. However the source code for this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	31 // must still be made available in accordance with section (3) of the GNU
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	32 // General Public License v2.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 103 diff changeset	33 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	34 // This exception does not invalidate any other reasons why a work based
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	35 // on this file might be covered by the GNU General Public License.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	36 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	37 // ####ECOSGPLCOPYRIGHTEND####
103 95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	38 //####UCDSNMPCOPYRIGHTBEGIN####
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	39 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	40 // -------------------------------------------
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	41 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	42 // Portions of this software may have been derived from the UCD-SNMP
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	43 // project, <http://ucd-snmp.ucdavis.edu/> from the University of
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	44 // California at Davis, which was originally based on the Carnegie Mellon
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	45 // University SNMP implementation. Portions of this software are therefore
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	46 // covered by the appropriate copyright disclaimers included herein.
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	47 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	48 // The release used was version 4.1.2 of May 2000. "ucd-snmp-4.1.2"
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	49 // -------------------------------------------
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	50 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	51 //####UCDSNMPCOPYRIGHTEND####
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	52 //==========================================================================
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	53 //#####DESCRIPTIONBEGIN####
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	54 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	55 // Author(s): hmt
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	56 // Contributors: hmt
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	57 // Date: 2000-05-30
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	58 // Purpose: Port of UCD-SNMP distribution to eCos.
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	59 // Description:
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	60 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	61 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	62 //####DESCRIPTIONEND####
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	63 //
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	64 //==========================================================================
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	65 /********************************************************************
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	66 Copyright 1989, 1991, 1992 by Carnegie Mellon University
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	67
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	68 Derivative Work -
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	69 Copyright 1996, 1998, 1999, 2000 The Regents of the University of California
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	70
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	71 All Rights Reserved
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	72
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	73 Permission to use, copy, modify and distribute this software and its
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	74 documentation for any purpose and without fee is hereby granted,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	75 provided that the above copyright notice appears in all copies and
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	76 that both that copyright notice and this permission notice appear in
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	77 supporting documentation, and that the name of CMU and The Regents of
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	78 the University of California not be used in advertising or publicity
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	79 pertaining to distribution of the software without specific written
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	80 permission.
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	81
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	82 CMU AND THE REGENTS OF THE UNIVERSITY OF CALIFORNIA DISCLAIM ALL
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	83 WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	84 WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL CMU OR
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	85 THE REGENTS OF THE UNIVERSITY OF CALIFORNIA BE LIABLE FOR ANY SPECIAL,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	86 INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	87 FROM THE LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	88 CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	89 CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	90 *********************************************************************/
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	91 /** file: test.c - test of 64-bit integer stuff
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	92 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	93 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	94 * 21-jan-1998: David Perkins <dperkins@dsperkins.com>
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	95 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	96 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	97
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	98 #include <config.h>
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	99 #include <sys/types.h>
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	100 #include <stdio.h>
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	101 #include <stdlib.h>
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	102 #include <ctype.h>
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	103 #if HAVE_STRING_H
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	104 #include <string.h>
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	105 #else
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	106 #include <strings.h>
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	107 #endif
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	108 #if HAVE_WINSOCK_H
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	109 #include <winsock.h>
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	110 #endif
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	111 #include "asn1.h"
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	112 #include "int64.h"
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	113
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	114 #define TRUE 1
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	115 #define FALSE 0
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	116
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	117 /** divBy10 - divide an unsigned 64-bit integer by 10
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	118 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	119 * call with:
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	120 * u64 - number to be divided
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	121 * pu64Q - location to store quotient
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	122 * puR - location to store remainder
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	123 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	124 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	125 void
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	126 divBy10(U64 u64,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	127 U64 *pu64Q,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	128 unsigned int *puR)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	129 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	130 unsigned long ulT;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	131 unsigned long ulQ;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	132 unsigned long ulR;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	133
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	134
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	135 /* top 16 bits */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	136 ulT = (u64.high>>16) & 0x0ffff;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	137 ulQ = ulT/10;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	138 ulR = ulT%10;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	139 pu64Q->high = ulQ<<16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	140
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	141 /* next 16 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	142 ulT = (u64.high & 0x0ffff);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	143 ulT += (ulR<<16);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	144 ulQ = ulT/10;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	145 ulR = ulT%10;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	146 pu64Q->high = pu64Q->high \| ulQ;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	147
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	148 /* next 16 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	149 ulT = ((u64.low>>16) & 0x0ffff) + (ulR<<16);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	150 ulQ = ulT/10;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	151 ulR = ulT%10;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	152 pu64Q->low = ulQ<<16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	153
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	154 /* final 16 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	155 ulT = (u64.low & 0x0ffff);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	156 ulT += (ulR<<16);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	157 ulQ = ulT/10;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	158 ulR = ulT%10;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	159 pu64Q->low = pu64Q->low \| ulQ;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	160
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	161 *puR = (unsigned int)(ulR);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	162
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	163
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	164 } /* divBy10 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	165
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	166
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	167 /** multBy10 - multiply an unsigned 64-bit integer by 10
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	168 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	169 * call with:
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	170 * u64 - number to be multiplied
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	171 * pu64P - location to store product
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	172 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	173 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	174 void
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	175 multBy10(U64 u64,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	176 U64 *pu64P)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	177 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	178 unsigned long ulT;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	179 unsigned long ulP;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	180 unsigned long ulK;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	181
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	182
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	183 /* lower 16 bits */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	184 ulT = u64.low & 0x0ffff;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	185 ulP = ulT * 10;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	186 ulK = ulP>>16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	187 pu64P->low = ulP & 0x0ffff;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	188
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	189 /* next 16 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	190 ulT = (u64.low>>16) & 0x0ffff;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	191 ulP = (ulT * 10) + ulK;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	192 ulK = ulP>>16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	193 pu64P->low = (ulP & 0x0ffff)<<16 \| pu64P->low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	194
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	195 /* next 16 bits */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	196 ulT = u64.high & 0x0ffff;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	197 ulP = (ulT * 10) + ulK;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	198 ulK = ulP>>16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	199 pu64P->high = ulP & 0x0ffff;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	200
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	201 /* final 16 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	202 ulT = (u64.high>>16) & 0x0ffff;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	203 ulP = (ulT * 10) + ulK;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	204 ulK = ulP>>16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	205 pu64P->high = (ulP & 0x0ffff)<<16 \| pu64P->high;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	206
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	207
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	208 } /* multBy10 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	209
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	210
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	211 /** incrByU16 - add an unsigned 16-bit int to an unsigned 64-bit integer
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	212 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	213 * call with:
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	214 * pu64 - number to be incremented
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	215 * u16 - amount to add
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	216 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	217 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	218 void
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	219 incrByU16(U64 *pu64,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	220 unsigned int u16)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	221 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	222 unsigned long ulT1;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	223 unsigned long ulT2;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	224 unsigned long ulR;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	225 unsigned long ulK;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	226
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	227
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	228 /* lower 16 bits */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	229 ulT1 = pu64->low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	230 ulT2 = ulT1 & 0x0ffff;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	231 ulR = ulT2 + u16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	232 ulK = ulR>>16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	233 if (ulK == 0) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	234 pu64->low = ulT1 + u16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	235 return;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	236 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	237
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	238 /* next 16 bits */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	239 ulT2 = (ulT1>>16) & 0x0ffff;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	240 ulR = ulT2+1;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	241 ulK = ulR>>16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	242 if (ulK == 0) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	243 pu64->low = ulT1 + u16;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	244 return;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	245 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	246
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	247 /* next 32 - ignore any overflow */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	248 pu64->low = (ulT1 + u16) & 0x0FFFFFFFFL;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	249 pu64->high++;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	250
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	251 } /* incrByV16 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	252
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	253 void
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	254 incrByU32(U64 *pu64,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	255 unsigned int u32)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	256 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	257 unsigned int tmp;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	258 tmp = pu64->low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	259 pu64->low += u32;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	260 if (pu64->low < tmp)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	261 pu64->high++;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	262 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	263
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	264 /* pu64out = pu64one - pu64two */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	265 void
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	266 u64Subtract(U64 *pu64one,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	267 U64 *pu64two,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	268 U64 *pu64out)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	269 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	270 if (pu64one->low > pu64two->low) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	271 pu64out->low = 0xffffffff - pu64two->low + pu64one->low + 1;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	272 pu64out->high = pu64one->high - pu64two->high - 1;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	273 } else {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	274 pu64out->low = pu64one->low - pu64two->low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	275 pu64out->high = pu64one->high - pu64two->high;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	276 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	277 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	278
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	279 /** zeroU64 - set an unsigned 64-bit number to zero
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	280 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	281 * call with:
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	282 * pu64 - number to be zero'ed
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	283 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	284 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	285 void
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	286 zeroU64(U64 *pu64)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	287 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	288
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	289 pu64->low = 0;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	290 pu64->high = 0;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	291 } /* zeroU64 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	292
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	293
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	294 /** isZeroU64 - check if an unsigned 64-bit number is
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	295 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	296 * call with:
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	297 * pu64 - number to be zero'ed
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	298 *
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	299 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	300 int
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	301 isZeroU64(U64 *pu64)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	302 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	303
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	304 if ((pu64->low == 0) && (pu64->high == 0))
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	305 return(TRUE);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	306 else
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	307 return(FALSE);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	308
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	309 } /* isZeroU64 */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	310
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	311 void
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	312 printU64(char * buf, /* char [I64CHARSZ+1]; */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	313 U64 *pu64)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	314 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	315 U64 u64a;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	316 U64 u64b;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	317
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	318 char aRes [I64CHARSZ+1];
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	319 unsigned int u;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	320 int j;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	321
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	322 u64a.high = pu64->high;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	323 u64a.low = pu64->low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	324 aRes[I64CHARSZ] = 0;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	325 for (j = 0; j < I64CHARSZ; j++) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	326 divBy10(u64a, &u64b, &u);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	327 aRes[(I64CHARSZ-1)-j] = (char)('0' + u);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	328 u64a.high = u64b.high;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	329 u64a.low = u64b.low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	330 if (isZeroU64(&u64a))
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	331 break;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	332 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	333 strcpy(buf, &aRes[(I64CHARSZ-1)-j]);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	334 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	335
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	336 void
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	337 printI64(char * buf, /* char [I64CHARSZ+1]; */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	338 U64 *pu64)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	339 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	340 U64 u64a;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	341 U64 u64b;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	342
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	343 char aRes [I64CHARSZ+1];
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	344 unsigned int u;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	345 int j, sign=0;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	346
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	347 if (pu64->high & 0x80000000) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	348 u64a.high = ~pu64->high;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	349 u64a.low = ~pu64->low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	350 sign = 1;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	351 incrByU32(&u64a, 1); /* bit invert and incr by 1 to print 2s complement */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	352 } else {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	353 u64a.high = pu64->high;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	354 u64a.low = pu64->low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	355 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	356
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	357 aRes[I64CHARSZ] = 0;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	358 for (j = 0; j < I64CHARSZ; j++) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	359 divBy10(u64a, &u64b, &u);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	360 aRes[(I64CHARSZ-1)-j] = (char)('0' + u);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	361 u64a.high = u64b.high;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	362 u64a.low = u64b.low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	363 if (isZeroU64(&u64a))
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	364 break;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	365 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	366 if (sign == 1) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	367 aRes[(I64CHARSZ-1)-j-1] = '-';
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	368 strcpy(buf, &aRes[(I64CHARSZ-1)-j-1]);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	369 return;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	370 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	371 strcpy(buf, &aRes[(I64CHARSZ-1)-j]);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	372 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	373
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	374 int
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	375 read64(U64 *i64,
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	376 const char *string)
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	377 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	378 U64 i64p;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	379 unsigned int u;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	380 int sign = 0;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	381 int ok = 0;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	382
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	383 zeroU64(i64);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	384 if (*string == '-') {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	385 sign = 1;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	386 string++;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	387 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	388
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	389 while (string && isdigit(string)) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	390 ok = 1;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	391 u = *string - '0';
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	392 multBy10(*i64, &i64p);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	393 memcpy(i64, &i64p, sizeof(i64p));
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	394 incrByU16(i64, u);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	395 string++;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	396 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	397 if (sign) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	398 i64->high = ~i64->high;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	399 i64->low = ~i64->low;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	400 incrByU16(i64,1);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	401 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	402 return ok;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	403 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	404
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	405
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	406
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	407
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	408 #ifdef TESTING
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	409 void
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	410 main(int argc, char *argv[])
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	411 {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	412 int i;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	413 int j;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	414 int l;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	415 unsigned int u;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	416 U64 u64a;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	417 U64 u64b;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	418 #define MXSZ 20
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	419 char aRes[MXSZ+1];
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	420
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	421
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	422 if (argc < 2) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	423 printf("This program takes numbers from the command line\n"
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	424 "and prints them out.\n"
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	425 "Usage: test <unsignedInt>...\n");
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	426 exit(1);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	427 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	428
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	429 aRes[MXSZ] = 0;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	430
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	431 for (i = 1; i < argc; i++) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	432 l = strlen(argv[i]);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	433 zeroU64(&u64a);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	434 for (j = 0; j < l; j++) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	435 if (!isdigit(argv[i][j])) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	436 printf("Argument is not a number \"%s\"\n", argv[i]);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	437 exit(1);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	438 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	439 u = argv[i][j] - '0';
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	440 multBy10(u64a, &u64b);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	441 u64a = u64b;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	442 incrByU16(&u64a, u);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	443 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	444
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	445 printf("number \"%s\" in hex is '%08x%08x'h\n",
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	446 argv[i], u64a.high, u64a.low);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	447
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	448 printf("number is \"%s\"\n", printU64(&u64a));
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	449 for (j = 0; j < MXSZ; j++) {
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	450 divBy10(u64a, &u64b, &u);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	451 aRes[(MXSZ-1)-j] = (char)('0' + u);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	452 u64a = u64b;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	453 if (isZeroU64(&u64a))
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	454 break;
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	455 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	456
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	457 printf("number is \"%s\"\n", &aRes[(MXSZ-1)-j]);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	458 }
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	459 exit(0);
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	460 } /* main */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	461 #endif /* TESTING */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	462
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	463 /* file: test.c */
95f3e12a6327 Merge from eCos master repository on 2000-06-23-16:41:10-BST jlarmour parents: diff changeset	464

Mercurial > ecos-v3_0-branch

annotate packages/net/snmp/lib/current/src/int64.c @ 2729:74dbf4c3f2e1 after-copyright-change-20090129