aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/lib/projectM
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/lib/projectM')
-rw-r--r--Game/Code/lib/projectM/projectM-0_9.inc3
-rw-r--r--Game/Code/lib/projectM/projectM-1_0.inc3
2 files changed, 6 insertions, 0 deletions
diff --git a/Game/Code/lib/projectM/projectM-0_9.inc b/Game/Code/lib/projectM/projectM-0_9.inc
index 24d83700..4aed3260 100644
--- a/Game/Code/lib/projectM/projectM-0_9.inc
+++ b/Game/Code/lib/projectM/projectM-0_9.inc
@@ -321,6 +321,8 @@ constructor TProjectM.Create(gx, gy: integer; fps: integer;
var
state: PProjectMState;
begin
+ inherited Create();
+
New(state);
data := state;
@@ -420,5 +422,6 @@ destructor TProjectM.Destroy();
begin
Dispose(PProjectMState(data));
data := nil;
+ inherited;
end;
diff --git a/Game/Code/lib/projectM/projectM-1_0.inc b/Game/Code/lib/projectM/projectM-1_0.inc
index a1c1c1f4..96b224ae 100644
--- a/Game/Code/lib/projectM/projectM-1_0.inc
+++ b/Game/Code/lib/projectM/projectM-1_0.inc
@@ -68,6 +68,8 @@ end;
constructor TProjectM.Create(const configFile: string);
begin
+ inherited Create();
+
// we cannot catch C++ exceptions in delphi, so we have to check
// if configFile is valid first
if (FileExists(configFile)) then
@@ -166,5 +168,6 @@ destructor TProjectM.Destroy();
begin
_projectM_free(data);
data := nil;
+ inherited;
end;