paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

human68k: pre-fetch the version number of the OS during startup. and store it for easy access

Browse Source
This commit is contained in:
Karoly Balogh 2023-12-06 04:30:20 +01:00
parent 34519c67a1
commit 8ceeb8d165
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/human68k/h68kdos.inc
View File

@ -109,6 +109,7 @@ procedure h68kdos_exit; noreturn; syscall $ff00;
function h68kdos_chgdrv(newdrv: word): longint; syscall $ff0e;
function h68kdos_curdrv: longint; syscall $ff17;
function h68kdos_gettim2: longint; syscall $ff27;
function h68kdos_vernum: longint; syscall $ff30;
function h68kdos_mkdir(name: pchar): longint; syscall $ff39;
function h68kdos_rmdir(name: pchar): longint; syscall $ff3a;
function h68kdos_chdir(name: pchar): longint; syscall $ff3b;

3
rtl/human68k/system.pp
View File

@ -63,6 +63,7 @@ var
argv: PPChar;
envp: PPChar;
human68k_vernum: word;
{$if defined(FPUSOFT)}
@ -282,6 +283,8 @@ end;
begin
human68k_vernum:=word(h68kdos_vernum);
StackLength := CheckInitialStkLen (InitialStkLen);
{ Initialize ExitProc }
ExitProc:=Nil;