summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 660ceac)
raw | patch | inline | side by side (parent: 660ceac)
author | Ketmar Dark <ketmar@ketmar.no-ip.org> | |
Fri, 25 Aug 2017 00:43:43 +0000 (03:43 +0300) | ||
committer | Ketmar Dark <ketmar@ketmar.no-ip.org> | |
Fri, 25 Aug 2017 01:43:29 +0000 (04:43 +0300) |
diff --git a/src/game/g_grid.pas b/src/game/g_grid.pas
index 882ef3a4504ac3cfae567a8b9906c084065a825a..6017ad4b492dfbc436da477ccd41a685a3bca7b1 100644 (file)
--- a/src/game/g_grid.pas
+++ b/src/game/g_grid.pas
f, ptag, distSq: Integer;
x0, y0, x1, y1: Integer;
// horizontal walker
+ {$IFDEF GRID_USE_ORTHO_ACCEL}
wklen, wkstep: Integer;
hopt: Boolean;
+ {$ENDIF}
begin
result := Default(ITP);
lastObj := Default(ITP);
diff --git a/src/sfs/sfs.pas b/src/sfs/sfs.pas
index a18ad73dd7041dffe12673e9f26b728b62c5ba9d..5621f503bf0054fd7b72b799bf98b7f8875b29fb 100644 (file)
--- a/src/sfs/sfs.pas
+++ b/src/sfs/sfs.pas
type
TVolumeInfo = class
+ public
fFactory: TSFSVolumeFactory;
fVolume: TSFSVolume;
fPackName: AnsiString; // äëÿ îäíîãî è òîãî æå ôàéëà áóäåò òîëüêî îäèí òîì!
diff --git a/src/shared/MAPDEF.pas b/src/shared/MAPDEF.pas
index 05c510112c57a504a4375f037c3078b23629f6cd..640b69d4ddbedc5569e756916dcad1ab29349c3c 100644 (file)
--- a/src/shared/MAPDEF.pas
+++ b/src/shared/MAPDEF.pas
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
{$INCLUDE a_modes.inc}
+{$M+}
unit MAPDEF;
{
index d9913a4be10ebfdcc1561bd821c43da7705829c6..f2bc726d450b42fa38f4685bb2ff90641d869bfe 100644 (file)
--- a/src/shared/MAPSTRUCT.pas
+++ b/src/shared/MAPSTRUCT.pas
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
{$INCLUDE a_modes.inc}
+{$M+}
unit MAPSTRUCT;
{
diff --git a/src/shared/a_modes.inc b/src/shared/a_modes.inc
index ee78b4f355d9501813a5975a4da1e0e1b8f32750..a0ea22057a20fde14b3d03f2a2de5dcf87937d7b 100644 (file)
--- a/src/shared/a_modes.inc
+++ b/src/shared/a_modes.inc
{$SCOPEDENUMS OFF} // this will possibly be changed later
{$SMARTLINK ON}
{$TYPEDADDRESS ON}
-{$TYPEINFO OFF}
+{$TYPEINFO ON}
{$VARSTRINGCHECKS OFF}
{$S-} // disable stack checking