| 233,7 → 233,14 |
|---|
| |
| |
| PROCEDURE CreateThread* (proc: INTEGER; stack: ARRAY OF INTEGER): INTEGER; |
| RETURN KOSAPI.sysfunc4(51, 1, proc, SYSTEM.ADR(stack[LEN(stack) - 2])) |
| VAR |
| tid: INTEGER; |
| BEGIN |
| tid := KOSAPI.sysfunc4(51, 1, proc, SYSTEM.ADR(stack[LEN(stack) - 2])); |
| IF tid = -1 THEN |
| tid := 0 |
| END |
| RETURN tid |
| END CreateThread; |
| |
| |
| 323,18 → 330,12 |
|---|
| END SetIPC; |
| |
| |
| PROCEDURE SendIPC* (tid, msg: INTEGER); |
| PROCEDURE SendIPC* (tid: INTEGER; msg: ARRAY OF INTEGER); |
| BEGIN |
| KOSAPI.sysfunc5(60, 2, tid, SYSTEM.ADR(msg), SYSTEM.SIZE(INTEGER)) |
| KOSAPI.sysfunc5(60, 2, tid, SYSTEM.ADR(msg[0]), SYSTEM.SIZE(INTEGER)*LEN(msg)) |
| END SendIPC; |
| |
| |
| PROCEDURE PutPixel* (x, y, color: INTEGER); |
| BEGIN |
| KOSAPI.sysfunc4(1, x, y, color) |
| END PutPixel; |
| |
| |
| PROCEDURE GetSystemColors*; |
| VAR |
| buf: ARRAY 10 OF INTEGER; |
| 384,4 → 385,10 |
|---|
| END mouse; |
| |
| |
| PROCEDURE SetCaption* (text: ARRAY OF CHAR); |
| BEGIN |
| KOSAPI.sysfunc4(71, 2, SYSTEM.ADR(text[0]), 0) |
| END SetCaption; |
| |
| |
| END KolibriOS. |