* set code to 0 in case val(enum) does not encounter an error

git-svn-id: trunk@10951 -

rtl/inc/sstrings.inc

@@ -1194,6 +1194,7 @@ begin
     if l>h then
       goto error;
   until false;
+  code:=0;
   fpc_val_enum_shortstr:=sorted_array[m-1].o;
   exit;
 error: