мелкие правки

LICENSE

@@ -1,6 +1,6 @@
 BSD 2-Clause License
 
-Copyright (c) 2018-2020, Anton Krotov
+Copyright (c) 2018-2021, Anton Krotov
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without

lib/RVM32I/FPU.ob07

@@ -407,13 +407,13 @@ BEGIN
         n := 32
     ELSE
         IF x < 0 THEN
-            s := 80000000H
+            s := 80000000H;
+            x := -x
         ELSE
             s := 0
         END;
         n := 0;
-        y := ABS(x);
-        x := y;
+        y := x;
         WHILE y > 0 DO
             y := y DIV 2;
             INC(n)

lib/STM32CM3/FPU.ob07

@@ -407,13 +407,13 @@ BEGIN
         n := 32
     ELSE
         IF x < 0 THEN
-            s := 80000000H
+            s := 80000000H;
+            x := -x
         ELSE
             s := 0
         END;
         n := 0;
-        y := ABS(x);
-        x := y;
+        y := x;
         WHILE y > 0 DO
             y := y DIV 2;
             INC(n)