Subversion Repositories Kolibri OS

Rev

Rev 9872 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9872 Rev 9976
Line 3... Line 3...
3
;; Copyright (C) KolibriOS team 2004-2022. All rights reserved. ;;
3
;; Copyright (C) KolibriOS team 2004-2022. All rights reserved. ;;
4
;;  Distributed under terms of the GNU General Public License.  ;;
4
;;  Distributed under terms of the GNU General Public License.  ;;
5
;;                                                              ;;
5
;;                                                              ;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 7... Line 7...
7
 
7
 
Line 8... Line 8...
8
$Revision: 9872 $
8
$Revision: 9976 $
9
 
9
 
Line 509... Line 509...
509
        stdcall get_fileinfo, [file_name], eax   ;find file and get info
509
        stdcall get_fileinfo, [file_name], eax   ;find file and get info
510
        test    eax, eax
510
        test    eax, eax
511
        jnz     .err_1
511
        jnz     .err_1
Line 512... Line 512...
512
 
512
 
513
        mov     eax, [file_size]
513
        mov     eax, [file_size]
514
        cmp     eax, 1024*1024*16                ;to be enough for anybody (c)
514
        cmp     eax, 1024*1024*1024                ;to be enough for anybody 1Gbt(c)
515
        ja      .err_1
515
        ja      .err_1
516
                                                 ;it is very likely that the file is packed
516
                                                 ;it is very likely that the file is packed
517
        stdcall kernel_alloc, [file_size]        ;with kpack, so allocate memory from kernel heap
517
        stdcall kernel_alloc, [file_size]        ;with kpack, so allocate memory from kernel heap
518
        mov     [km_file], eax
518
        mov     [km_file], eax