Sign in
gnu
/
gcc
/
ab810952eb7c061e37054ddd1dfe0aa033365131
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
compile
/
980726-1.c
blob: 3d4daa203dedd0e41df62427137a4c04f168f705 [
file
] [
log
] [
blame
]
static
__inline__
unsigned
char
BCD
(
unsigned
char
binval
)
{
if
(
binval
>
99
)
return
0x99
;
return
(((
binval
/
10
)
<<
4
)
|
(
binval
%
10
));
}
void
int1a
(
unsigned
char
i
)
{
(*((
unsigned
char
*)
1
))
=
BCD
(
i
);
}