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

--- Merging r36481 into '.':

Browse Source 
U    rtl/go32v2/go32.pp
--- Recording mergeinfo for merge of r36481 into '.':
 U   .
--- Merging r36482 into '.':
G    rtl/go32v2/go32.pp
--- Recording mergeinfo for merge of r36482 into '.':
 G   .
--- Merging r36483 into '.':
G    rtl/go32v2/go32.pp
--- Recording mergeinfo for merge of r36483 into '.':
 G   .

# revisions: 36481,36482,36483

git-svn-id: branches/fixes_3_0@36500 -
This commit is contained in:
marco 2017-06-14 12:52:54 +00:00
parent 34489b2730
commit 3415e4f16e
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/go32v2/go32.pp
View File

@ -89,16 +89,16 @@ interface
function segment_to_descriptor(seg : word) : word;
function get_next_selector_increment_value : word;
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_segment_base_address(d : word;s : dword) : boolean;
function set_segment_limit(d : word;s : dword): boolean;
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 get_linear_addr(phys_addr : dword;size : longint) : dword;
function free_linear_addr_mapping(linear_addr: dword): boolean;
function get_segment_limit(d : word) : longint;
function get_segment_limit(d : word) : dword;
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 map_device_in_memory_block(handle,offset,pagecount,device:dword):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;
@ -969,7 +969,7 @@ interface
unlock_code:=unlock_linear_region(linearaddr,size);
end;
function set_segment_base_address(d : word;s : longint) : boolean;
function set_segment_base_address(d : word;s : dword) : boolean;
begin
asm
@ -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,12 +998,12 @@ interface
int $0x31
pushf
call test_int31
movw %ax,__RESULT
movb %al,__RESULT
popl %ebx
end;
end;
function set_segment_limit(d : word;s : longint) : boolean;
function set_segment_limit(d : word;s : dword) : boolean;
begin
asm
@ -1033,7 +1033,7 @@ interface
movl %eax,__RESULT
end;
end;
function get_segment_limit(d : word) : longint;
function get_segment_limit(d : word) : dword;
begin
asm
@ -1076,7 +1076,7 @@ interface
end;
end;
function get_linear_addr(phys_addr : longint;size : longint) : longint;
function get_linear_addr(phys_addr : dword;size : longint) : dword;
begin
asm
@ -1143,7 +1143,7 @@ interface
get_run_mode:=_run_mode;
end;
function map_device_in_memory_block(handle,offset,pagecount,device:longint):boolean;
function map_device_in_memory_block(handle,offset,pagecount,device:dword):boolean;
begin
asm
pushl %ebx