From 715c819ff723ad7095246e60c33d9e7f1ed531c2 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Tue, 8 Nov 2011 23:13:16 +0000 Subject: [PATCH] - removed "packed" from record types that should/need not be packed git-svn-id: trunk@19613 - --- rtl/linux/gpm.pp | 8 ++++---- rtl/linux/linux.pp | 13 +++++++------ rtl/linux/ossysc.inc | 2 +- rtl/linux/ostypes.inc | 6 +++--- rtl/linux/ptypes.inc | 8 ++++---- rtl/linux/termios.inc | 2 +- 6 files changed, 20 insertions(+), 19 deletions(-) diff --git a/rtl/linux/gpm.pp b/rtl/linux/gpm.pp index 511ea798f6..0de0063c1e 100644 --- a/rtl/linux/gpm.pp +++ b/rtl/linux/gpm.pp @@ -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; diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp index 8e6865c041..099471e94f 100644 --- a/rtl/linux/linux.pp +++ b/rtl/linux/linux.pp @@ -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.} diff --git a/rtl/linux/ossysc.inc b/rtl/linux/ossysc.inc index f5cb470e27..c3a6de8581 100644 --- a/rtl/linux/ossysc.inc +++ b/rtl/linux/ossysc.inc @@ -466,7 +466,7 @@ end; type - tmmapargs = packed record + tmmapargs = record address : TSysParam; size : TSysParam; prot : TSysParam; diff --git a/rtl/linux/ostypes.inc b/rtl/linux/ostypes.inc index ed8998200d..a510e286c3 100644 --- a/rtl/linux/ostypes.inc +++ b/rtl/linux/ostypes.inc @@ -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; diff --git a/rtl/linux/ptypes.inc b/rtl/linux/ptypes.inc index 6798dc9172..a4c97707d6 100644 --- a/rtl/linux/ptypes.inc +++ b/rtl/linux/ptypes.inc @@ -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 } diff --git a/rtl/linux/termios.inc b/rtl/linux/termios.inc index f0930374ac..24f42df2aa 100644 --- a/rtl/linux/termios.inc +++ b/rtl/linux/termios.inc @@ -1223,7 +1223,7 @@ Const {$endif cpuarm} Type - winsize = packed record + winsize = record ws_row, ws_col, ws_xpixel,