Browse Source

removed types already in system unit

peter 21 years ago
parent
commit
7aeee5a7e6
1 changed files with 4 additions and 37 deletions
  1. 4 37
      fv/fvcommon.pas

+ 4 - 37
fv/fvcommon.pas

@@ -139,42 +139,6 @@ TYPE
    Sw_Integer = LongInt;                              { Long integer now }
 {$ENDIF}
 
-{---------------------------------------------------------------------------}
-{                           FILE HANDLE SIZE                                }
-{---------------------------------------------------------------------------}
-TYPE
-{$IFDEF OS_DOS}                                       { DOS DEFINITION }
-   THandle = Integer;                                 { Handles are 16 bits }
-{$ENDIF}
-{$IFDEF OS_ATARI}                                     { ATARI DEFINITION }
-   THandle = Integer;                                 { Handles are 16 bits }
-{$ENDIF}
-{$IFDEF OS_UNIX}                                     { LINUX DEFINITIONS }
- { values are words, though the OS calls return 32-bit values }
- { to check (CEC)                                             }
-  THandle = LongInt;                                  { Simulated 32 bits }
-{$ENDIF}
-{$IFDEF OS_AMIGA}                                     { AMIGA DEFINITIONS }
-  THandle = LongInt;                                  { Handles are 32 bits }
-{$ENDIF}
-{$IFDEF OS_WINDOWS}                                   { WIN/NT DEFINITIONS }
-  THandle = Windows.THandle;                          { Can be either }
-{$ENDIF}
-{$IFDEF OS_OS2}                                       { OS2 DEFINITIONS }
-  THandle = sw_Integer;                               { Can be either }
-{$ENDIF}
-{$IFDEF OS_MAC}                                       { MACINTOSH DEFINITIONS }
-  THandle = LongInt;                                  { Handles are 32 bits }
-{$ENDIF}
-
-{---------------------------------------------------------------------------}
-{                      POINTERS TO STANDARD DATA TYPES                      }
-{---------------------------------------------------------------------------}
-TYPE
-   PByte = ^Byte;                                     { Pointer to byte }
-   PWord = ^Word;                                     { Pointer to word }
-   PLongint = ^Longint;                               { Pointer to longint }
-
 {---------------------------------------------------------------------------}
 {                               GENERAL ARRAYS                              }
 {---------------------------------------------------------------------------}
@@ -408,7 +372,10 @@ END;
 END.
 {
  $Log$
- Revision 1.6  2004-11-02 23:53:19  peter
+ Revision 1.7  2004-11-05 12:48:18  peter
+ removed types already in system unit
+
+ Revision 1.6  2004/11/02 23:53:19  peter
    * fixed crashes with ide and 1.9.x
 
  Revision 1.5  2003/06/05 14:45:06  peter