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

* convert tabs to spaces in the go32 unit

Browse Source 
git-svn-id: trunk@38733 -
This commit is contained in:
nickysn 2018-04-11 12:33:36 +00:00
parent 42ebdbe277
commit c7e5b3f197
1 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
rtl/go32v2/go32.pp
View File

@ -78,9 +78,9 @@ interface
tdpmiversioninfo = record
major, minor: byte;
flags: word;
cpu: byte;
master_pic, slave_pic: byte;
flags: word;
cpu: byte;
master_pic, slave_pic: byte;
end;
{ this works only with real DPMI }
@ -1116,7 +1116,7 @@ interface
pushf
call test_int31
movb %al,__RESULT
popl %ecx
popl %ecx
popl %ebx
end;
end;
@ -1172,8 +1172,8 @@ interface
pushl %edx
pushl %esi
pushw %es
pushw %ds
popw %es
pushw %ds
popw %es
movl buf,%edx
movl handle,%esi
movl offset,%ebx
@ -1183,12 +1183,12 @@ interface
pushf
call test_int31
movb %al,__RESULT
popw %es
popw %es
popl %esi
popl %edx
popl %ecx
popl %ebx
end;
end;
end;
function set_page_attributes(handle, offset, pagecount: dword; buf: pointer): boolean;
@ -1199,8 +1199,8 @@ interface
pushl %edx
pushl %esi
pushw %es
pushw %ds
popw %es
pushw %ds
popw %es
movl buf,%edx
movl handle,%esi
movl offset,%ebx
@ -1210,12 +1210,12 @@ interface
pushf
call test_int31
movb %al,__RESULT
popw %es
popw %es
popl %esi
popl %edx
popl %ecx
popl %ebx
end;
end;
end;
function get_dpmi_version(var version: tdpmiversioninfo): boolean;
@ -1226,24 +1226,24 @@ interface
movl $0x0400,%eax
int $0x31
pushf
movw %ax,_version
movw %bx,_flags
movw %cx,_cpu
movw %dx,_pic
movw %ax,_version
movw %bx,_flags
movw %cx,_cpu
movw %dx,_pic
call test_int31
movb %al,__RESULT
end ['EAX','EBX','ECX','EDX'];
end ['EAX','EBX','ECX','EDX'];
if get_dpmi_version then
begin
FillChar(version, SizeOf(version), 0);
version.major := _version shr 8;
version.minor := _version and $ff;
version.flags := _flags;
version.cpu := _cpu and $ff;
version.master_pic := _pic shr 8;
version.slave_pic := _pic and $ff;
end;
if get_dpmi_version then
begin
FillChar(version, SizeOf(version), 0);
version.major := _version shr 8;
version.minor := _version and $ff;
version.flags := _flags;
version.cpu := _cpu and $ff;
version.master_pic := _pic shr 8;
version.slave_pic := _pic and $ff;
end;
end;
{*****************************************************************************