Subversion Repositories Kolibri OS

Rev

Rev 7693 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7693 Rev 7696
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, 2019, Anton Krotov
 4 
    Copyright (c) 2018-2019, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 291... Line 291...
291 
 
 291 
 
292 
PROCEDURE Lock* (VAR R: REGS; reg, offs, size: INTEGER);
 292 
PROCEDURE Lock* (VAR R: REGS; reg, offs, size: INTEGER);
293 
BEGIN
 293 
BEGIN
294 
    ASSERT(reg IN R.vregs);
 294 
    ASSERT(reg IN R.vregs);
- 
 
 295 
    ASSERT(offs # 0);
295 
    ASSERT(offs # 0);
 296 
    ASSERT(size IN {1, 2, 4, 8});
296 
    R.offs[reg] := offs;
 - 
 
297 
    IF size = 0 THEN
 - 
 
298 
        size := 8
 - 
 
299 
    END;
 297 
    R.offs[reg] := offs;
300 
    R.size[reg] := size
 298 
    R.size[reg] := size
Line 301... Line 299...
301 
END Lock;
 299 
END Lock;