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

+ added function free_linear_addr_mapping to unit go32

Browse Source 
git-svn-id: trunk@25786 -
This commit is contained in:
nickysn 2013-10-14 19:15:18 +00:00
parent 8bad012e83
commit 59f441269e
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/go32v2/go32.pp
View File

@ -94,6 +94,7 @@ interface
function set_descriptor_access_right(d : word;w : word) : longint;
function create_code_segment_alias_descriptor(seg : word) : word;
function get_linear_addr(phys_addr : longint;size : longint) : longint;
function free_linear_addr_mapping(linear_addr: dword): boolean;
function get_segment_limit(d : word) : longint;
function get_descriptor_access_right(d : word) : longint;
function get_page_size:longint;
@ -1101,6 +1102,25 @@ interface
end;
end;
function free_linear_addr_mapping(linear_addr: dword): boolean;
begin
asm
pushl %ebx
pushl %ecx
movl linear_addr,%ebx
movl %ebx,%ecx
shrl $16,%ebx
movl $0x801,%eax
int $0x31
pushf
call test_int31
movb %al,__RESULT
popl %ecx
popl %ebx
end;
end;
procedure disable;assembler;
asm