Merge branch 'lape-integration' of github.com:MerlijnWajer/Simba into lape-integration

Units/MMLAddon/mmlpsthread.pas

@@ -1237,6 +1237,11 @@ type
   PMDTM = ^TMDTM;
   PMDTMPoint = ^TMDTMPoint;
   PSDTM = ^TSDTM;
+  
+ procedure lp_WriteLn(Params: PParamArray);
+ begin
+   psWriteLn(PlpString(Params^[0])^);
+ end;
 
 //Generate these wrappers with a script -Dg
 //{$I LPInc/Wrappers/other.inc}
@@ -1270,6 +1275,8 @@ begin
   Fonts := Client.MOCR.Fonts;
   with Compiler do
   begin
+    addGlobalFunc('procedure _writeln; override;', @lp_WriteLn);
+    
     for I := Fonts.Count - 1 downto 0 do
       addGlobalVar(Fonts[I].Name, Fonts[I].Name);
 
@@ -1314,6 +1321,7 @@ function TLPThread.OnHandleDirective(Sender: TLapeCompiler; Directive, Argument:
 var
   plugin_idx: integer;
 begin
+  Result := False;
   if (Directive = 'loadlib') then
   begin
     if (Argument <> '') then