|
@@ -7043,10 +7043,8 @@ TYPE
|
|
(* inline call in a statement *)
|
|
(* inline call in a statement *)
|
|
ELSIF ~IsCallable(call) THEN
|
|
ELSIF ~IsCallable(call) THEN
|
|
Error(procedureCall.position,"called object is not a procedure");
|
|
Error(procedureCall.position,"called object is not a procedure");
|
|
- ELSIF (call.type # NIL) & (call.left # NIL) THEN
|
|
|
|
- IF call.left.type.resolved(SyntaxTree.ProcedureType).callingConvention = SyntaxTree.WinAPICallingConvention THEN
|
|
|
|
- Warning(procedureCall.position,"ignoring return value of procedure call");
|
|
|
|
- ELSIF ~procedureCall.ignore THEN
|
|
|
|
|
|
+ ELSIF call.type # NIL THEN
|
|
|
|
+ IF ~procedureCall.ignore THEN
|
|
Error(procedureCall.position,"calling procedure with non-void return type");
|
|
Error(procedureCall.position,"calling procedure with non-void return type");
|
|
IF VerboseErrorMessage THEN Printout.Info("call ",call) END;
|
|
IF VerboseErrorMessage THEN Printout.Info("call ",call) END;
|
|
END;
|
|
END;
|