paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:30:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Exceptions now used for errors

Browse Source
This commit is contained in:
michael 2000-07-04 20:53:22 +00:00
parent da82ae94c3
commit 4a664ad78b
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/math.pp
View File

@ -176,15 +176,19 @@ function norm(const data : array of float) : float;
implementation implementation
ResourceString
SMathError = 'Math Error : %s';
SInvalidArgument = 'Invalid argument';
Procedure DoMathError(Const S : String); Procedure DoMathError(Const S : String);
begin begin
writeln (StdErr,'Math Error : ',S); Raise EMathError.CreateFmt(SMathError,[S]);
end; end;
Procedure InvalidArgument; Procedure InvalidArgument;
begin begin
DoMathError ('Invalid argument'); DoMathError(SInvalidArgument);
end; end;
function degtorad(deg : float) : float; function degtorad(deg : float) : float;
@ -679,7 +683,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.18 2000-04-29 10:10:51 jonas Revision 1.19 2000-07-04 20:53:22 michael
+ Exceptions now used for errors
Revision 1.18 2000/04/29 10:10:51 jonas
* fixed arctan2 (tbug788 now works correctly) * fixed arctan2 (tbug788 now works correctly)
Revision 1.17 2000/04/20 13:12:40 pierre Revision 1.17 2000/04/20 13:12:40 pierre