Subversion Repositories Kolibri OS

Rev

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

Rev 9010 Rev 9050
Line 49... Line 49...
49 
    _movBool: PmovBool;
 49 
    _movBool: PmovBool;
50 
    _movPtr: PmovPtr;
 50 
    _movPtr: PmovPtr;
51 
(*    _typedPtr: PTypedPtr;
 51 
(*    _typedPtr: PTypedPtr;
52 
    _untypedPtr: PUntypedPtr;*)
 52 
    _untypedPtr: PUntypedPtr;*)
Line 53... Line 53...
53 
 
 53 
 
Line 54... Line 54...
54 
    maxLength*: INTEGER;
 54 
    pMaxLength: INTEGER;
55 
 
 55 
 
56 
 
 56 
 
Line 73... Line 73...
73 
 
 73 
 
74 
 
 74 
 
75 
PROCEDURE malloc (size: INTEGER): INTEGER;
 75 
PROCEDURE malloc (size: INTEGER): INTEGER;
- 
 
 76 
VAR
76 
VAR
 77 
    ptr: INTEGER;
- 
 
 78 
    maxLength: INTEGER;
- 
 
 79 
BEGIN
77 
    ptr: INTEGER;
 80 
    ASSERT(pMaxLength # 0);
78 
BEGIN
 81 
    SYSTEM.GET(pMaxLength, maxLength);
79 
    IF size > maxLength THEN
 82 
    IF size > maxLength THEN
80 
        maxLength := size
 83 
        SYSTEM.PUT(pMaxLength, size)
81 
    END;
 84 
    END;
82 
    size := size*WCHAR_SIZE + 4;
 85 
    size := size*WCHAR_SIZE + 4;
83 
    INC(size, (-size) MOD 32);
 86 
    INC(size, (-size) MOD 32);
Line 420... Line 423...
420 
(*    _typedPtr := typedPtr;
 423 
(*    _typedPtr := typedPtr;
421 
    _untypedPtr := untypedPtr;*)
 424 
    _untypedPtr := untypedPtr;*)
422 
END init;
 425 
END init;
Line -... Line 426...
- 
 
 426 
 
423 
 
 427 
 
- 
 
 428 
PROCEDURE setMaxLength* (VAR maxLength: INTEGER);
- 
 
 429 
BEGIN
- 
 
 430 
    pMaxLength := SYSTEM.ADR(maxLength)
- 
 
 431 
END setMaxLength;
- 
 
 432 
 
424 
 
 433 
 
425 
BEGIN
 434 
BEGIN
426 
    maxLength := 64
 435 
    pMaxLength := 0