usr/src/lib/libc/port/gen/l3.c
author Jon Tibble <meths@btinternet.com>
Thu, 09 Dec 2010 22:32:39 +0100
changeset 13255 4afa820d78b9
parent 6812 febeba71273d
permissions -rw-r--r--
298 SPARC build fails in smt_pause.o 478 Build needs fixing for pkgdepend flag day Reviewed by: [email protected] Reviewed by: [email protected] Reviewed by: [email protected] Approved by: [email protected]
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
     1
/*
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
     2
 * CDDL HEADER START
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
     3
 *
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
     4
 * The contents of this file are subject to the terms of the
6812
febeba71273d PSARC 2008/309 expunge synonyms.h
raf
parents: 0
diff changeset
     5
 * Common Development and Distribution License (the "License").
febeba71273d PSARC 2008/309 expunge synonyms.h
raf
parents: 0
diff changeset
     6
 * You may not use this file except in compliance with the License.
0
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
     7
 *
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
     8
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
     9
 * or http://www.opensolaris.org/os/licensing.
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    10
 * See the License for the specific language governing permissions
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    11
 * and limitations under the License.
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    12
 *
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    13
 * When distributing Covered Code, include this CDDL HEADER in each
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    14
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    15
 * If applicable, add the following below this CDDL HEADER, with the
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    16
 * fields enclosed by brackets "[]" replaced with your own identifying
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    17
 * information: Portions Copyright [yyyy] [name of copyright owner]
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    18
 *
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    19
 * CDDL HEADER END
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    20
 */
6812
febeba71273d PSARC 2008/309 expunge synonyms.h
raf
parents: 0
diff changeset
    21
0
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    22
/*
6812
febeba71273d PSARC 2008/309 expunge synonyms.h
raf
parents: 0
diff changeset
    23
 * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
0
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    24
 * Use is subject to license terms.
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    25
 */
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    26
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    27
/*	Copyright (c) 1988 AT&T	*/
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    28
/*	  All Rights Reserved  	*/
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    29
6812
febeba71273d PSARC 2008/309 expunge synonyms.h
raf
parents: 0
diff changeset
    30
#pragma ident	"%Z%%M%	%I%	%E% SMI"
0
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    31
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    32
/*
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    33
 * Convert longs to and from 3-byte disk addresses
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    34
 */
6812
febeba71273d PSARC 2008/309 expunge synonyms.h
raf
parents: 0
diff changeset
    35
#pragma weak _l3tol = l3tol
febeba71273d PSARC 2008/309 expunge synonyms.h
raf
parents: 0
diff changeset
    36
#pragma weak _ltol3 = ltol3
0
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    37
6812
febeba71273d PSARC 2008/309 expunge synonyms.h
raf
parents: 0
diff changeset
    38
#include "lint.h"
0
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    39
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    40
void
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    41
ltol3(char *cp, const long *lp, int n)
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    42
{
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    43
	register i;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    44
	register char *a, *b;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    45
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    46
	a = cp;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    47
	b = (char *)lp;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    48
	for (i = 0; i < n; ++i) {
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    49
#if interdata || u370 || u3b || M32
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    50
		b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    51
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    52
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    53
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    54
#endif
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    55
#if vax || i286 || i386
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    56
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    57
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    58
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    59
		b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    60
#endif
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    61
#if pdp11
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    62
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    63
		b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    64
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    65
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    66
#endif
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    67
	}
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    68
}
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    69
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    70
void
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    71
l3tol(long *lp, const char *cp, int n)
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    72
{
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    73
	register i;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    74
	register char *a, *b;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    75
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    76
	a = (char *)lp;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    77
	b = cp;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    78
	for (i = 0; i < n; ++i) {
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    79
#if interdata || u370 || u3b || M32
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    80
		*a++ = 0;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    81
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    82
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    83
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    84
#endif
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    85
#if vax || i286 || i386
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    86
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    87
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    88
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    89
		*a++ = 0;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    90
#endif
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    91
#if pdp11
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    92
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    93
		*a++ = 0;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    94
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    95
		*a++ = *b++;
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    96
#endif
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    97
	}
68f95e015346 OpenSolaris Launch
stevel@tonic-gate
parents:
diff changeset
    98
}