blob: 1c669f1f3cacbec6f12b3a7e101bd0b1d3bb2d92 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(* TEST
readonly_files = "main.c";
arguments = "-DINT_INT -DFUN=pgcd_30030 main.c";
asmgen;
*)
(function "pgcd_30030" (a:int)
(catch (exit pgcd a 30030)
with (pgcd n:val m:val)
(if (> n m)
(exit pgcd m n)
(if (== n 0)
m
(let (r (mod m n))
(exit pgcd r n))))))
|
