- removed "packed" from record types that should/need not be packed

git-svn-id: trunk@19613 -
This commit is contained in:
Jonas Maebe 2011-11-08 23:13:16 +00:00
parent aefe5acd72
commit 715c819ff7
6 changed files with 20 additions and 19 deletions

View File

@ -76,7 +76,7 @@ const
type
{$PACKRECORDS c}
Pgpm_event=^Tgpm_event;
Tgpm_event=packed record
Tgpm_event=record
buttons : byte;
modifiers : byte;
vc : word;
@ -99,20 +99,20 @@ type
type
Pgpm_connect = ^TGpm_connect;
Tgpm_connect = packed record
Tgpm_connect = record
eventMask : word;
defaultMask : word;
minMod : word;
maxMod : word;
pid : longint;
vc : longint;
end;
end;
Pgpmconnect=Pgpm_connect;
Tgpmconnect=Tgpm_connect;
Pgpm_roi=^Tgpm_roi;
Tgpm_roi=packed record
Tgpm_roi= record
xmin,xmax:integer;
ymin,ymax:integer;
minmod,maxmod:word;

View File

@ -225,8 +225,8 @@ const
UD_LM = $80;
type
user_desc = packed record
entry_number : cint;
user_desc = record
entry_number : cuint;
base_addr : cuint;
limit : cuint;
flags : cuint;
@ -269,13 +269,14 @@ function epoll_ctl(epfd, op, fd: cint; event: pepoll_event): cint; {$ifdef FPC_U
function epoll_wait(epfd: cint; events: pepoll_event; maxevents, timeout: cint): cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'epoll_wait'; {$endif}
type Puser_cap_header=^user_cap_header;
user_cap_header=packed record
version,pid:cardinal;
user_cap_header=record
version: cuint32;
pid:cint;
end;
Puser_cap_data=^user_cap_data;
user_cap_data=packed record
effective,permitted,inheritable:cardinal;
user_cap_data=record
effective,permitted,inheritable:cuint32;
end;
{Get a capability.}

View File

@ -466,7 +466,7 @@ end;
type
tmmapargs = packed record
tmmapargs = record
address : TSysParam;
size : TSysParam;
prot : TSysParam;

View File

@ -90,7 +90,7 @@ type
{ directory services }
Dirent = packed record
Dirent = record
d_fileno : ino64_t; // file number of entry
d_off : off_t;
d_reclen : cushort; // length of string in d_name
@ -174,7 +174,7 @@ type
End;
{$endif}
tms = packed Record
tms = Record
tms_utime : clock_t; { User CPU time }
tms_stime : clock_t; { System CPU time }
tms_cutime : clock_t; { User CPU time of terminated child procs }
@ -186,7 +186,7 @@ type
TFDSet = ARRAY[0..(FD_MAXFDSET div BITSINWORD)-1] of cuLong;
pFDSet = ^TFDSet;
timezone = packed record
timezone = record
tz_minuteswest,tz_dsttime:cint;
end;
ptimezone =^timezone;

View File

@ -127,14 +127,14 @@ Type
TSockLen = socklen_t;
pSockLen = ^socklen_t;
timeval = packed record
timeval = record
tv_sec:time_t;
tv_usec:clong;
end;
ptimeval = ^timeval;
TTimeVal = timeval;
timespec = packed record
timespec = record
tv_sec : time_t;
tv_nsec : clong;
end;
@ -142,7 +142,7 @@ Type
TTimeSpec = timespec;
{$ifdef cpu64}
TStatfs = packed record
TStatfs = record
fstype, { File system type }
bsize : clong; { Optimal block trensfer size }
blocks, { Data blocks in system }
@ -156,7 +156,7 @@ Type
spare : array [0..4] of clong; { For later use }
end;
{$else}
TStatfs = packed record
TStatfs = record
fstype, { File system type }
bsize : cint; { Optimal block trensfer size }
blocks, { Data blocks in system }

View File

@ -1223,7 +1223,7 @@ Const
{$endif cpuarm}
Type
winsize = packed record
winsize = record
ws_row,
ws_col,
ws_xpixel,