- 445A0EEA698AC3F75014034FD7D9E74D8253862AD5D62B77881DB9E986AB0D82D24C88FB227B12EA9C41FDFFAEBBF685A21780E42A8353CD81C74C8818C67898
+ 6460958067C44F2C661E4A19590A65D33615BAD5CBF436F155499A11E8015E81CEF9B4F036A41BF280FC2CB1DBDB885BB56EDD7D4A79F9276B93DD0470C91659
ffa/libffa/fz_basic.adb
(34 . 6)(34 . 15)
969 pragma Inline_Always(FZ_Clear);
970
971
972 -- Set given FZ to a given truth value
973 procedure WBool_To_FZ(V : in WBool; N : out FZ) is
974 begin
975 FZ_Clear(N);
976 FZ_Set_Head(N, V);
977 end WBool_To_FZ;
978 pragma Inline_Always(WBool_To_FZ);
979
980
981 -- First word of N := Source
982 procedure FZ_Set_Head(N : out FZ; Source : in Word) is
983 begin