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

* changed the result of go32.set_descriptor_access_right from longint to boolean

Browse Source 
git-svn-id: trunk@36481 -
This commit is contained in:
nickysn 2017-06-10 23:10:20 +00:00
parent 40fb45aef6
commit a1e549e242
1 changed files with 3 additions and 3 deletions

6
rtl/go32v2/go32.pp
View File

@ -91,7 +91,7 @@ interface
function get_segment_base_address(d : word) : longint;
function set_segment_base_address(d : word;s : longint) : boolean;
function set_segment_limit(d : word;s : longint) : boolean;
function set_descriptor_access_right(d : word;w : word) : longint;
function set_descriptor_access_right(d : word;w : word) : boolean;
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;
@ -987,7 +987,7 @@ interface
end;
end;
function set_descriptor_access_right(d : word;w : word) : longint;
function set_descriptor_access_right(d : word;w : word) : boolean;
begin
asm
@ -998,7 +998,7 @@ interface
int $0x31
pushf
call test_int31
movw %ax,__RESULT
movb %ax,__RESULT
popl %ebx
end;
end;