Changeset 38 for trunk/Database.pas

Timestamp:

Jan 9, 2017, 8:50:12 AM (7 years ago)

Author:

chronos

Message:

• Modified: Switches.pas renamed to Switches.inc.

File:

• trunk/Database.pas (modified) (3 diffs)

trunk/Database.pas

@@ -1 @@
-{$INCLUDE Switches.pas}
+{$INCLUDE Switches.inc}
 // {$DEFINE TEXTLOG}
 // {$DEFINE LOADPERF}
@@ -7 +7 @@
 
 uses
-  Protocol, CmdList;
+  SysUtils, Protocol, CmdList;
 
 const
@@ -478 +478 @@
   y0: integer;
 begin
+  if not (Loc >= 0) and (Loc < MapSize) and (dx + lx >= 0) then
+    raise Exception.Create('Relative location error');
   assert((Loc >= 0) and (Loc < MapSize) and (dx + lx >= 0));
   y0 := Loc div lx;