repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
compile
/
980726-1.c
blob
3d4daa203dedd0e41df62427137a4c04f168f705
1
static
__inline__
unsigned char
BCD
(
unsigned char
binval
)
2
{
3
if
(
binval
>
99
)
return
0x99
;
4
return
(((
binval
/
10
) <<
4
) | (
binval
%
10
));
5
}
6
7
void
int1a
(
unsigned char
i
)
8
{
9
(*((
unsigned char
*)
1
)) =
BCD
(
i
);
10
}