Subversion Repositories Kolibri OS

Rev

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

Rev 9560 Rev 9599
Line 47... Line 47...
47 
VAR
 47 
VAR
48 
    a, cnt, size: INTEGER;
 48 
    a, cnt, size: INTEGER;
49 
    ptr, pchar: INTEGER;
 49 
    ptr, pchar: INTEGER;
50 
    wch: WCHAR;
 50 
    wch: WCHAR;
51 
BEGIN
 51 
BEGIN
52 
    cnt := bufSize(buffer) DIV 2;
 52 
    cnt := bufSize(buffer) DIV SYSTEM.SIZE(WCHAR);
53 
    size := cnt + 12;
 53 
    size := cnt + 12;
54 
    a := KOSAPI.malloc(size);
 54 
    a := KOSAPI.malloc(size);
55 
    ASSERT(a # 0);
 55 
    ASSERT(a # 0);
56 
    SYSTEM.PUT32(a + 4, TTEXT);
 56 
    SYSTEM.PUT32(a + 4, TTEXT);
57 
    SYSTEM.PUT32(a + 8, 1);
 57 
    SYSTEM.PUT32(a + 8, 1);