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

* support type convs for write typed

Browse Source
This commit is contained in:
peter 2003-12-27 22:27:55 +00:00
parent 3677577d9f
commit ae6be6bc0e
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ninl.pas
View File

@ -482,11 +482,7 @@ implementation
para.left:=p1; para.left:=p1;
end; end;
if not equal_defs(para.left.resulttype.def,tfiledef(filepara.resulttype.def).typedfiletype.def) then inserttypeconv(para.left,tfiledef(filepara.resulttype.def).typedfiletype);
begin
CGMessagePos(para.left.fileinfo,type_e_mismatch);
found_error := true;
end;
if assigned(para.right) and if assigned(para.right) and
(cpf_is_colon_para in tcallparanode(para.right).callparaflags) then (cpf_is_colon_para in tcallparanode(para.right).callparaflags) then
@ -2358,7 +2354,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.124 2003-12-08 21:17:12 jonas Revision 1.125 2003-12-27 22:27:55 peter
* support type convs for write typed
Revision 1.124 2003/12/08 21:17:12 jonas
* if there are assertions, include pi_do_call in procinfo.flags * if there are assertions, include pi_do_call in procinfo.flags
Revision 1.123 2003/11/29 16:19:54 peter Revision 1.123 2003/11/29 16:19:54 peter