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:
parent
4d15ee07d5
commit
c79eadf1ef
@ -27,7 +27,7 @@
|
||||
{$ENDIF}
|
||||
|
||||
//{$DEFINE USE_RUTIS}
|
||||
//{$DEFINE USE_LAPE}
|
||||
{$DEFINE USE_LAPE}
|
||||
|
||||
//{$DEFINE USE_CPASCAL} // TODO
|
||||
//{$DEFINE USE_EXTENSIONS} // TODO
|
||||
|
@ -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>
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user