From 5ec95691c00ddfa0e394cf0cd9cbcaf4ae718b60 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Tue, 24 Sep 2013 15:38:15 +0000
Subject: [PATCH] * fpc_val_real_shortstr: some more minor/style cleanup.

git-svn-id: trunk@25548 -
---
 rtl/inc/sstrings.inc | 31 +++++++++++++------------------
 1 file changed, 13 insertions(+), 18 deletions(-)

diff --git a/rtl/inc/sstrings.inc b/rtl/inc/sstrings.inc
index 4f26e9ca00..1716471b20 100644
--- a/rtl/inc/sstrings.inc
+++ b/rtl/inc/sstrings.inc
@@ -1583,14 +1583,13 @@ begin
     begin
       inc(code);
       if Length(s) >= code then
-        if s[code]='+' then
-          inc(code)
-        else
-          if s[code]='-' then
-           begin
-             esign:=-1;
-             inc(code);
-           end;
+        case s[code] of
+          '+': inc(code);
+          '-': begin
+                 esign:=-1;
+                 inc(code);
+               end;
+        end;
       expstart:=code;
       while (length(s)>=code) and (s[code] in ['0'..'9']) do
         begin
@@ -1605,17 +1604,13 @@ begin
     exit;
 
 { adjust exponent based on decimal point }
-  if esign>0 then
+  dec(exponent,decpoint*esign);
+  if (exponent<0) then
     begin
-      dec(exponent,decpoint);
-      if (exponent<0) then
-        begin
-          esign:=-1;
-          exponent:=-exponent;
-        end
-    end
-  else
-    inc(exponent,decpoint);
+      esign:=-1;
+      exponent:=-exponent;
+    end;
+
 { evaluate sign }
 { (before exponent, because the exponent may turn it into a denormal) }
   fpc_Val_Real_ShortStr:=hd*sign;