pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Delphi compatibility

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1169 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-02-27 16:10:25 +00:00
parent 83d29760ee
commit 8aa02153fc
2 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
wst/trunk/wst_global.inc
View File

@ -45,8 +45,9 @@
{$UNDEF USE_INLINE} {$UNDEF USE_INLINE}
{$DEFINE WST_RECORD_RTTI} {$DEFINE WST_RECORD_RTTI}
{$DEFINE WST_INTF_DOM} {$DEFINE WST_INTF_DOM}
{$IFDEF VER150}
{$DEFINE HAS_FORMAT_SETTINGS} {$DEFINE HAS_FORMAT_SETTINGS}
{$IFDEF VER140}
{$UNDEF HAS_FORMAT_SETTINGS}
{$ENDIF} {$ENDIF}
{$IFDEF VER200} // Delphi 2009 {$IFDEF VER200} // Delphi 2009
{$DEFINE HAS_BUILT_IN_64UINT} {$DEFINE HAS_BUILT_IN_64UINT}

12
wst/trunk/wst_initialization.pas
View File

@ -1,7 +1,6 @@
{$INCLUDE wst_global.inc}
unit wst_initialization; unit wst_initialization;
{$mode objfpc}{$H+}
interface interface
uses uses
@ -38,15 +37,15 @@ end;
procedure wst_add_init_proc(const AProc : TwstInitializationProc); procedure wst_add_init_proc(const AProc : TwstInitializationProc);
begin begin
wst_prepare(); wst_prepare();
if ( AProc <> nil ) and ( InitProcs.IndexOf(AProc) = -1 ) then if Assigned(AProc) and ( InitProcs.IndexOf(@AProc) = -1 ) then
InitProcs.Add(AProc); InitProcs.Add(@AProc);
end; end;
procedure wst_add_final_proc(const AProc : TwstFinalizationProc); procedure wst_add_final_proc(const AProc : TwstFinalizationProc);
begin begin
wst_prepare(); wst_prepare();
if ( AProc <> nil ) and ( FinalProcs.IndexOf(AProc) = -1 ) then if ( @AProc <> nil ) and ( FinalProcs.IndexOf(@AProc) = -1 ) then
FinalProcs.Add(AProc); FinalProcs.Add(@AProc);
end; end;
procedure wst_add_procs(const AInitProc : TwstInitializationProc; const AFinalProc : TwstFinalizationProc); procedure wst_add_procs(const AInitProc : TwstInitializationProc; const AFinalProc : TwstFinalizationProc);
@ -88,6 +87,7 @@ begin
FreeAndNil(InitProcs); FreeAndNil(InitProcs);
end; end;
initialization
finalization finalization
wst_finalize(); wst_finalize();