Quote
Get BPL70N16.ZIP (Norbert Juffa's based on BP 7.00, but without the
bugs) or my BLP70V20.ZIP (need>=386) and the problem will be gone and
you're programs will also be a bit smaller and faster.
Since longint math often is used in time critical parts (inner loops
and so on), it might be a good idea to use inline macros. That way you
reduce a lot of the overhead that a procedure or function call gives.
I use the unit MACRO.PAS (listed below) for most of my time critical
code. On modern, fast computers the difference isn't that big, but on
slower, old ones it can be quite significant.
unit Macro;
{$g+}
{ -=:*:=- macros -=:*:=- }
{ various inline macros collected/rewritten/written by
Björn Felten @ FidoNet 2:203/208 }
{ -- Public Domain -- }
interface
function readKey:char;inline
($B4/$07/ { mov ah,7 }
$CD/$21); { int $21 }
function xreadKey:char;inline
($B4/$10/ { mov ah,10h }
$CD/$16); { int 16h }
function keyPressed:boolean;inline
($B4/$0B/ { mov ah,$B }
$CD/$21/ { int $21 }
$24/$FE); { and al,$FE }
{ fast sqrt -- returns int part in hi word and fract part in low}
function iSqrt(x:longint):longint;
inline
($66/$33/$c0 { xor eax,eax}
/$66/$33/$d2 { xor edx,edx}
/$66/$5f { pop edi}
/$b9/$20/$00 { mov cx,32}
{@L:}
/$66/$d1/$e7 { shl edi,1}
/$66/$d1/$d2 { rcl edx,1}
/$66/$d1/$e7 { shl edi,1}
/$66/$d1/$d2 { rcl edx,1}
/$66/$d1/$e0 { shl eax,1}
/$66/$8b/$d8 { mov ebx,eax}
/$66/$d1/$e3 { shl ebx,1}
/$66/$43 { inc ebx}
/$66/$3b/$d3 { cmp edx,ebx}
/$7c/$05 { jl @S}
/$66/$2b/$d3 { sub edx,ebx}
/$66/$40 { inc eax}
{@S:}
/$e2/$dd { loop @L}
/$66/$8b/$d0 { mov edx,eax}
/$66/$c1/$ea/$10); { shr edx,16}
function swapLong(l:longint):longint;
inline
($5a { pop dx }
/$58); { pop ax }
function swapWords(x,y:word):longint;
inline
($58 { pop ax }
/$5a); { pop dx }
function Mul32(a,b:longint):longint;
inline($fa/$66/$59/$66/$58/$66/$f7/$e9/$66/$0f/$a4/$c2/$10/$fb);
function Div32(a,b:longint):longint;
inline($fa/$66/$59/$66/$58/$66/$99/$66/$f7/$f9/$66/$0f/$a4/$c2/$10/$fb);
function Shl32(a:longint;b:word):longint;
inline($fa/$59/$66/$58/$66/$d3/$e0/$66/$0f/$a4/$c2/$10/$fb);
function Shr32(a:longint;b:word):longint;
inline($fa/$59/$66/$58/$66/$d3/$e8/$66/$0f/$a4/$c2/$10/$fb);
function Sar32(a:longint;b:word):longint;
inline($fa/$59/$66/$58/$66/$d3/$f8/$66/$0f/$a4/$c2/$10/$fb);
function Rol32(a:longint;b:word):longint;
inline($fa/$59/$66/$58/$66/$d3/$c0/$66/$0f/$a4/$c2/$10/$fb);
function Ror32(a:longint;b:word):longint;
inline($fa/$59/$66/$58/$66/$d3/$c8/$66/$0f/$a4/$c2/$10/$fb);
function Long2Hex(L: longint): string;
inline(
$66/$5b { pop ebx ; ebx = L }
/$16 { push ss }
/$07 { pop es ; es = ss }
/$b8/$08/$00 { mov ax,8 }
/$aa { stosb }
/$89/$c1 { mov cx,ax }
{@@loo: }
/$66/$c1/$c3/$04 { rol ebx,4 }
/$88/$d8 { mov al,bl }
/$24/$0f { and al,15 }
/$04/$90 { add al,90h }
/$27 { daa }
/$14/$40 { adc al,40h }
/$27 { daa }
/$0c/$20 { or al,20h }
/$aa { stosb }
/$e2/$ed); { loop @loo }
function Word2Hex(L: word): string;
inline(
$5b { pop bx ; bx = L }
/$16 { push ss }
/$07 { pop es ; es = ss }
/$b8/$04/$00 { mov ax,4 }
/$aa { stosb }
/$89/$c1 { mov cx,ax }
{@@loo: }
/$c1/$c3/$04 { rol bx,4 }
/$88/$d8 { mov al,bl }
/$24/$0f { and al,15 }
/$04/$90 { add al,90h }
/$27 { daa }
/$14/$40 { adc al,40h }
/$27 { daa }
/$0c/$20 { or al,20h }
/$aa { stosb }
/$e2/$ee); { loop @loo }
implementation
end.
--
FidoNet in your news reader: news://felten.dyndns.org
For full access, register at:
felten.dyndns.org/join.html
