Home | History | Annotate | Line # | Download | only in TESTS
      1  1.4  agc /*	$NetBSD: mul.c,v 1.4 2003/08/07 16:43:19 agc Exp $	*/
      2  1.2  cgd 
      3  1.1  cgd /*-
      4  1.1  cgd  * Copyright (c) 1992, 1993
      5  1.1  cgd  *	The Regents of the University of California.  All rights reserved.
      6  1.1  cgd  *
      7  1.1  cgd  * This software was developed by the Computer Systems Engineering group
      8  1.1  cgd  * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
      9  1.1  cgd  * contributed to Berkeley.
     10  1.1  cgd  *
     11  1.1  cgd  * Redistribution and use in source and binary forms, with or without
     12  1.1  cgd  * modification, are permitted provided that the following conditions
     13  1.1  cgd  * are met:
     14  1.1  cgd  * 1. Redistributions of source code must retain the above copyright
     15  1.1  cgd  *    notice, this list of conditions and the following disclaimer.
     16  1.1  cgd  * 2. Redistributions in binary form must reproduce the above copyright
     17  1.1  cgd  *    notice, this list of conditions and the following disclaimer in the
     18  1.1  cgd  *    documentation and/or other materials provided with the distribution.
     19  1.4  agc  * 3. Neither the name of the University nor the names of its contributors
     20  1.1  cgd  *    may be used to endorse or promote products derived from this software
     21  1.1  cgd  *    without specific prior written permission.
     22  1.1  cgd  *
     23  1.1  cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     24  1.1  cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     25  1.1  cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     26  1.1  cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     27  1.1  cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     28  1.1  cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     29  1.1  cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     30  1.1  cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     31  1.1  cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     32  1.1  cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     33  1.1  cgd  * SUCH DAMAGE.
     34  1.1  cgd  */
     35  1.1  cgd 
     36  1.1  cgd #ifndef lint
     37  1.1  cgd static char copyright[] =
     38  1.1  cgd "@(#) Copyright (c) 1992, 1993\n\
     39  1.1  cgd 	The Regents of the University of California.  All rights reserved.\n";
     40  1.1  cgd #endif /* not lint */
     41  1.1  cgd 
     42  1.1  cgd #ifndef lint
     43  1.2  cgd #if 0
     44  1.1  cgd static char sccsid[] = "@(#)mul.c	8.1 (Berkeley) 6/4/93";
     45  1.2  cgd #else
     46  1.4  agc static char rcsid[] = "$NetBSD: mul.c,v 1.4 2003/08/07 16:43:19 agc Exp $";
     47  1.2  cgd #endif
     48  1.1  cgd #endif /* not lint */
     49  1.1  cgd 
     50  1.1  cgd #include <stdio.h>
     51  1.1  cgd 
     52  1.1  cgd main()
     53  1.1  cgd {
     54  1.3  scw 	union { long long q; unsigned int v[2]; } a, b, m;
     55  1.1  cgd 	char buf[300];
     56  1.1  cgd 	extern long long __muldi3(long long, long long);
     57  1.1  cgd 
     58  1.1  cgd 	for (;;) {
     59  1.1  cgd 		printf("> ");
     60  1.1  cgd 		if (fgets(buf, sizeof buf, stdin) == NULL)
     61  1.1  cgd 			break;
     62  1.3  scw 		if (sscanf(buf, "%u:%u %u:%u",
     63  1.1  cgd 			    &a.v[0], &a.v[1], &b.v[0], &b.v[1]) != 4 &&
     64  1.3  scw 		    sscanf(buf, "0x%x:%x 0x%x:%x",
     65  1.1  cgd 			    &a.v[0], &a.v[1], &b.v[0], &b.v[1]) != 4) {
     66  1.1  cgd 			printf("eh?\n");
     67  1.1  cgd 			continue;
     68  1.1  cgd 		}
     69  1.1  cgd 		m.q = __muldi3(a.q, b.q);
     70  1.3  scw 		printf("%x:%x * %x:%x => %x:%x\n",
     71  1.1  cgd 		    a.v[0], a.v[1], b.v[0], b.v[1], m.v[0], m.v[1]);
     72  1.3  scw 		printf("  = %X%08X * %X%08X => %X%08X\n",
     73  1.1  cgd 		    a.v[0], a.v[1], b.v[0], b.v[1], m.v[0], m.v[1]);
     74  1.1  cgd 	}
     75  1.1  cgd 	exit(0);
     76  1.1  cgd }
     77