在Pure Pascal中需要这4个简短的Pascal Asm例程

作者: 哎？小查查
发布时间: 2024-08-14 05:03:58 (13天前)
转自：

2 条回复

0#
回复此人
不易青年。 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 就像是： </p> <pre> <code> function BitScanForward(var BB:Int64):Integer; var i : integer; work:int64; begin Work:=bb; i:=0; while (i<64) and ((bb and 1)=0) do begin inc(i); bb:=bb shr 1; end; result:=i; end; </code> </pre> <P> BitscanBackward是相同的，但测试最高位。可能是最好的未签名，但我无法测试，所以我把它作为练习留给读者。可能第64位在上述版本中也很危险，在这种情况下使“工作”uint64。 </p> <pre> <code> function BitScanForward(var BB:Int64):Integer; var i : integer; work:int64; begin Work:=bb; result:=0; for i:=0 to 63 do begin if (bb and 1)=1 then inc(result); bb:=bb shr 1; end; end; </code> </pre> </DIV>

编辑

登录后才能参与评论