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

* changed the result of go32.get_segment_base_address to dword, instead of longint

Browse Source 
* changed FrameBufferLinearAddress in the go32v2 graph unit to dword, instead of longint

git-svn-id: trunk@37671 -
This commit is contained in:
nickysn 2017-12-04 15:59:04 +00:00
parent c08bdf3f85
commit 03d4b861ed
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/graph/src/go32v2/vesa.inc
View File

@ -72,7 +72,7 @@ var
{ linear mode specific stuff }
InLinear : boolean; { true if in linear mode }
LinearPageOfs : longint; { offset used to set active page }
FrameBufferLinearAddress : longint;
FrameBufferLinearAddress : dword;
ScanLines: word; { maximum number of scan lines for mode }

20
rtl/go32v2/go32.pp
View File

@ -88,7 +88,7 @@ interface
function free_ldt_descriptor(d : word) : boolean;
function segment_to_descriptor(seg : word) : word;
function get_next_selector_increment_value : word;
function get_segment_base_address(d : word) : longint;
function get_segment_base_address(d : word) : dword;
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;
@ -771,7 +771,7 @@ interface
end;
end;
function get_segment_base_address(d : word) : longint;
function get_segment_base_address(d : word) : dword;
begin
asm
@ -902,24 +902,24 @@ interface
function lock_data(var data;size : longint) : boolean;
var
linearaddr : longint;
linearaddr : dword;
begin
if get_run_mode<>rm_dpmi then
exit;
linearaddr:=longint(@data)+get_segment_base_address(get_ds);
linearaddr:=dword(@data)+get_segment_base_address(get_ds);
lock_data:=lock_linear_region(linearaddr,size);
end;
function lock_code(functionaddr : pointer;size : longint) : boolean;
var
linearaddr : longint;
linearaddr : dword;
begin
if get_run_mode<>rm_dpmi then
exit;
linearaddr:=longint(functionaddr)+get_segment_base_address(get_cs);
linearaddr:=dword(functionaddr)+get_segment_base_address(get_cs);
lock_code:=lock_linear_region(linearaddr,size);
end;
@ -950,22 +950,22 @@ interface
function unlock_data(var data;size : longint) : boolean;
var
linearaddr : longint;
linearaddr : dword;
begin
if get_run_mode<>rm_dpmi then
exit;
linearaddr:=longint(@data)+get_segment_base_address(get_ds);
linearaddr:=dword(@data)+get_segment_base_address(get_ds);
unlock_data:=unlock_linear_region(linearaddr,size);
end;
function unlock_code(functionaddr : pointer;size : longint) : boolean;
var
linearaddr : longint;
linearaddr : dword;
begin
if get_run_mode<>rm_dpmi then
exit;
linearaddr:=longint(functionaddr)+get_segment_base_address(get_cs);
linearaddr:=dword(functionaddr)+get_segment_base_address(get_cs);
unlock_code:=unlock_linear_region(linearaddr,size);
end;