* fixed bug in float parser

git-svn-id: trunk@14210 -

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;