mORMot and Open Source friends
Check-in [faf35e4799]
Check-in [faf35e4799]
Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | {1644} fixed Linux compilation issue with FPC |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
faf35e479970458f736ceb7d9a99d4ab |
| User & Date: | ab 2015-07-15 13:54:54 |
|
2015-07-15
| ||
| 13:59 | {1645} fixed Delphi XE2-64 compilation issue check-in: f2c7a5251b user: ab tags: trunk | |
| 13:54 | {1644} fixed Linux compilation issue with FPC check-in: faf35e4799 user: ab tags: trunk | |
| 13:32 | {1643} introducing TSQLModel/TSQLRecordProperties.SetVariantFieldsDocVariantOptions methods check-in: aebe52619b user: ab tags: trunk | |
Changes to SynCommons.pas.
38393 38394 38395 38396 38397 38398 38399 38400 38401 38402 38403 38404 38405 38406 38407 |
procedure TSynLocker.UnLock;
begin
LeaveCriticalSection(fSection);
end;
function TSynLocker.TryLock: boolean;
begin
result := TryEnterCriticalSection(fSection);
end;
{ TInterfacedObjectLocked }
constructor TInterfacedObjectLocked.Create;
begin
|
| |
38393 38394 38395 38396 38397 38398 38399 38400 38401 38402 38403 38404 38405 38406 38407 |
procedure TSynLocker.UnLock;
begin
LeaveCriticalSection(fSection);
end;
function TSynLocker.TryLock: boolean;
begin
result := TryEnterCriticalSection(fSection){$ifdef LINUX}{$ifdef FPC}<>0{$endif}{$endif};
end;
{ TInterfacedObjectLocked }
constructor TInterfacedObjectLocked.Create;
begin
|
Changes to SynopseCommit.inc.
1 |
'1.18.1643'
|
| |
1 |
'1.18.1644'
|