* unused label is now a warning

compiler/msgidx.inc

@@ -208,7 +208,7 @@ type tmsgconst=(
   sym_e_invalid_call_tvarsymmangledname,
   sym_f_type_must_be_rec_or_class,
   sym_e_no_instance_of_abstract_object,
-  sym_e_label_not_defined,
+  sym_w_label_not_defined,
   sym_e_ill_label_decl,
   sym_e_goto_and_label_not_supported,
   sym_e_label_not_found,

compiler/msgtxt.inc

@@ -218,7 +218,7 @@ const msgtxt : array[0..00094,1..240] of char=(
   'F_record or class type expected'#000+
   'E_Instances of classes or objects with an abtsract method are not allo'+
   'wed'#000+
-  'E_Label not defined $1'#000+
+  'W_Label not defined $1'#000+
   'E_Illegal label de','claration'#000+
   'E_GOTO und LABEL are not supported (use command line switch -Sg)'#000+
   'E_Label not found'#000+

compiler/symsym.inc

@@ -277,7 +277,7 @@
 
       begin
          if not(defined) then
-          Message1(sym_e_label_not_defined,name);
+          Message1(sym_w_label_not_defined,name);
          inherited done;
       end;
 
@@ -1735,7 +1735,10 @@
 
 {
   $Log$
-  Revision 1.58  1998-11-10 10:50:57  pierre
+  Revision 1.59  1998-11-13 12:09:11  peter
+    * unused label is now a warning
+
+  Revision 1.58  1998/11/10 10:50:57  pierre
    * temporary fix for long mangled procsym names
 
   Revision 1.57  1998/11/05 23:39:31  peter