Changeset 358 for Common

Timestamp:

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

Author:

chronos

Message:

• Fixed: Compilation under Linux of Common package.

Location:

Common

Files:

• StopWatch.pas (modified) (2 diffs)
• UCommon.pas (modified) (3 diffs)

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}