Subversion Repositories Kolibri OS

Rev

Rev 7983 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7983 Rev 8097
Line 15... Line 15...
15 
    FILE* = POINTER TO RECORD (C.ITEM)
 15 
    FILE* = POINTER TO RECORD (C.ITEM)
Line 16... Line 16...
16 
 
 16 
 
Line 17... Line 17...
17 
        ptr: INTEGER;
 17 
        ptr: INTEGER;
18 
 
 18 
 
19 
        buffer: ARRAY 64*1024 OF BYTE;
 - 
 
20 
        count:  INTEGER;
 - 
 
Line 21... Line 19...
21 
 
 19 
        buffer: ARRAY 64*1024 OF BYTE;
Line 22... Line 20...
22 
        chksum*: INTEGER
 20 
        count:  INTEGER
Line 83... Line 81...
83 
    ptr := UTILS.FileCreate(name);
 81 
    ptr := UTILS.FileCreate(name);
Line 84... Line 82...
84 
 
 82 
 
85 
    IF ptr > 0 THEN
 83 
    IF ptr > 0 THEN
86 
        file := NewFile();
 84 
        file := NewFile();
87 
        file.ptr := ptr;
 85 
        file.ptr := ptr;
88 
        file.count := 0;
 - 
 
89 
        file.chksum := 0
 86 
        file.count := 0
90 
    ELSE
 87 
    ELSE
91 
        file := NIL
 88 
        file := NIL
Line 92... Line 89...
92 
    END
 89 
    END