| /programs/develop/oberon07/Lib/KolibriOS/API.ob07 |
|---|
| 1,5 → 1,5 |
| (* |
| Copyright 2016, 2017 Anton Krotov |
| Copyright 2016, 2017, 2018 Anton Krotov |
| This program is free software: you can redistribute it and/or modify |
| it under the terms of the GNU Lesser General Public License as published by |
| 247,7 → 247,7 |
| res := 0 |
| END |
| END; |
| IF res # 0 THEN |
| IF (res # 0) & (size <= MAX_SIZE) THEN |
| zeromem(ASR(size, 2) - 1, res) |
| END |
| RETURN res |