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

+ added functions get_page_attributes and set_page_attributes to unit go32

Browse Source 
git-svn-id: trunk@25785 -
This commit is contained in:
nickysn 2013-10-14 18:46:44 +00:00
parent 1b36781dd8
commit 8bad012e83
1 changed files with 56 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
rtl/go32v2/go32.pp
View File

@ -98,6 +98,8 @@ interface
function get_descriptor_access_right(d : word) : longint;
function get_page_size:longint;
function map_device_in_memory_block(handle,offset,pagecount,device:longint):boolean;
function get_page_attributes(handle, offset, pagecount: dword; buf: pointer): boolean;
function set_page_attributes(handle, offset, pagecount: dword; buf: pointer): boolean;
function realintr(intnr : word;var regs : trealregs) : boolean;
function get_dpmi_version(var version: tdpmiversioninfo): boolean;
@ -1143,6 +1145,60 @@ interface
end;
end;
function get_page_attributes(handle, offset, pagecount: dword; buf: pointer): boolean;
begin
asm
pushl %ebx
pushl %ecx
pushl %edx
pushl %esi
pushw %es
pushw %ds
popw %es
movl buf,%edx
movl handle,%esi
movl offset,%ebx
movl pagecount,%ecx
movl $0x0506,%eax
int $0x31
pushf
call test_int31
movb %al,__RESULT
popw %es
popl %esi
popl %edx
popl %ecx
popl %ebx
end;
end;
function set_page_attributes(handle, offset, pagecount: dword; buf: pointer): boolean;
begin
asm
pushl %ebx
pushl %ecx
pushl %edx
pushl %esi
pushw %es
pushw %ds
popw %es
movl buf,%edx
movl handle,%esi
movl offset,%ebx
movl pagecount,%ecx
movl $0x0507,%eax
int $0x31
pushf
call test_int31
movb %al,__RESULT
popw %es
popl %esi
popl %edx
popl %ecx
popl %ebx
end;
end;
function get_dpmi_version(var version: tdpmiversioninfo): boolean;
var
_version, _flags, _cpu, _pic: word;