1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-04 22:52:15 -05:00
Simba/Units/MMLCore/mufasabase.pas

43 lines
616 B
ObjectPascal
Raw Normal View History

2010-03-13 10:33:04 -05:00
unit mufasabase;
{$mode objfpc}{$H+}
2010-03-13 10:33:04 -05:00
interface
{$undef mDebug}
2010-03-13 10:33:04 -05:00
uses
Classes, SysUtils{$ifdef MSWindows},windows{$endif};
2010-03-13 10:33:04 -05:00
procedure mDebugLn( s : string);overload;
procedure mDebugLn( s : string; f : array of const);overload;
procedure InitmDebug;
procedure FreemDebug;
implementation
var
CanDebug : boolean = false;
procedure mDebugLn(s: string);
begin
if CanDebug then
Writeln(s);
end;
procedure mDebugLn(s: string; f: array of const); overload;
begin
mDebugLn(format(s,f));
end;
procedure InitmDebug;
begin
CanDebug := true;
end;
procedure FreemDebug;
begin
CanDebug := false;
end;
end.