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

* ifdef'd code which i386 specific

Browse Source
This commit is contained in:
florian 2003-05-14 13:51:03 +00:00
parent 1a7f159fad
commit 18ed72101a
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/unix/dos.pp
View File

@ -77,12 +77,14 @@ Type
{$i filerec.inc} {$i filerec.inc}
{$i textrec.inc} {$i textrec.inc}
{$ifdef i386}
Registers = packed record Registers = packed record
case i : integer of case i : integer of
0 : (ax,f1,bx,f2,cx,f3,dx,f4,bp,f5,si,f51,di,f6,ds,f7,es,f8,flags,fs,gs : word); 0 : (ax,f1,bx,f2,cx,f3,dx,f4,bp,f5,si,f51,di,f6,ds,f7,es,f8,flags,fs,gs : word);
1 : (al,ah,f9,f10,bl,bh,f11,f12,cl,ch,f13,f14,dl,dh : byte); 1 : (al,ah,f9,f10,bl,bh,f11,f12,cl,ch,f13,f14,dl,dh : byte);
2 : (eax, ebx, ecx, edx, ebp, esi, edi : longint); 2 : (eax, ebx, ecx, edx, ebp, esi, edi : longint);
End; End;
{$endif i386}
DateTime = packed record DateTime = packed record
Year, Year,
@ -135,12 +137,15 @@ Function EnvStr(index: integer): string;
Function GetEnv (envvar: string): string; Function GetEnv (envvar: string): string;
{Do Nothing Functions, no Linux version} {Do Nothing Functions, no Linux version}
{$ifdef i386}
Procedure Intr(intno: byte; var regs: registers); Procedure Intr(intno: byte; var regs: registers);
Procedure MSDos(var regs: registers); Procedure MSDos(var regs: registers);
Procedure SwapVectors; Procedure SwapVectors;
Procedure GetIntVec(intno: byte; var vector: pointer); Procedure GetIntVec(intno: byte; var vector: pointer);
Procedure SetIntVec(intno: byte; vector: pointer); Procedure SetIntVec(intno: byte; vector: pointer);
Procedure Keep(exitcode: word); Procedure Keep(exitcode: Word);
{$endif i386}
Procedure SetFAttr(var f; attr: word); Procedure SetFAttr(var f; attr: word);
Procedure SetFTime(var f; time: longint); Procedure SetFTime(var f; time: longint);
Procedure GetCBreak(var breakvalue: boolean); Procedure GetCBreak(var breakvalue: boolean);
@ -788,6 +793,7 @@ End;
--- Do Nothing Procedures/Functions --- --- Do Nothing Procedures/Functions ---
******************************************************************************} ******************************************************************************}
{$ifdef i386}
Procedure Intr (intno: byte; var regs: registers); Procedure Intr (intno: byte; var regs: registers);
Begin Begin
{! No Linux equivalent !} {! No Linux equivalent !}
@ -827,7 +833,7 @@ Procedure keep(exitcode : word);
Begin Begin
{! No Linux equivalent !} {! No Linux equivalent !}
End; End;
{$endif i386}
Procedure setftime(var f; time : longint); Procedure setftime(var f; time : longint);
@ -903,7 +909,10 @@ End.
{ {
$Log$ $Log$
Revision 1.13 2002-12-08 16:05:34 peter Revision 1.14 2003-05-14 13:51:03 florian
* ifdef'd code which i386 specific
Revision 1.13 2002/12/08 16:05:34 peter
* small error code fixes so tdos2 passes * small error code fixes so tdos2 passes
Revision 1.12 2002/09/07 16:01:27 peter Revision 1.12 2002/09/07 16:01:27 peter