paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 17:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unused variable and label

Browse Source 
git-svn-id: trunk@17212 -
This commit is contained in:
sergei 2011-04-01 05:49:58 +00:00
parent 046ed5548b
commit ef4ce51d24
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/sstrings.inc
View File

@ -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.}