Commit 042a59b3 authored by Maxime Perrotin's avatar Maxime Perrotin

Update test case

parent 31d5a314
......@@ -25,7 +25,11 @@ test-qgen-gt-ada:
test-qgen-gt-c:
$(TESTQGEN_GT_C) $(ROOT_MODEL)
test-ada: challenge.ali dataview-uniq.o | test_ada.o
test-ada: dataview-uniq.o | test_ada.o
cp challenge_ri.ada challenge_ri.adb
$(OPENGEODE) challenge.pr system_structure.pr --toAda
mono $(ASN1SCC) -Ada -typePrefix asn1Scc -equal *.asn
gnat make challenge
$(GNATBIND) -n challenge.ali
$(GNATLINK) -o test_ada test_ada.o challenge.ali -lm
./test_ada | diff expected -
......
package body challenge_RI is
procedure pow (a : in out asn1SccT_UInt32; b : in out asn1SccT_UInt32; res : out asn1SccT_UInt32) is
procedure C_Pow (a : in out asn1SccT_UInt32; b : in out asn1SccT_UInt32; res : out asn1SccT_UInt32) with Import, Convention => C, Link_Name => "challenge_RI_pow";
begin
C_Pow (a,b, res);
end pow;
end challenge_RI;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment