paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 22:29:24 +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

17
rtl/unix/dos.pp
View File

@ -77,12 +77,14 @@ Type
{$i filerec.inc}
{$i textrec.inc}
{$ifdef i386}
Registers = packed record
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);
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);
End;
{$endif i386}
DateTime = packed record
Year,
@ -135,12 +137,15 @@ Function EnvStr(index: integer): string;
Function GetEnv (envvar: string): string;
{Do Nothing Functions, no Linux version}
{$ifdef i386}
Procedure Intr(intno: byte; var regs: registers);
Procedure MSDos(var regs: registers);
Procedure SwapVectors;
Procedure GetIntVec(intno: byte; var 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 SetFTime(var f; time: longint);
Procedure GetCBreak(var breakvalue: boolean);
@ -788,6 +793,7 @@ End;
--- Do Nothing Procedures/Functions ---
******************************************************************************}
{$ifdef i386}
Procedure Intr (intno: byte; var regs: registers);
Begin
{! No Linux equivalent !}
@ -827,7 +833,7 @@ Procedure keep(exitcode : word);
Begin
{! No Linux equivalent !}
End;
{$endif i386}
Procedure setftime(var f; time : longint);
@ -903,10 +909,13 @@ End.
{
$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
Revision 1.12 2002/09/07 16:01:27 peter
* old logs removed and tabs fixed
}
}