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; |