Browse Source

Reduce cpu-os dependency on real constant printout by using system.str

git-svn-id: trunk@42670 -
pierre 6 năm trước cách đây
mục cha
commit
36bc9b726e
1 tập tin đã thay đổi với 7 bổ sung3 xóa
  1. 7 3
      compiler/utils/ppuutils/ppudump.pp

+ 7 - 3
compiler/utils/ppuutils/ppudump.pp

@@ -3464,6 +3464,7 @@ var
   realvalue : ppureal;
   doublevalue : double;
   singlevalue : single;
+  realstr : shortstring;
   extended : TSplit80bitReal;
   pw : pcompilerwidestring;
   varoptions : tvaroptions;
@@ -3578,19 +3579,22 @@ begin
                      begin
                        realvalue:=getrealsize(sizeof(ppureal));
                        constdef.VFloat:=realvalue;
-                       writeln([realvalue]);
+                       system.str(realvalue,realstr);
+                       writeln([realstr]);
                      end
                    else if entryleft=sizeof(double) then
                      begin
                        doublevalue:=getrealsize(sizeof(double));
                        constdef.VFloat:=doublevalue;
-                       writeln([doublevalue]);
+                       system.str(doublevalue,realstr);
+                       writeln([realstr]);
                      end
                    else if entryleft=sizeof(single) then
                      begin
                        singlevalue:=getrealsize(sizeof(single));
                        constdef.VFloat:=singlevalue;
-                       writeln([singlevalue]);
+                       system.str(singlevalue,realstr);
+                       writeln([realstr]);
                      end
                    else if entryleft=10 then
                      begin