Add tests for the DOIT checker.

Adds a CCT-DOIT test group that contains the normal CCT tests
in the success condition and the failure condition as well as
DOIT-specific tests in the failure condition. The DOIT-specific
tests use the two non-DOIT instructions ROL and XCHG.

Reusing the CCT tests required making their main functions
"export" to make sure they are kept at the later compiler passes
where DOIT checking needs to be done.

compiler/CCT/fail/H_L_L.jazz

@@ -1,8 +1,9 @@
-fn add_H_L_L(#secret reg u64 x, #public reg u64 ya) -> #public reg u64 {
+export fn add_H_L_L(#secret reg u64 x, #public reg u64 ya) -> #public reg u64 {
 
  reg u64 t;
 
  t = x + ya;
+ t = t;
 
  return t;
 }

compiler/CCT/fail/doit/rol.jazz

@@ -0,0 +1,5 @@
+// This is CT in the ordinary sense, but not DOIT as ROL is not DOIT.
+export fn rol(#secret reg u32 x) -> #secret reg u32 {
+  _, _, x = #ROL_32(x, 5);
+  return x;
+}

compiler/CCT/fail/doit/xchg.jazz

@@ -0,0 +1,5 @@
+// This is CT in the ordinary sense, but not DOIT as XCHG is not DOIT.
+export fn xchange(#secret reg u32 a, #secret reg u32 b) -> #secret reg u32, #secret reg u32 {
+    a, b = #XCHG_32(a, b);
+    return a, b;
+}

compiler/CCT/fail/flex_on_ret.jazz

@@ -1,4 +1,4 @@
-fn foo(#public reg u64 r) -> #flex reg u64 {
+export fn foo(#public reg u64 r) -> #flex reg u64 {
    return r;
 }
 

compiler/CCT/fail/load_on_poly.jazz

@@ -1,4 +1,4 @@
-fn load(#poly=l1 reg u64 x) -> reg u64 {
+export fn load(#poly=l1 reg u64 x) -> reg u64 {
 
  reg u64 t;
 

compiler/CCT/fail/load_on_secret.jazz

@@ -1,4 +1,4 @@
-fn mem3(#secret reg u64 p, reg u64 x) {
+export fn mem3(#secret reg u64 p, reg u64 x) {
   reg u64 r;
 
   [p] = x;

compiler/CCT/fail/strict.jazz

@@ -1,4 +1,4 @@
-fn add(#public reg u64 p, #secret reg u64 s) -> reg u64 {
+export fn add(#public reg u64 p, #secret reg u64 s) -> reg u64 {
    p += s;
    return p;
 }

compiler/CCT/fail/strict_local.jazz

@@ -1,4 +1,4 @@
-fn add(#public reg u64 p, #secret reg u64 s) -> reg u64 {
+export fn add(#public reg u64 p, #secret reg u64 s) -> reg u64 {
    #public reg u64 p1; 
    p1 = p + s;
    return p1;

compiler/CCT/fail/strict_on_ret.jazz

@@ -1,4 +1,4 @@
-fn foo(#public reg u64 r) -> #strict reg u64 {
+export fn foo(#public reg u64 r) -> #strict reg u64 {
    return r;
 }
 

compiler/Makefile

@@ -8,6 +8,7 @@ CHECK     += config/tests.config
 CHECKCATS ?= \
 	safety \
 	CCT \
+	CCT-DOIT \
 	x86-64-ATT \
 	x86-64-Intel \
 	x86-64-print \

compiler/config/tests.config

@@ -14,6 +14,13 @@ kodirs = !safety/fail
 bin    = ./scripts/check-cct
 okdirs = !CCT/success
 kodirs = !CCT/fail
+exclude = !CCT/fail/doit
+
+[test-CCT-DOIT]
+bin    = ./scripts/check-cct
+args   = --doit --after=propagate
+okdirs = !CCT/success
+kodirs = !CCT/fail !CCT/fail/doit
 
 [test-SCT]
 bin    = ./scripts/check-cct