Subversion Repositories Kolibri OS

Rev

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

Rev 9050 Rev 9060
Line 29... Line 29...
29
TYPE
29
TYPE
Line 30... Line 30...
30
 
30
 
31
    tLine* = POINTER TO RECORD (List.tItem)
31
    tLine* = POINTER TO RECORD (List.tItem)
32
        ptr: INTEGER;
32
        ptr: INTEGER;
33
        length*: INTEGER;
33
        length*: INTEGER;
34
        modified*, saved*, temp: BOOLEAN;
34
        modified*, saved*, temp, label*: BOOLEAN;
35
        cin*, cout*, pos*: INTEGER
35
        cin*, cout*, pos*: INTEGER
Line 36... Line 36...
36
    END;
36
    END;
37
 
37
 
Line 111... Line 111...
111
PROCEDURE create* (temp: BOOLEAN): tLine;
111
PROCEDURE create* (temp: BOOLEAN): tLine;
112
VAR
112
VAR
113
    line: tLine;
113
    line: tLine;
114
BEGIN
114
BEGIN
115
    NEW(line);
115
    NEW(line);
-
 
116
    line.label := FALSE;
116
    ASSERT(line # NIL);
117
    ASSERT(line # NIL);
117
(*    IF ~temp THEN
118
(*    IF ~temp THEN
118
        _typedPtr(line)
119
        _typedPtr(line)
119
    END;*)
120
    END;*)
120
    line.next := NIL;
121
    line.next := NIL;