paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 15:39:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crashing bug when trying to write an undefined fp var with

Browse Source 
formatting parameters
This commit is contained in:
Jonas Maebe 2000-02-17 15:39:29 +00:00
parent dfe879d12e
commit 1571d1666b
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/tcinl.pas
View File

@ -782,7 +782,10 @@ implementation
frac_para:=nil; frac_para:=nil;
hpp:=hp^.right; hpp:=hp^.right;
end; end;
isreal:=(hpp^.left^.resulttype^.deftype=floatdef); { can be nil if you use "write(e:0:6)" while e is undeclared (JM) }
if assigned(hpp^.left^.resulttype) then
isreal:=(hpp^.left^.resulttype^.deftype=floatdef)
else exit;
if (not is_integer(length_para^.left^.resulttype)) then if (not is_integer(length_para^.left^.resulttype)) then
CGMessage1(type_e_integer_expr_expected,length_para^.left^.resulttype^.typename) CGMessage1(type_e_integer_expr_expected,length_para^.left^.resulttype^.typename)
else else
@ -1292,7 +1295,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.67 2000-02-17 14:53:43 florian Revision 1.68 2000-02-17 15:39:29 jonas
* fixed crashing bug when trying to write an undefined fp var with
formatting parameters
Revision 1.67 2000/02/17 14:53:43 florian
* some updates for the newcg * some updates for the newcg
Revision 1.66 2000/02/13 14:21:51 jonas Revision 1.66 2000/02/13 14:21:51 jonas