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

* fixed web bug #1684 (it already didn't crash anymore, but it also didn't

Browse Source 
generate an error) ("merged")
This commit is contained in:
Jonas Maebe 2001-12-28 15:02:00 +00:00
parent f0662a6990
commit 599a68f8c9
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nld.pas
View File

@ -790,6 +790,9 @@ implementation
begin begin
result:=nil; result:=nil;
resulttype:=restype; resulttype:=restype;
{ check if it's valid }
if restype.def.deftype = errordef then
CGMessage(cg_e_illegal_expression);
end; end;
@ -821,7 +824,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.30 2001-11-07 13:52:52 jonas Revision 1.31 2001-12-28 15:02:00 jonas
* fixed web bug 1684 (it already didn't crash anymore, but it also didn't
generate an error) ("merged")
Revision 1.30 2001/11/07 13:52:52 jonas
* only save/restore nf_forcevaria flag when reversing order of * only save/restore nf_forcevaria flag when reversing order of
arrayconstructor elements, since the other flags are element specific arrayconstructor elements, since the other flags are element specific