mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 01:09:27 +02:00
* fixed web bug #1684 (it already didn't crash anymore, but it also didn't
generate an error) ("merged")
This commit is contained in:
parent
f0662a6990
commit
599a68f8c9
@ -790,6 +790,9 @@ implementation
|
||||
begin
|
||||
result:=nil;
|
||||
resulttype:=restype;
|
||||
{ check if it's valid }
|
||||
if restype.def.deftype = errordef then
|
||||
CGMessage(cg_e_illegal_expression);
|
||||
end;
|
||||
|
||||
|
||||
@ -821,7 +824,11 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
arrayconstructor elements, since the other flags are element specific
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user