summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSon HO2022-09-22 16:27:48 +0200
committerGitHub2022-09-22 16:27:48 +0200
commitbe9c975fa7df858083e48aa7bd42fff475abeac4 (patch)
tree95dc7f1b9704b1910986b303bfaebcfac1aac887
parent5080fa9c40fb8adfd87bd957cd1beca6c7e8e98e (diff)
Update src/ExtractToFStar.ml
-rw-r--r--src/ExtractToFStar.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ExtractToFStar.ml b/src/ExtractToFStar.ml
index f2ea9945..131b2e8b 100644
--- a/src/ExtractToFStar.ml
+++ b/src/ExtractToFStar.ml
@@ -1550,7 +1550,7 @@ let extract_global_decl_body (ctx : extraction_ctx) (fmt : F.formatter)
`static X: u32 = 3;`
will be translated to:
- `let x_body : result int = Return 3`
+ `let x_body : result u32 = Return 3`
`let x_c : int = eval_global x_body`
*)
let extract_global_decl (ctx : extraction_ctx) (fmt : F.formatter)