| 1,5 → 1,5 |
|---|
| (* |
| Copyright 2016 Anton Krotov |
| (* |
| Copyright 2016, 2017 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 |
| 28,6 → 28,7 |
|---|
| VAR |
| |
| SelfName, rtab: INTEGER; CloseProc: PROC; |
| init: BOOLEAN; |
| |
| PROCEDURE [stdcall] _halt*(n: INTEGER); |
| BEGIN |
| 116,14 → 117,6 |
|---|
| END |
| END _arrayrot; |
| |
| PROCEDURE Min(a, b: INTEGER): INTEGER; |
| BEGIN |
| IF a > b THEN |
| a := b |
| END |
| RETURN a |
| END Min; |
| |
| PROCEDURE [stdcall] _length*(s: ARRAY OF CHAR): INTEGER; |
| BEGIN |
| sys.CODE("8B4508"); // mov eax, [ebp + 08h] |
| 144,7 → 137,7 |
|---|
| |
| PROCEDURE [stdcall] _strcopy*(b, blen, a, alen: INTEGER); |
| BEGIN |
| _savearr(Min(alen, blen), a, b); |
| _savearr(MIN(alen, blen), a, b); |
| IF blen > alen THEN |
| sys.PUT(b + alen, 0X) |
| END |
| 153,7 → 146,7 |
|---|
| PROCEDURE [stdcall] _strcmp*(op: INTEGER; b, a: ARRAY OF CHAR): BOOLEAN; |
| VAR i: INTEGER; Res: BOOLEAN; |
| BEGIN |
| i := API.strncmp(sys.ADR(a), sys.ADR(b), Min(LEN(a), LEN(b))); |
| i := API.strncmp(sys.ADR(a), sys.ADR(b), MIN(LEN(a), LEN(b))); |
| IF i = 0 THEN |
| i := _length(a) - _length(b) |
| END; |
| 252,7 → 245,8 |
|---|
| Int(code, int); |
| StrAppend(int) |
| END; |
| API.DebugMsg(sys.ADR(msg), SelfName) |
| API.DebugMsg(sys.ADR(msg), SelfName); |
| API.ExitThread(0) |
| END _assrt; |
| |
| PROCEDURE [stdcall] _close*; |
| 264,11 → 258,14 |
|---|
| |
| PROCEDURE [stdcall] _init*(self, rec, gsize, gadr, esp: INTEGER); |
| BEGIN |
| IF ~init THEN |
| API.zeromem(gsize, gadr); |
| init := TRUE; |
| API.init(esp); |
| SelfName := self; |
| rtab := rec; |
| CloseProc := NIL; |
| CloseProc := NIL |
| END |
| END _init; |
| |
| PROCEDURE SetClose*(proc: PROC); |