- removed unused variable and label

git-svn-id: trunk@17212 -

rtl/inc/sstrings.inc

@@ -455,8 +455,6 @@ type
   end;
 
 var
-  p:Pstring;
-
   enum_o2s : Penum_ord_to_string;
   header:Penum_typeinfo;
   body:Penum_typedata;
@@ -1340,8 +1338,6 @@ var l,h,m:cardinal;
     spaces:byte;
     t:shortstring;
 
-label error;
-
 begin
   {Val for numbers accepts spaces at the start, so lets do the same
    for enums. Skip spaces at the start of the string.}