Type pinteger=^integer'
Function php_strnatcmp(s191,s192:pchar;extmax:integer;extmin:byte):boolean;
Var divx,nth:integer;
Begin
      result:=(s191=nil) and (s192=nil); if (result) then exit;
      if (s191=nil) or (s192=nil) then exit;
      result:=(s191^=#0) and (s192^=#0); if (result) then exit;
      if ((extmin=1)or(extmin=4))and(extmax>3) then 
           Begin divx:=extmax div 4;
                 for nth:=divx downto 1 do
                     if (pinteger(s191))^<>(pinteger(s192)^) then exit
                        else Begin inc(s191);inc(s191);inc(s191);inc(s191);
                                   inc(s192);inc(s192);inc(s192);inc(s192);
                             End;

                 divx:=nth and 3;
                 for nth:=divx downto 1 do
                     if (s191^=#0) then break  else
                        if (s191^<>s192^) then exit else Begin inc(s191);inc(s192);End;
                 result:=true;exit;
          End;


      if (extmin=2)and(extmax>3) then 
           Begin divx:=extmax shr 2;
                 for nth:=divx downto 1 do
                     if (pinteger(s191))^<>(pinteger(s192)^) then exit
                        else Begin inc(s191);inc(s191);inc(s191);inc(s191);
                                   inc(s192);inc(s192);inc(s192);inc(s192);
                             End;
                 divx:=nth and 3;
                 for nth:=divx downto 1 do
                     if (s192^=#0) then break else
                        if (s191^<>s192^) then exit else Begin inc(s191);inc(s192);End;
                 result:=true;exit;
          End;
      if (extmax<256) and (extmax<>extmin) then exit;
      result:=CompareMem(s191,s192,extmax)
End;