Update to latest Lape (unused var hints!)

Villavu · Oct 4, 2016 · 7d5aa8f · 7d5aa8f
1 parent 73deaec
commit 7d5aa8f
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas
@@ -42,7 +42,7 @@ interface
   {$IFDEF USE_SQLITE}, msqlite3{$ENDIF}
   {$IFDEF USE_LAPE}
   , lpparser, lpcompiler, lptypes, lpvartypes, ffi, lpffi, lpffiwrappers,
-    lpeval, lpinterpreter, lputils, lpexceptions, LPDump
+    lpeval, lpinterpreter, lputils, lpmessages, LPDump
   {$ENDIF};
 
 const
@@ -258,6 +258,7 @@    TLPThread = class(TMThread)
      procedure SetFonts(Fonts: TMFonts); override;
      procedure Execute; override;
      procedure Terminate; override;
+     procedure OnHint(Sender: TLapeCompilerBase; Msg: lpString);
      function OnFindFile(Sender: TLapeCompiler; var FileName: lpString): TLapeTokenizerBase;
      function OnHandleDirective(Sender: TLapeCompiler; Directive, Argument: lpString; InPeek, InIgnore: Boolean): Boolean;
    end;
@@ -1388,6 +1389,7 @@ constructor TLPThread.Create(CreateSuspended: Boolean; TheSyncInfo: PSyncInfo; p
   ExposeGlobals(Compiler);
 
   Compiler['Move'].Name := 'MemMove';
+  Compiler.OnHint     := @OnHint;
   Compiler.OnFindFile := @OnFindFile;
   Compiler.OnHandleDirective := @OnHandleDirective;
 
@@ -1515,6 +1517,11 @@ procedure TLPThread.SetFonts(Fonts: TMFonts);
   Compiler.EndImporting;
 end;
 
+procedure TLPThread.OnHint(Sender: TLapeCompilerBase; Msg: lpString);
+begin
+  psWriteLn(Msg);
+end;
+
 function TLPThread.OnFindFile(Sender: TLapeCompiler; var FileName: lpString): TLapeTokenizerBase;
 begin
   Result := nil;

diff --git a/Units/lape b/Units/lape
+7 −2		extensions/ffi/lpffi.pas
+1 −1		extensions/ffi/lpffiwrappers.pas
+2 −2		extensions/ffi/test/LapeTestFFI.lpr
+51 −51		lape.lpi
+1 −1		lape.lpr
+1 −1		lpcodeemitter.pas
+60 −15		lpcompiler.pas
+1 −1		lpdisassembler.pas
+2 −2		lpeval.pas
+1 −1		lpinterpreter.pas
+11 −4		lpmessages.pas
+1 −1		lpparser.pas
+26 −2		lptree.pas
+6 −4		lptypes.pas
+29 −4		lpvartypes.pas
+1 −1		lpvartypes_array.pas
+1 −1		lpvartypes_ord.pas
+1 −1		lpvartypes_record.pas
+3 −24		main.lfm
+15 −10		main.pas
+1 −1		package/lape.dpk
+1 −1		package/lape.dproj
+34 −34		package/lape.lpk
+3 −3		package/lape.pas
+1 −1		tests/RunTests/lptest.pas