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

* fixed test so it does not use uninitialised floating point values (that

Browse Source 
could trigger exceptions)

git-svn-id: trunk@34947 -
This commit is contained in:
Jonas Maebe 2016-11-21 07:39:17 +00:00
parent 48ef33a8b3
commit acaae2bf3c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/webtbs/tw0938.pp
View File

@ -25,16 +25,16 @@ end;
operator * (V : Vector;Value : extended) Result : Vector; operator * (V : Vector;Value : extended) Result : Vector;
begin begin
Result.X:=Result.X*Value; Result.X:=V.X*Value;
Result.Y:=Result.Y*Value; Result.Y:=V.Y*Value;
Result.Z:=Result.Z*Value; Result.Z:=V.Z*Value;
end; end;
{...} {...}
operator * (Value : extended;V : Vector) Result : Vector; operator * (Value : extended;V : Vector) Result : Vector;
begin begin
Result.X:=Result.X*Value; Result.X:=V.X*Value;
Result.Y:=Result.Y*Value; Result.Y:=V.Y*Value;
Result.Z:=Result.Z*Value; Result.Z:=V.Z*Value;
end; end;
{...} {...}