From c79eadf1efffd590801e9513fdb55ea3f6a39102 Mon Sep 17 00:00:00 2001
From: "John P (Dgby714)" <Dgby714@gmail.com>
Date: Sat, 25 Jun 2011 18:43:17 -0400
Subject: [PATCH] TLPThread update, Uncommented Lape Defines

---
 Projects/Simba/Simba.inc       | 2 +-
 Projects/Simba/Simba.lpi       | 2 +-
 Units/MMLAddon/mmlpsthread.pas | 3 +--
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/Projects/Simba/Simba.inc b/Projects/Simba/Simba.inc
index 842ac89..4eff91d 100644
--- a/Projects/Simba/Simba.inc
+++ b/Projects/Simba/Simba.inc
@@ -27,7 +27,7 @@
 {$ENDIF}
 
 //{$DEFINE USE_RUTIS}
-//{$DEFINE USE_LAPE}
+{$DEFINE USE_LAPE}
 
 //{$DEFINE USE_CPASCAL} // TODO
 //{$DEFINE USE_EXTENSIONS} // TODO
diff --git a/Projects/Simba/Simba.lpi b/Projects/Simba/Simba.lpi
index a2d0f81..98b9499 100644
--- a/Projects/Simba/Simba.lpi
+++ b/Projects/Simba/Simba.lpi
@@ -317,7 +317,7 @@
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir);$(ProjPath)../../Units/MMLAddon/PSInc;$(ProjPath)../../Units/MMLAddon/LPInc"/>
-      <OtherUnitFiles Value="$(ProjPath);$(ProjPath)../../Units/MMLCore;$(ProjPath)../../Units/MMLAddon;$(ProjPath)../../Units/PascalScript;$(ProjPath)../../Units/la-pe;$(ProjPath)../../Units/Misc;$(ProjPath)../../Units/MMLAddon/PSInc;$(ProjPath)../../Units/Linux;$(ProjPath)../../Units/Synapse;$(LazarusDir)/components/mouseandkeyinput;$(ProjPath)../../Units/RUTIS"/>
+      <OtherUnitFiles Value="$(ProjPath);$(ProjPath)../../Units/MMLCore;$(ProjPath)../../Units/MMLAddon;$(ProjPath)../../Units/PascalScript;$(ProjPath)../../Units/lape;$(ProjPath)../../Units/Misc;$(ProjPath)../../Units/MMLAddon/PSInc;$(ProjPath)../../Units/Linux;$(ProjPath)../../Units/Synapse;$(LazarusDir)/components/mouseandkeyinput;$(ProjPath)../../Units/RUTIS"/>
       <UnitOutputDirectory Value="$(ProjPath)../../build/$(TargetOS)"/>
     </SearchPaths>
     <Parsing>
diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas
index d7724dd..24b999c 100644
--- a/Units/MMLAddon/mmlpsthread.pas
+++ b/Units/MMLAddon/mmlpsthread.pas
@@ -25,7 +25,7 @@ unit mmlpsthread;
 
 {$define PS_USESSUPPORT}
 //{$define USE_RUTIS}
-//{$define USE_LAPE}
+{$define USE_LAPE}
 {$mode objfpc}{$H+}
 
 interface
@@ -1359,7 +1359,6 @@ begin
     Starttime := lclintf.GetTickCount;
     if Compiler.Compile() then
     begin
-      //DisassembleCode(Compiler.Emitter.Code, CombineDeclArray(Compiler.ManagedDeclarations.getByClass(TLapeGlobalVar), Compiler.GlobalDeclarations.getByClass(TLapeGlobalVar)));
       psWriteln('Compiled succesfully in ' + IntToStr(GetTickCount - Starttime) + ' ms.');
       if CompileOnly then
         Exit;