Changeset 358

Timestamp:

May 2, 2012, 12:27:54 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Compilation under Linux of Common package.

Files:

• Common/StopWatch.pas (modified) (2 diffs)
• Common/UCommon.pas (modified) (3 diffs)
• Generics/TemplateGenerics/Generic/GenericList.inc (modified) (1 diff)

Common/StopWatch.pas

@@ -43 +43 @@
   fIsHighResolution := QueryPerformanceFrequency(fFrequency) ;
   {$ELSE}
-  raise Exception.Create('Not implemeneted');
+  fIsHighResolution := False;
   {$ENDIF}
   if NOT fIsHighResolution then fFrequency := MSecsPerSec;
@@ -61 +61 @@
     QueryPerformanceCounter(lInt)
     {$ELSE}
-    raise Exception.Create('Not implemeneted')
     {$ENDIF}
   else

Common/UCommon.pas

@@ -45 +45 @@
 function BCDToInt(Value: Byte): Byte;
 function CompareByteArray(Data1, Data2: TArrayOfByte): Boolean;
-{$IFDEF Windows}
 function GetUserName: string;
 function LoggedOnUserNameEx(Format: TUserNameFormat): string;
-{$ENDIF}
 function SplitString(var Text: string; Count: Word): string;
 function GetBit(Variable: QWord; Index: Byte): Boolean;
@@ -285 +283 @@
   L: LongWord;
 begin
+
   L := MAX_USERNAME_LENGTH + 2;
   SetLength(Result, L);
@@ -317 +316 @@
   end else Result := GetUserName;
 end;
+{$ELSE}
+function GetUserName: string;
+begin
+  Result := '';
+end;
+
+function LoggedOnUserNameEx(Format: TUserNameFormat): string;
+begin
+  Result := '';
+end;
+
 {$ENDIF}
 

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -24 +24 @@
     FItems: array of TGListItem;
     FCount: TGListIndex;
-    FUpdateCount: NativeInt;
+    FUpdateCount: Integer;
     FOnUpdate: TNotifyEvent;
     function Get(Index: TGListIndex): TGListItem;