| /programs/develop/oberon07/Source/REG.ob07 |
|---|
| 1,7 → 1,7 |
| (* |
| (* |
| BSD 2-Clause License |
| Copyright (c) 2018, 2019, Anton Krotov |
| Copyright (c) 2018-2019, Anton Krotov |
| All rights reserved. |
| *) |
| 293,10 → 293,8 |
| BEGIN |
| ASSERT(reg IN R.vregs); |
| ASSERT(offs # 0); |
| ASSERT(size IN {1, 2, 4, 8}); |
| R.offs[reg] := offs; |
| IF size = 0 THEN |
| size := 8 |
| END; |
| R.size[reg] := size |
| END Lock; |