Subversion Repositories Kolibri OS

Rev

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

Rev 9060 Rev 9073
Line 44... Line 44...
44 
*)
 44 
*)
Line 45... Line 45...
45 
 
 45 
 
Line 46... Line 46...
46 
VAR
 46 
VAR
47 
 
 47 
 
48 
    _movInt: PmovInt;
 48 
    _movInt: PmovInt;
49 
    _movBool: PmovBool;
 49 
    _movBool, _movBool2: PmovBool;
50 
    _movPtr: PmovPtr;
 50 
    _movPtr: PmovPtr;
Line 51... Line 51...
51 
(*    _typedPtr: PTypedPtr;
 51 
(*    _typedPtr: PTypedPtr;
Line 64... Line 64...
64 
BEGIN
 64 
BEGIN
65 
    _movBool(v, x)
 65 
    _movBool(v, x)
66 
END movBool;
 66 
END movBool;
Line -... Line 67...
- 
 
 67 
 
- 
 
 68 
 
- 
 
 69 
PROCEDURE movBool2 (VAR v: BOOLEAN; x: BOOLEAN);
- 
 
 70 
BEGIN
- 
 
 71 
    _movBool2(v, x)
- 
 
 72 
END movBool2;
67 
 
 73 
 
68 
 
 74 
 
69 
PROCEDURE movPtr (VAR v: List.tItem; x: List.tItem);
 75 
PROCEDURE movPtr (VAR v: List.tItem; x: List.tItem);
70 
BEGIN
 76 
BEGIN
Line 172... Line 178...
172 
 
 178 
 
173 
 
 179 
 
174 
PROCEDURE save* (line: tLine);
 180 
PROCEDURE save* (line: tLine);
175 
BEGIN
 181 
BEGIN
176 
    IF ~line.temp THEN
 182 
    IF ~line.temp THEN
177 
        movBool(line.saved, TRUE);
 183 
        movBool2(line.saved, TRUE);
178 
        movBool(line.modified, FALSE)
 184 
        movBool2(line.modified, FALSE)
179 
    END;
 185 
    END;
180 
    line.modified := FALSE;
 186 
    line.modified := FALSE;
Line 414... Line 420...
414 
    END
 420 
    END
415 
    RETURN modified
 421 
    RETURN modified
416 
END chCase;
 422 
END chCase;
Line 417... Line 423...
417 
 
 423 
 
418 
 
 424 
 
419 
PROCEDURE init* (movInt: PmovInt; movPtr: PmovPtr; movBool: PmovBool(*; typedPtr: PTypedPtr; untypedPtr: PUntypedPtr*));
 425 
PROCEDURE init* (movInt: PmovInt; movPtr: PmovPtr; movBool, movBool2: PmovBool(*; typedPtr: PTypedPtr; untypedPtr: PUntypedPtr*));
420 
BEGIN
 426 
BEGIN
421 
    _movInt := movInt;
 427 
    _movInt := movInt;
- 
 
 428 
    _movPtr := movPtr;
422 
    _movPtr := movPtr;
 429 
    _movBool := movBool;
423 
    _movBool := movBool;
 430 
    _movBool2 := movBool2;
424 
(*    _typedPtr := typedPtr;
 431 
(*    _typedPtr := typedPtr;