| /programs/develop/oberon07/Source/UTILS.ob07 |
|---|
| 1,5 → 1,5 |
| (* |
| Copyright 2016 Anton Krotov |
| Copyright 2016, 2017 Anton Krotov |
| This file is part of Compiler. |
| 28,7 → 28,7 |
| Ext* = ".ob07"; |
| MAX_PATH = 1024; |
| MAX_PARAM = 1024; |
| Date* = 1451606400; (* 2016-01-01 *) |
| Date* = 1509580800; (* 2017-11-02 *) |
| TYPE |
| 199,14 → 199,6 |
| Line := newLine |
| END UnitLine; |
| PROCEDURE min*(a, b: INTEGER): INTEGER; |
| BEGIN |
| IF a > b THEN |
| a := b |
| END |
| RETURN a |
| END min; |
| PROCEDURE Align*(n: INTEGER): INTEGER; |
| RETURN (4 - n MOD 4) MOD 4 |
| END Align; |