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

tosunits: variable basepage needs to be visible by applications

Browse Source
This commit is contained in:
Thorsten Otto 2022-02-05 13:13:48 +01:00 committed by Charlie Balogh
parent d3c87f9c58
commit 904c59fbff
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/tosunits/src/tos.pas
View File

@ -18,13 +18,14 @@
}
{$MODE FPC}
{$MODESWITCH OUT+}
{$LONGSTRINGS OFF} { this unit always uses shortstrings }
{$PACKRECORDS 2}
unit tos;
interface
uses gemdos, xbios, bios;
uses gemdos, xbios, bios, metados;
const
FO_READ = 0;
@ -85,7 +86,13 @@ type
d_fname : String[12];
end;
LongIntFunc = Function: LongInt;
LongIntFunc = xbios.TLongIntFunc;
METAINFO = metados.TMETAINFO;
{ TOS program need this exported }
var
basepage: PPD; external name '__base';
(* ++++++++++++++++++++++++++++++++++++++++ *)
(* BIOS *)
@ -343,7 +350,7 @@ function Dclosedir(dir: LongInt): LongInt; syscall 1 299;
function Fxattr(flag: smallint; const name: String; var buf: TXATTR): LongInt;
function Flink(const oldname: String; const newname: String): LongInt;
function Fsymlink(const oldname: String; const newname: String): LongInt;
function Freadlink(size: smallint; var buf: String; const name: String): LongInt;
function Freadlink(size: smallint; out buf: String; const name: String): LongInt;
function Dcntl(cmd: smallint; const name: String; arg: LongInt): LongInt;
function Fchown(const name: String; uid, gid: smallint): LongInt;
function Fchmod(const name: String; mode: smallint): LongInt;
@ -536,7 +543,7 @@ begin
fsymlink := gemdos_fsymlink(s1, s2);
end;
function Freadlink(size: smallint; var buf: String; const name: String): LongInt;
function Freadlink(size: smallint; out buf: String; const name: String): LongInt;
var s1: array[0..255] of char;
s2: array[0..255] of char;
begin