| 34,14 → 34,6 |
|---|
| sys.CODE("578B7D0C8B4D0833C09CFCF3AB9D5F") |
| END zeromem; |
| |
| PROCEDURE mem_commit*(adr, size: INTEGER); |
| VAR tmp: INTEGER; |
| BEGIN |
| FOR tmp := adr TO adr + size - 1 BY 4096 DO |
| sys.PUT(tmp, 0) |
| END |
| END mem_commit; |
| |
| PROCEDURE strncmp*(a, b, n: INTEGER): INTEGER; |
| VAR A, B: CHAR; Res: INTEGER; |
| BEGIN |
| 105,26 → 97,20 |
|---|
| sys.PUT(res, size); |
| INC(res, 4) |
| ELSE |
| temp := 0; |
| IF heap + size >= endheap THEN |
| IF sysfunc2(18, 16) > ASR(HEAP_SIZE, 10) THEN |
| temp := sysfunc3(68, 12, HEAP_SIZE) |
| ELSE |
| temp := 0 |
| END; |
| IF temp # 0 THEN |
| mem_commit(temp, HEAP_SIZE); |
| heap := temp; |
| heap := sysfunc3(68, 12, HEAP_SIZE); |
| endheap := heap + HEAP_SIZE |
| ELSE |
| temp := -1 |
| heap := 0 |
| END |
| END; |
| IF (heap # 0) & (temp # -1) THEN |
| IF heap # 0 THEN |
| sys.PUT(heap, size); |
| res := heap + 4; |
| heap := heap + size |
| ELSE |
| endheap := 0; |
| res := 0 |
| END |
| END |
| 131,11 → 117,8 |
|---|
| ELSE |
| IF sysfunc2(18, 16) > ASR(size, 10) THEN |
| res := sysfunc3(68, 12, size); |
| IF res # 0 THEN |
| mem_commit(res, size); |
| sys.PUT(res, size); |
| INC(res, 4) |
| END |
| ELSE |
| res := 0 |
| END |