(26 . 7)(26 . 6)
1319 Result(i) := X(i) and Y(i);
1320 end loop;
1321 end FZ_And;
1322 pragma Inline_Always(FZ_And);
1323
1324
1325 -- N := N & W, W is a word
(34 . 7)(33 . 6)
1327 begin
1328 N(N'First) := N(N'First) and W;
1329 end FZ_And_W;
1330 pragma Inline_Always(FZ_And_W);
1331
1332
1333 -- Result := X | Y
(44 . 7)(42 . 6)
1335 Result(i) := X(i) or Y(i);
1336 end loop;
1337 end FZ_Or;
1338 pragma Inline_Always(FZ_Or);
1339
1340
1341 -- N := N | W, W is a word
(52 . 7)(49 . 6)
1343 begin
1344 N(N'First) := N(N'First) or W;
1345 end FZ_Or_W;
1346 pragma Inline_Always(FZ_Or_W);
1347
1348
1349 -- Result := X ^ Y
(62 . 7)(58 . 6)
1351 Result(i) := X(i) xor Y(i);
1352 end loop;
1353 end FZ_Xor;
1354 pragma Inline_Always(FZ_Xor);
1355
1356
1357 -- N := N ^ W, W is a word
(70 . 7)(65 . 6)
1359 begin
1360 N(N'First) := N(N'First) xor W;
1361 end FZ_Xor_W;
1362 pragma Inline_Always(FZ_Xor_W);
1363
1364
1365 -- NotN := ~N
(81 . 6)(75 . 5)
1367 NotN(i) := not N(i);
1368 end loop;
1369 end FZ_Not;
1370 pragma Inline_Always(FZ_Not);
1371
1372 end FZ_BitOp;