Преглед изворни кода

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

git-svn-id: trunk@19613 -
Jonas Maebe пре 13 година
родитељ
комит
715c819ff7
6 измењених фајлова са 20 додато и 19 уклоњено
  1. 4 4
      rtl/linux/gpm.pp
  2. 7 6
      rtl/linux/linux.pp
  3. 1 1
      rtl/linux/ossysc.inc
  4. 3 3
      rtl/linux/ostypes.inc
  5. 4 4
      rtl/linux/ptypes.inc
  6. 1 1
      rtl/linux/termios.inc

+ 4 - 4
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;

+ 7 - 6
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.}

+ 1 - 1
rtl/linux/ossysc.inc

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

+ 3 - 3
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;

+ 4 - 4
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 }

+ 1 - 1
rtl/linux/termios.inc

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