Skip to content
Snippets Groups Projects
Commit 4f975ded authored by Lars Hupel's avatar Lars Hupel
Browse files

dummy support for strings

parent 4a2e8eec
Branches
No related tags found
No related merge requests found
...@@ -5,6 +5,8 @@ begin ...@@ -5,6 +5,8 @@ begin
axiomatization axiomatization
error :: "nat \<Rightarrow> 'a" error :: "nat \<Rightarrow> 'a"
typedecl string
declare [[code abort: error]] declare [[code abort: error]]
declare null_rec[simp] declare null_rec[simp]
......
...@@ -127,6 +127,9 @@ final class Types(context: LeonContext, program: Program, system: System)(implic ...@@ -127,6 +127,9 @@ final class Types(context: LeonContext, program: Program, system: System)(implic
case Some(datatype) => datatype.typ case Some(datatype) => datatype.typ
}}.map { Type(_, args) } }}.map { Type(_, args) }
} }
case StringType =>
context.reporter.warning("Strings are not yet supported, translating to unspecified type")
Future.successful { Type("Leon_Library.string", Nil) }
case _ if strict => case _ if strict =>
context.reporter.fatalError(s"Unsupported type $tree, can't be inferred") context.reporter.fatalError(s"Unsupported type $tree, can't be inferred")
case _ => case _ =>
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment