paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +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
ResourceString
SMathError = 'Math Error : %s';
SInvalidArgument = 'Invalid argument';
Procedure DoMathError(Const S : String);
begin
writeln (StdErr,'Math Error : ',S);
Raise EMathError.CreateFmt(SMathError,[S]);
end;
Procedure InvalidArgument;
begin
DoMathError ('Invalid argument');
DoMathError(SInvalidArgument);
end;
function degtorad(deg : float) : float;
@ -679,7 +683,10 @@ end;
end.
{
$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)
Revision 1.17 2000/04/20 13:12:40 pierre