paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/go32v2/go32.pp
View File

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