special treatment of 0 only refers to type char
authorhaftmann
Sat, 03 Feb 2018 09:11:21 +0000
changeset 67620 3817a93a3e5e
parent 67619 37ba3d234fbf
child 67639 967c16e9c724
special treatment of 0 only refers to type char
src/HOL/Tools/string_code.ML
--- a/src/HOL/Tools/string_code.ML	Fri Feb 16 14:41:20 2018 +0100
+++ b/src/HOL/Tools/string_code.ML	Sat Feb 03 09:11:21 2018 +0000
@@ -21,7 +21,7 @@
     SOME n => if 0 < n andalso n < 256 then SOME n else NONE
   | _ => NONE;
 
-fun decode_char (IConst { sym = Code_Symbol.Constant @{const_name Groups.zero}, ... }) =
+fun decode_char (IConst { sym = Code_Symbol.Constant @{const_name String.zero_char_inst.zero_char}, ... }) =
      SOME 0
   | decode_char (IConst { sym = Code_Symbol.Constant @{const_name Char}, ... } `$ t) =
       decode_char_nonzero t