From 5d017f110f6c23c29a182465ab7832a944c0ba26 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Thu, 14 May 2015 12:53:02 +0200 Subject: Make a register as storage specify to a fatal error. --- cparser/Elab.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'cparser') diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 4e8ef214..fe74a786 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -1862,7 +1862,7 @@ let enter_decdefs local loc env sto dl = let elab_fundef env spec name body loc = let (s, sto, inline, ty, env1) = elab_name env spec name in if sto = Storage_register then - error loc "a function definition cannot have 'register' storage class"; + fatal_error loc "a function definition cannot have 'register' storage class"; (* Fix up the type. We can have params = None but only for an old-style parameterless function "int f() {...}" *) let ty = -- cgit