paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* rtl/atari: naming: gemdos_free is actually gemdos_mfree. no functional change.

Browse Source
This commit is contained in:
Karoly Balogh 2022-02-04 11:43:49 +01:00
parent b56e1b0cd8
commit b30a1bf447
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/atari/gemdos.inc
View File

@ -152,7 +152,7 @@ function gemdos_fattrib(filename: pchar; wflag: smallint; attrib: smallint): sma
function gemdos_dgetpath(path: pchar; driveno: smallint): smallint; syscall 1 71; function gemdos_dgetpath(path: pchar; driveno: smallint): smallint; syscall 1 71;
function gemdos_malloc(number: dword): pointer; syscall 1 72; function gemdos_malloc(number: dword): pointer; syscall 1 72;
function gemdos_free(block: pointer): dword; syscall 1 73; function gemdos_mfree(block: pointer): dword; syscall 1 73;
function gemdos_mshrink(zero: word; block: pointer; newsiz: longint): longint; syscall 1 74; function gemdos_mshrink(zero: word; block: pointer; newsiz: longint): longint; syscall 1 74;
function gemdos_pexec(mode: word; name: pchar; cmdline: pchar; env: pchar): longint; syscall 1 75; function gemdos_pexec(mode: word; name: pchar; cmdline: pchar; env: pchar): longint; syscall 1 75;
procedure gemdos_pterm(returncode: smallint); syscall 1 76; procedure gemdos_pterm(returncode: smallint); syscall 1 76;

2
rtl/atari/sysheap.inc
View File

@ -27,5 +27,5 @@ end;
procedure SysOSFree(p: pointer; size: ptruint); procedure SysOSFree(p: pointer; size: ptruint);
begin begin
gemdos_free(p); gemdos_mfree(p);
end; end;