From c4625d673fb1c0377091ffa2366ddbd901b166f9 Mon Sep 17 00:00:00 2001
From: ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Wed, 18 Nov 2009 11:47:31 +0000
Subject: * fixed bug in float parser

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14210 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/libxml/src/xmlxsd.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'packages/libxml')

diff --git a/packages/libxml/src/xmlxsd.pas b/packages/libxml/src/xmlxsd.pas
index 644eda8ed3..a7f5d653d0 100644
--- a/packages/libxml/src/xmlxsd.pas
+++ b/packages/libxml/src/xmlxsd.pas
@@ -630,8 +630,6 @@ begin
     Inc(P);
   end;
   Value := Int;
-  if N then
-    Value := -Value;
 
   { allow '.' }
   if (P < L) and (P^ = '.') then
@@ -672,6 +670,9 @@ begin
     end;
   end;
 
+  if N then
+    Value := -Value;
+
   Result := True;
 end;
 
-- 
cgit v1.2.1