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

* fixed compilation on 64 bit cpus

Browse Source 
git-svn-id: trunk@8333 -
This commit is contained in:
Jonas Maebe 2007-08-29 14:31:17 +00:00
parent a57f9e0672
commit cce61fa602
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/linux/linux.pp
View File

@ -39,7 +39,10 @@ type
totalhigh: culong; //* Total high memory size */ totalhigh: culong; //* Total high memory size */
freehigh: culong; //* Available high memory size */ freehigh: culong; //* Available high memory size */
mem_unit: cuint; //* Memory unit size in bytes */ mem_unit: cuint; //* Memory unit size in bytes */
{$ifndef cpu64}
{ the upper bound of the array below is negative for 64 bit cpus }
_f: array[0..19-2*sizeof(clong)-sizeof(cint)] of cChar; //* Padding: libc5 uses this.. */ _f: array[0..19-2*sizeof(clong)-sizeof(cint)] of cChar; //* Padding: libc5 uses this.. */
{$endif cpu64}
end; end;
PSysInfo = ^TSysInfo; PSysInfo = ^TSysInfo;