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

* fixed crash with val()

Browse Source
This commit is contained in:
peter 2000-12-17 14:35:41 +00:00
parent 3315ad63d4
commit d083200fa1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ninl.pas
View File

@ -1210,7 +1210,7 @@ implementation
If (tcallparanode(hp).left.resulttype^.deftype<>stringdef) then
begin
tcallparanode(hp).left:=gentypeconvnode(tcallparanode(hp).left,cshortstringdef);
firstpass(hp);
firstpass(tcallparanode(hp).left);
end;
{ calc registers }
left_max;
@ -1491,7 +1491,10 @@ begin
end.
{
$Log$
Revision 1.19 2000-11-29 00:30:33 florian
Revision 1.20 2000-12-17 14:35:41 peter
* fixed crash with val()
Revision 1.19 2000/11/29 00:30:33 florian
* unused units removed from uses clause
* some changes for widestrings