diff --git a/Projects/Simba/Simba.inc b/Projects/Simba/Simba.inc index d8ec62b..ee530c9 100644 --- a/Projects/Simba/Simba.inc +++ b/Projects/Simba/Simba.inc @@ -26,6 +26,8 @@ // See Units/Linux/keybinder.pas {$ENDIF} +//{$DEFINE SIMBA_VERBOSE} // For more verbosity. + //{$DEFINE USE_RUTIS} //{$DEFINE USE_CPASCAL} // TODO diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas index 0079dbd..292444c 100644 --- a/Units/MMLAddon/mmlpsthread.pas +++ b/Units/MMLAddon/mmlpsthread.pas @@ -746,11 +746,15 @@ begin if (path <> '') then if Includes.Find(path,i) then begin - psWriteln('Include_Once file already included'); - Result := False; + {$IFDEF SIMBA_VERBOSE} + psWriteln('Include_Once file already included:' + Path); + {$ENDIF} + Result := True; + Exit; end; + Includes.Add(path); - Result := True; + Result := False; end; procedure SIRegister_Mufasa(cl: TPSPascalCompiler);