paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 20:20:16 +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 tdpmiversioninfo = record
major, minor: byte; major, minor: byte;
flags: word; flags: word;
cpu: byte; cpu: byte;
master_pic, slave_pic: byte; master_pic, slave_pic: byte;
end; end;
{ this works only with real DPMI } { this works only with real DPMI }
@ -1116,7 +1116,7 @@ interface
pushf pushf
call test_int31 call test_int31
movb %al,__RESULT movb %al,__RESULT
popl %ecx popl %ecx
popl %ebx popl %ebx
end; end;
end; end;
@ -1172,8 +1172,8 @@ interface
pushl %edx pushl %edx
pushl %esi pushl %esi
pushw %es pushw %es
pushw %ds pushw %ds
popw %es popw %es
movl buf,%edx movl buf,%edx
movl handle,%esi movl handle,%esi
movl offset,%ebx movl offset,%ebx
@ -1183,12 +1183,12 @@ interface
pushf pushf
call test_int31 call test_int31
movb %al,__RESULT movb %al,__RESULT
popw %es popw %es
popl %esi popl %esi
popl %edx popl %edx
popl %ecx popl %ecx
popl %ebx popl %ebx
end; end;
end; end;
function set_page_attributes(handle, offset, pagecount: dword; buf: pointer): boolean; function set_page_attributes(handle, offset, pagecount: dword; buf: pointer): boolean;
@ -1199,8 +1199,8 @@ interface
pushl %edx pushl %edx
pushl %esi pushl %esi
pushw %es pushw %es
pushw %ds pushw %ds
popw %es popw %es
movl buf,%edx movl buf,%edx
movl handle,%esi movl handle,%esi
movl offset,%ebx movl offset,%ebx
@ -1210,12 +1210,12 @@ interface
pushf pushf
call test_int31 call test_int31
movb %al,__RESULT movb %al,__RESULT
popw %es popw %es
popl %esi popl %esi
popl %edx popl %edx
popl %ecx popl %ecx
popl %ebx popl %ebx
end; end;
end; end;
function get_dpmi_version(var version: tdpmiversioninfo): boolean; function get_dpmi_version(var version: tdpmiversioninfo): boolean;
@ -1226,24 +1226,24 @@ interface
movl $0x0400,%eax movl $0x0400,%eax
int $0x31 int $0x31
pushf pushf
movw %ax,_version movw %ax,_version
movw %bx,_flags movw %bx,_flags
movw %cx,_cpu movw %cx,_cpu
movw %dx,_pic movw %dx,_pic
call test_int31 call test_int31
movb %al,__RESULT movb %al,__RESULT
end ['EAX','EBX','ECX','EDX']; end ['EAX','EBX','ECX','EDX'];
if get_dpmi_version then if get_dpmi_version then
begin begin
FillChar(version, SizeOf(version), 0); FillChar(version, SizeOf(version), 0);
version.major := _version shr 8; version.major := _version shr 8;
version.minor := _version and $ff; version.minor := _version and $ff;
version.flags := _flags; version.flags := _flags;
version.cpu := _cpu and $ff; version.cpu := _cpu and $ff;
version.master_pic := _pic shr 8; version.master_pic := _pic shr 8;
version.slave_pic := _pic and $ff; version.slave_pic := _pic and $ff;
end; end;
end; end;
{***************************************************************************** {*****************************************************************************