1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-27 11:32:18 -05:00

TLPThread update, Uncommented Lape Defines

This commit is contained in:
John P (Dgby714) 2011-06-25 18:43:17 -04:00
parent 4d15ee07d5
commit c79eadf1ef
3 changed files with 3 additions and 4 deletions

View File

@ -27,7 +27,7 @@
{$ENDIF}
//{$DEFINE USE_RUTIS}
//{$DEFINE USE_LAPE}
{$DEFINE USE_LAPE}
//{$DEFINE USE_CPASCAL} // TODO
//{$DEFINE USE_EXTENSIONS} // TODO

View File

@ -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>

View File

@ -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;