Hi for all,

I need translata a funcion from C to pascal

#define TMaskClear(E, M) ((M)[(E)/8] &= ~(1 << ((E)%8)))

"E" is Integer
"M" is TMask :
Type TMask = Array[0..64] of Byte;


This part is a Matrix asignation :
(M)[(E)/8]
Okay,

¿and this part?
&= ~(1 << ((E)%8))

For example :
If you use this funcion in C :
(First All set to $FF)
[255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255]


Executing this funcion for E=61 (3D hex)
[255,255,255,255,255,255,255,223,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255]

In the index "7" the value change to 223.

Mc

This works with your example, not sure how will perform w/ different values though, since I didn't test it

type tmask=array[0..64] of byte;

var m:tmask;

procedure tmaskclear(e:integer;var n:tmask);
 begin
  n[e div 8]:=n[e div 8] and not(1 shl (e mod 8));
 end;

begin
 fillchar(m,sizeof(m),$ff);

 tmaskclear(61,m);

 writeln(m[7]);
 readln;
end.

Works perfect,

Thanks!!