paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 02:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FreeBSD ioperm fixes backported from 1.0

Browse Source
This commit is contained in:
marco 2005-02-05 10:44:01 +00:00
parent ab069b68a2
commit ba9a61a95e
1 changed files with 75 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
rtl/unix/x86.pp
View File

@ -303,6 +303,7 @@ begin
end ['ECX','EDI','EDX'];
end;
{$ifdef linux}
Function fpIOperm (From,Num : Cardinal; Value : cint) : cint;
{
Set permissions on NUM ports starting with port FROM to VALUE
@ -312,11 +313,81 @@ Function fpIOperm (From,Num : Cardinal; Value : cint) : cint;
begin
fpIOPerm:=do_Syscall(Syscall_nr_ioperm,TSysParam(From),TSysParam(Num),TSysParam(Value));
end;
{$else}
{$packrecords C}
TYPE uint=CARDINAL;
CONST
I386_GET_LDT =0;
I386_SET_LDT =1;
{ I386_IOPL }
I386_GET_IOPERM =3;
I386_SET_IOPERM =4;
{ xxxxx }
I386_VM86 =6;
type
{ i386_ldt_args = record
int start : longint;
union descriptor *descs;
int num;
end;
}
i386_ioperm_args = record
start : cuint;
length : cuint;
enable : cint;
end;
i386_vm86_args = record
sub_op : cint; { sub-operation to perform }
sub_args : pchar; { args }
end;
sysarch_args = record
op : longint;
parms : pchar;
end;
{
int i386_get_ldt __P((int, union descriptor *, int));
int i386_set_ldt __P((int, union descriptor *, int));
int i386_get_ioperm __P((unsigned int, unsigned int *, int *));
int i386_set_ioperm __P((unsigned int, unsigned int, int));
int i386_vm86 __P((int, void *));
int i386_set_watch __P((int watchnum, unsigned int watchaddr, int size,
int access, struct dbreg * d));
int i386_clr_watch __P((int watchnum, struct dbreg * d));
}
Function fpIOPerm(From,Num:CARDINAL;Value:cint):cint;
var sg : i386_ioperm_args;
sa : sysarch_args;
begin
sg.start:=From;
sg.length:=Num;
sg.enable:=value;
sa.op:=i386_SET_IOPERM;
sa.parms:=@sg;
fpIOPerm:=do_syscall(syscall_nr_sysarch,TSysParam(@sa));
end;
{$endif}
Function fpIoPL(Level : cint) : cint;
begin
{$ifdef Linux}
fpIOPL:=do_Syscall(Syscall_nr_iopl,TSysParam(Level));
{$endif}
end;
@ -324,7 +395,10 @@ end.
{
$Log$
Revision 1.4 2005-02-05 08:42:24 marco
Revision 1.5 2005-02-05 10:44:01 marco
* FreeBSD ioperm fixes backported from 1.0
Revision 1.4 2005/02/05 08:42:24 marco
* regvars problem fixed
Revision 1.3 2004/04/12 10:31:58 marco