Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt64_pkg.adb
blob: 5235e73b88af366c38f25e1e5ab85b7ef48b9f40 [
file
] [
log
] [
blame
]
package
body
Opt64_PKG
is
procedure
Encode
(
X
:
Integer
)
is
result
:
Hash
;
begin
case
X
is
when
1
=>
result
:=
"1"
;
when
2
=>
result
:=
"2"
;
when
3
=>
result
:=
"3"
;
when
others
=>
Result
:=
"?"
;
end
case
;
Last_Hash
:=
Result
;
end
;
end
;