summaryrefslogtreecommitdiff
path: root/tests/webtbs/tw0852.pp
blob: 07fa3d2e27a74e4ad01f373a9581b5dd8780d979 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TFloat80Array = array [0..1000000] of Extended;

procedure AddFloat80Proc(var Vector1; const Vector2; Count: Integer);
var
  I: Integer;
begin
  for I:=0 to Count - 1 do
    TFloat80Array(Vector1)[I]:=TFloat80Array(Vector1)[I] + TFloat80Array(Vector2)[I];
end;

begin
end.