paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 20:39:28 +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);
begin
asm
pushl %ebx
movw $0,INT31ERROR
movl flag,%ebx
testb $1,%bl
begin
asm
pushl %ebx
movw $0,INT31ERROR
movl flag,%ebx
testb $1,%bl
jz .Lti31_1
movw %ax,INT31ERROR
movw %ax,INT31ERROR
xorl %eax,%eax
jmp .Lti31_2
.Lti31_1:
movl $1,%eax
.Lti31_2:
popl %ebx
jmp .Lti31_2
.Lti31_1:
movl $1,%eax
.Lti31_2:
popl %ebx
end;
end;
end;
function global_dos_alloc(bytes : longint) : longint;
begin
@ -721,7 +721,7 @@ end ['EAX','EDX'];
var
___v2prt0_ds_alias : word; external name '___v2prt0_ds_alias';
function get_rm_callback(pm_func : pointer;const reg : trealregs;var rmcb : tseginfo) : boolean;
begin
asm
@ -1106,7 +1106,7 @@ end ['EAX','EDX'];
asm
movl device,%edx
movl handle,%esi
xorl %ebx,%ebx
movl offset,%ebx
movl pagecount,%ecx
movl $0x0508,%eax
int $0x31
@ -1171,7 +1171,10 @@ end.
{
$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
}