Rev 8728 | Rev 9050 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8728 | Rev 9010 | ||
---|---|---|---|
Line 208... | Line 208... | ||
208 | BEGIN |
208 | BEGIN |
209 | SYSTEM.PUT(line.ptr + i*WCHAR_SIZE, c) |
209 | SYSTEM.PUT(line.ptr + i*WCHAR_SIZE, c) |
210 | END setChar; |
210 | END setChar; |
Line -... | Line 211... | ||
- | 211 | ||
- | 212 | ||
- | 213 | PROCEDURE move* (src, dst: tLine); |
|
- | 214 | BEGIN |
|
- | 215 | SYSTEM.MOVE(src.ptr, dst.ptr, (MIN(src.length, dst.length) + 1)*WCHAR_SIZE) |
|
- | 216 | END move; |
|
211 | 217 | ||
212 | 218 | ||
213 | PROCEDURE concat* (line: tLine; s: ARRAY OF WCHAR); |
219 | PROCEDURE concat* (line: tLine; s: ARRAY OF WCHAR); |
214 | VAR |
220 | VAR |
215 | Len: INTEGER; |
221 | Len: INTEGER; |