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

* fixed map_device_in_memory (from bug report)

Browse Source
This commit is contained in:
peter 2000-12-30 22:42:30 +00:00
parent 9cbac389d3
commit eefd0bc765
1 changed files with 21 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
rtl/go32v2/go32.pp
View File

@ -251,23 +251,23 @@ var
procedure test_int31(flag : longint); procedure test_int31(flag : longint);
begin begin
asm asm
pushl %ebx pushl %ebx
movw $0,INT31ERROR movw $0,INT31ERROR
movl flag,%ebx movl flag,%ebx
testb $1,%bl testb $1,%bl
jz .Lti31_1 jz .Lti31_1
movw %ax,INT31ERROR movw %ax,INT31ERROR
xorl %eax,%eax xorl %eax,%eax
jmp .Lti31_2 jmp .Lti31_2
.Lti31_1: .Lti31_1:
movl $1,%eax movl $1,%eax
.Lti31_2: .Lti31_2:
popl %ebx popl %ebx
end; end;
end; end;
function global_dos_alloc(bytes : longint) : longint; function global_dos_alloc(bytes : longint) : longint;
begin begin
@ -721,7 +721,7 @@ end ['EAX','EDX'];
var var
___v2prt0_ds_alias : word; external name '___v2prt0_ds_alias'; ___v2prt0_ds_alias : word; external name '___v2prt0_ds_alias';
function get_rm_callback(pm_func : pointer;const reg : trealregs;var rmcb : tseginfo) : boolean; function get_rm_callback(pm_func : pointer;const reg : trealregs;var rmcb : tseginfo) : boolean;
begin begin
asm asm
@ -1106,7 +1106,7 @@ end ['EAX','EDX'];
asm asm
movl device,%edx movl device,%edx
movl handle,%esi movl handle,%esi
xorl %ebx,%ebx movl offset,%ebx
movl pagecount,%ecx movl pagecount,%ecx
movl $0x0508,%eax movl $0x0508,%eax
int $0x31 int $0x31
@ -1171,7 +1171,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:40 michael Revision 1.3 2000-12-30 22:42:30 peter
* fixed map_device_in_memory (from bug report)
Revision 1.2 2000/07/13 11:33:40 michael
+ removed logs + removed logs
} }