moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 16:55:01 -05:00
Code Issues Releases Wiki Activity

Simba: Attempt to fix include_once behaviour.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-07-26 21:44:01 +02:00
parent 31df8c695a
commit 303253aeed
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/Simba/Simba.inc
View File

@ -26,6 +26,8 @@
// See Units/Linux/keybinder.pas // See Units/Linux/keybinder.pas
{$ENDIF} {$ENDIF}
//{$DEFINE SIMBA_VERBOSE} // For more verbosity.
//{$DEFINE USE_RUTIS} //{$DEFINE USE_RUTIS}
//{$DEFINE USE_CPASCAL} // TODO //{$DEFINE USE_CPASCAL} // TODO

12
Units/MMLAddon/mmlpsthread.pas
View File

@ -746,11 +746,15 @@ begin
if (path <> '') then if (path <> '') then
if Includes.Find(path,i) then if Includes.Find(path,i) then
begin begin
psWriteln('Include_Once file already included'); {$IFDEF SIMBA_VERBOSE}
Result := False; psWriteln('Include_Once file already included:' + Path);
end; {$ENDIF}
Includes.Add(path);
Result := True; Result := True;
Exit;
end;
Includes.Add(path);
Result := False;
end; end;
procedure SIRegister_Mufasa(cl: TPSPascalCompiler); procedure SIRegister_Mufasa(cl: TPSPascalCompiler);