paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 17:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* try to convert to string for val()

Browse Source
This commit is contained in:
peter 1999-04-26 09:32:22 +00:00
parent 1e89937590
commit f0b7d9c4c2
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/tcinl.pas
View File

@ -905,10 +905,15 @@ implementation
count_ref := false;
must_be_valid := true;
firstcallparan(hp,nil);
if codegenerror then exit;
If (hp^.resulttype^.deftype<>stringdef) then
CGMessage(type_e_mismatch);
{ firstcallparan(p^.left,nil);}
if codegenerror then
exit;
{ if not a stringdef then insert a type conv which
does the other type checking }
If (hp^.left^.resulttype^.deftype<>stringdef) then
begin
hp^.left:=gentypeconvnode(hp^.left,cshortstringdef);
firstpass(hp);
end;
{ calc registers }
left_right_max(p);
end;
@ -1078,7 +1083,10 @@ implementation
end.
{
$Log$
Revision 1.26 1999-04-15 14:10:51 pierre
Revision 1.27 1999-04-26 09:32:22 peter
* try to convert to string for val()
Revision 1.26 1999/04/15 14:10:51 pierre
* fix for bug0238.pp
Revision 1.25 1999/04/15 10:00:35 peter