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

* compiles under fpc v0995, don't modify now now! :)

Browse Source
This commit is contained in:
carl 1998-07-07 12:25:20 +00:00
parent 911abb5abc
commit 0af81ffc6b
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/dos/go32.pp
View File

@ -216,7 +216,7 @@ var
implementation implementation
{$ASMMODE ATT} {$I386_ATT}
{$ifndef go32v2} {$ifndef go32v2}
@ -484,7 +484,7 @@ implementation
end; end;
end; end;
{$ASMMODE DIRECT} {$I386_DIRECT}
procedure test_int31(flag : longint);[alias : 'test_int31']; procedure test_int31(flag : longint);[alias : 'test_int31'];
begin begin
asm asm
@ -502,7 +502,7 @@ implementation
popl %ebx popl %ebx
end; end;
end; end;
{$ASMMODE ATT} {$I386_ATT}
function set_pm_interrupt(vector : byte;const intaddr : tseginfo) : boolean; function set_pm_interrupt(vector : byte;const intaddr : tseginfo) : boolean;
@ -651,7 +651,7 @@ implementation
because the exception processor sets the ds limit to $fff because the exception processor sets the ds limit to $fff
at hardware exceptions } at hardware exceptions }
{$ASMMODE DIRECT} {$I386_DIRECT}
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
@ -680,7 +680,7 @@ implementation
movw %cx,4(%eax) movw %cx,4(%eax)
end; end;
end; end;
{$ASMMODE ATT} {$I386_ATT}
function allocate_ldt_descriptors(count : word) : word; function allocate_ldt_descriptors(count : word) : word;
@ -1026,7 +1026,7 @@ implementation
sti sti
end; end;
{$ASMMODE DIRECT} {$I386_DIRECT}
function get_run_mode : word; function get_run_mode : word;
begin begin
asm asm
@ -1034,7 +1034,7 @@ implementation
movw %ax,__RESULT movw %ax,__RESULT
end ['EAX']; end ['EAX'];
end; end;
{$ASMMODE ATT} {$I386_ATT}
function map_device_in_memory_block(handle,offset,pagecount,device:longint):boolean; function map_device_in_memory_block(handle,offset,pagecount,device:longint):boolean;
begin begin
@ -1052,7 +1052,7 @@ implementation
end; end;
end; end;
{$ASMMODE DIRECT} {$I386_DIRECT}
function get_core_selector : word; function get_core_selector : word;
begin begin
@ -1061,7 +1061,7 @@ implementation
movw %ax,__RESULT movw %ax,__RESULT
end; end;
end; end;
{$ASMMODE ATT} {$I386_ATT}
function transfer_buffer : longint; function transfer_buffer : longint;
@ -1220,7 +1220,10 @@ end.
{ {
$Log$ $Log$
Revision 1.6 1998-07-04 10:04:41 peter Revision 1.7 1998-07-07 12:25:20 carl
* compiles under fpc v0995, don't modify now now! :)
Revision 1.6 1998/07/04 10:04:41 peter
+ ifdef has_property for 0.99.5 backward support + ifdef has_property for 0.99.5 backward support
Revision 1.5 1998/05/31 14:16:49 peter Revision 1.5 1998/05/31 14:16:49 peter