diff options
author | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-10 15:16:13 +0000 |
---|---|---|
committer | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-10 15:16:13 +0000 |
commit | 3f7142b1ff245c4fd907d998e351c02de2d1fcda (patch) | |
tree | 95f04d0ce17f9052169f3c5cd612ca9b23856345 | |
parent | 8cdeefc785ce4f67d43b64193753fbf198dbbb20 (diff) | |
download | fpc-3f7142b1ff245c4fd907d998e351c02de2d1fcda.tar.gz |
qlunits: updated to match the latest RTL qdosfuncs.inc
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49170 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/qlunits/src/qdos.pas | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/packages/qlunits/src/qdos.pas b/packages/qlunits/src/qdos.pas index c2677c88cb..7bba75418e 100644 --- a/packages/qlunits/src/qdos.pas +++ b/packages/qlunits/src/qdos.pas @@ -84,6 +84,7 @@ type { the functions declared as external here are implemented in the system unit. They're included here via externals, do avoid double implementation of assembler wrappers (KB) } +procedure mt_frjob(jobID: Tjobid; exitCode: longint); external name '_mt_frjob'; function mt_inf(sys_vars: ppchar; ver_ascii: plongint): Tjobid; external name '_mt_inf'; procedure mt_dmode(s_mode: pword; d_type: pword); external name '_mt_dmode'; @@ -94,9 +95,18 @@ procedure mt_rechp(area: pointer); external name '_mt_rechp'; function io_open_qlstr(name_qlstr: pointer; mode: longint): Tchanid; external name '_io_open_qlstr'; function io_open(name: pchar; mode: longint): Tchanid; external name '_io_open'; function io_close(chan: Tchanid): longint; external name '_io_close'; +function io_delet(name: pchar): longint; external name '_io_delet'; +function io_fbyte(chan: Tchanid; timeout: Ttimeout): longint; external name '_io_fbyte'; +function io_fline(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: word): longint; external name '_io_fline'; +function io_fstrg(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: word): longint; external name '_io_fstrg'; function io_sbyte(chan: Tchanid; timeout: Ttimeout; c: char): longint; external name '_io_sbyte'; -function io_sstrg(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: smallint): smallint; external name '_io_sstrg'; +function io_sstrg(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: word): longint; external name '_io_sstrg'; + +function fs_posab(chan: Tchanid; var new_pos: longint): longint; external name '_fs_posab'; +function fs_posre(chan: Tchanid; var new_pos: longint): longint; external name '_fs_posre'; +function fs_headr(chan: Tchanid; buf: pointer; buf_size: word): longint; external name '_fs_headr'; +function fs_truncate(chan: Tchanid): longint; external name '_fs_truncate'; function sd_wdef(chan: Tchanid; timeout: Ttimeout; border_colour: byte; border_width: word; window: PQLRect): longint; external name '_sd_wdef'; function sd_clear(chan: Tchanid; timeout: Ttimeout): longint; external name '_sd_clear'; @@ -104,6 +114,7 @@ function sd_clear(chan: Tchanid; timeout: Ttimeout): longint; external name '_sd function ut_con(params: PWindowDef): Tchanid; external name '_ut_con'; function ut_scr(params: PWindowDef): Tchanid; external name '_ut_scr'; +function mt_rclck: longint; external name '_mt_rclck'; procedure sd_point(chan: Tchanid; timeout: Ttimeout; x: Pqlfloat; y: Pqlfloat); procedure sd_point(chan: Tchanid; timeout: Ttimeout; x: double; y: double); |