|
@@ -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
|