Changeset 17

Show
Ignore:
Timestamp:
10/21/07 23:42:05 (10 months ago)
Author:
sagrer
Message:

Мелкие фиксы - вытащено исправление бага в ExtraFileUtils?.pas по поводу CopyDirectory? и поправлен crc_32.pas для компиллябельности в билдере.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/ExtraFileUtils.pas

    r7 r17  
    153153// êîïèðóåò äèððåêòîðèþ 
    154154function CopyDirectory(const sourceDir, destDir :AnsiString; const overwriteExists :Boolean = false; 
    155                         const recursive :Boolean = false) :Boolean; 
     155                        const recursive :Boolean = true) :Boolean; 
    156156 
    157157 
    …… 
    506506// êîïèðóåò äèðåêòîðèþ 
    507507function CopyDirectory(const sourceDir, destDir :AnsiString; const overwriteExists :Boolean = false; 
    508                         const recursive :Boolean = false) :Boolean; 
     508                        const recursive :Boolean = true) :Boolean; 
    509509var 
    510510  it :TFileSystemIterator; 

  • trunk/crc_32.pas

    r7 r17  
    1212 
    1313interface 
     14 
     15type 
     16  PPCardinal = ^Cardinal; 
    1417 
    1518function crc32(crc : cardinal; buf : Pbyte; len : cardinal) : cardinal; 
    …… 
    3437} 
    3538 
    36 function get_crc_table : Pcardinal;  { can be used by asm versions of crc32() } 
     39function get_crc_table : PPCardinal;  { can be used by asm versions of crc32() } 
    3740 
    3841 
    …… 
    171174  This function can be used by asm versions of crc32() } 
    172175 
    173 function get_crc_table : {const} Pcardinal; 
     176function get_crc_table : {const} PPcardinal; 
    174177begin 
    175178{$ifdef DYNAMIC_CRC_TABLE} 
    …… 
    177180    make_crc_table; 
    178181{$endif} 
    179   get_crc_table :=  {const} Pcardinal(@crc_table); 
     182  get_crc_table :=  {const} PPcardinal(@crc_table); 
    180183end; 
    181184