Skip to content
Snippets Groups Projects
Commit 5a839627 authored by Frédéric Recoules's avatar Frédéric Recoules Committed by Virgile Prevosto
Browse files

[fix] no more empty list when empty template

parent b094c4af
No related branches found
No related tags found
No related merge requests found
......@@ -235,6 +235,7 @@ let mk_behavior ?(name=Cil.default_behavior_name) ?(assumes=[]) ?(requires=[])
let mk_asm_templates =
let buf = Buffer.create 100 in
let rec outer res = function
| [] when res = [] && Buffer.length buf = 0 -> [""]
| [] when Buffer.length buf = 0 -> List.rev res
| [] ->
let res = List.rev @@ Buffer.contents buf :: res in
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment