Rev 8097 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8097 | Rev 8859 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | BSD 2-Clause License |
2 | BSD 2-Clause License |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| 4 | Copyright (c) 2018-2020, Anton Krotov |
4 | Copyright (c) 2018-2021, Anton Krotov |
| 5 | All rights reserved. |
5 | All rights reserved. |
| Line 6... | Line 6... | ||
| 6 | *) |
6 | *) |
| Line 16... | Line 16... | ||
| 16 | file: FILES.FILE; |
16 | file: FILES.FILE; |
| Line 17... | Line 17... | ||
| 17 | 17 | ||
| 18 | 18 | ||
| 19 | PROCEDURE align* (n, _align: INTEGER): INTEGER; |
- | |
| 20 | BEGIN |
19 | PROCEDURE align* (n, _align: INTEGER): INTEGER; |
| 21 | IF n MOD _align # 0 THEN |
- | |
| 22 | INC(n, _align - (n MOD _align)) |
- | |
| 23 | END |
20 | BEGIN |
| 24 | 21 | ASSERT(UTILS.Align(n, _align)) |
|
| Line 25... | Line 22... | ||
| 25 | RETURN n |
22 | RETURN n |