Browse Source

* move tendian to objpas, alias in sysutils, types. mantis #31150

git-svn-id: trunk@35202 -
marco 8 years ago
parent
commit
b33da605f3
3 changed files with 6 additions and 5 deletions
  1. 3 0
      rtl/objpas/objpas.pp
  2. 2 4
      rtl/objpas/sysutils/syshelph.inc
  3. 1 1
      rtl/objpas/types.pp

+ 3 - 0
rtl/objpas/objpas.pp

@@ -87,6 +87,9 @@ interface
        end;
 {$endif}
 
+{$SCOPEDENUMS ON}
+  TEndian = (Little,Big);
+{$SCOPEDENUMS OFF}
 
 {$ifdef FPC_HAS_FEATURE_CLASSES}
 Var

+ 2 - 4
rtl/objpas/sysutils/syshelph.inc

@@ -4,10 +4,8 @@ Type
   generic TArray<T> = array of T;
   TStringArray = Array of string;
   TCharArray = Array of char;
-{$SCOPEDENUMS ON}
-  TEndian = (Little,Big);
-{$SCOPEDENUMS OFF}
-
+  TEndian = ObjPas.TEndian;
+  
 Const
   CPUEndian = {$IFDEF FPC_LITTLE_ENDIAN}TEndian.Little{$ELSE}TEndian.Big{$ENDIF};
 

+ 1 - 1
rtl/objpas/types.pp

@@ -28,7 +28,7 @@ const
 {$endif mswindows}
 
 type
-  TEndian = (Big,Little);
+  TEndian =  Objpas.TEndian;
   TDirection = (FromBeginning, FromEnd);
   TValueRelationship = -1..1;