Inicio Explorar Axuda
Iniciar sesión
pascal
/
fpc
réplica de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Ficheiros Incidencias 0 Wiki
Explorar o código

amunits/arosunits: ed_Type field in TExAllData should actually be signed

git-svn-id: trunk@30093 -
Károly Balogh %!s(int64=10) %!d(string=hai) anos
pai
2ead4634e6
achega
73018b39a7
Modificáronse 2 ficheiros con 2 adicións e 2 borrados
Unificar vista Mostrar estatísticas de Diff
  1. 1 1
      packages/amunits/src/coreunits/amigados.pas
  2. 1 1
      packages/arosunits/src/amigados.pas

+ 1 - 1
packages/amunits/src/coreunits/amigados.pas
Ver ficheiro 

@@ -1069,7 +1069,7 @@ Type
 
        tExAllData = record
 
        tExAllData = record
 
         ed_Next     : pExAllData;
 
         ed_Next     : pExAllData;
 
         ed_Name     : STRPTR;
 
         ed_Name     : STRPTR;
 
-        ed_Type,
 
+        ed_Type     : LongInt;
 
         ed_Size,
 
         ed_Size,
 
         ed_Prot,
 
         ed_Prot,
 
         ed_Days,
 
         ed_Days,

+ 1 - 1
packages/arosunits/src/amigados.pas
Ver ficheiro 

@@ -1022,7 +1022,7 @@ type
 
   TExAllData = record
 
   TExAllData = record
 
     ed_Next: PExAllData;
 
     ed_Next: PExAllData;
 
     ed_Name: PChar;        // Name of the file
 
     ed_Name: PChar;        // Name of the file
 
-    ed_Type,               // Type of File
 
+    ed_Type: LongInt;      // Type of File
 
     ed_Size,               // Size of File
 
     ed_Size,               // Size of File
 
     ed_Prot,               // Protection Bits
 
     ed_Prot,               // Protection Bits
 
 { The following three fields are de facto an embedded datestamp
 
 { The following three fields are de facto an embedded datestamp