* set code to 0 in case val(enum) does not encounter an error · 063af15a0c - Gogs

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

git-svn-id: trunk@10951 -

Jonas Maebe 17 years ago

parent

87aa666768

commit

063af15a0c

1 changed files with 1 additions and 0 deletions

Split View Show Diff Stats

						
							+ 1
							
							- 0
						
rtl/inc/sstrings.inc
							 
								View File
							
				@@ -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: