paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 09:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* unix thandle is always 32bit

Browse Source 
* textrec fixed for 64bit
This commit is contained in:
peter 2004-05-18 20:16:23 +00:00
parent 31c622e01d
commit 1ca09822a6
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/textrec.inc
View File

@ -28,7 +28,7 @@ type
TextBuf = array[0..TextRecBufSize-1] of char;
TextRec = Packed Record
Handle : THandle;
Mode,
Mode : longint;
bufsize,
_private,
bufpos,
@ -45,7 +45,11 @@ type
{
$Log$
Revision 1.5 2004-02-05 01:16:12 florian
Revision 1.6 2004-05-18 20:16:23 peter
* unix thandle is always 32bit
* textrec fixed for 64bit
Revision 1.5 2004/02/05 01:16:12 florian
+ completed x86-64/linux system unit
Revision 1.4 2003/11/03 09:42:28 marco

11
rtl/unix/sysunixh.inc
View File

@ -29,11 +29,8 @@ const
{Platform specific information}
type
{$ifdef CPU64}
THandle = Int64;
{$else CPU64}
{ fd are int in C also for 64bit targets (x86_64) }
THandle = Longint;
{$endif CPU64}
const
LineEnding = #10;
@ -62,7 +59,11 @@ var
{
$Log$
Revision 1.18 2003-10-17 20:49:02 olle
Revision 1.19 2004-05-18 20:16:23 peter
* unix thandle is always 32bit
* textrec fixed for 64bit
Revision 1.18 2003/10/17 20:49:02 olle
* Changed m68k to cpum68k
Revision 1.17 2003/10/16 15:43:13 peter