From 50ffde8289d5e7220f1906a393047c3a1389d051 Mon Sep 17 00:00:00 2001 From: DeaDDooMER Date: Sat, 12 May 2018 00:57:18 +0300 Subject: [PATCH] Fix build --- src/editor/f_packmap.pas | 8 ++++---- src/shared/a_modes.inc | 2 ++ 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/editor/f_packmap.pas b/src/editor/f_packmap.pas index 428d9d3..bf39656 100644 --- a/src/editor/f_packmap.pas +++ b/src/editor/f_packmap.pas @@ -190,7 +190,7 @@ begin (AnsiLowerCase(filename) <> SHRSHADE_WAD) ) then begin // Копируем ресурс текстуры: - if not ProcessResource(WAD, tsection, filename, section, resource) then + if not f_packmap.ProcessResource(WAD, tsection, filename, section, resource) then begin mr.Free(); WAD.Free(); @@ -219,7 +219,7 @@ begin (AnsiLowerCase(filename) <> SHRSHADE_WAD) ) then begin // Копируем ресурс неба: - if not ProcessResource(WAD, ssection, filename, section, resource) then + if not f_packmap.ProcessResource(WAD, ssection, filename, section, resource) then begin mr.Free(); WAD.Free(); @@ -245,7 +245,7 @@ begin (AnsiLowerCase(filename) <> SHRSHADE_WAD) ) then begin // Копируем ресурс музыки: - if not ProcessResource(WAD, msection, filename, section, resource) then + if not f_packmap.ProcessResource(WAD, msection, filename, section, resource) then begin mr.Free(); WAD.Free(); @@ -306,7 +306,7 @@ begin (AnsiLowerCase(filename) <> SHRSHADE_WAD) ) then begin // Копируем ресурс дополнительной текстуры: - if ProcessResource(WAD, tsection, filename, section, resource) then + if f_packmap.ProcessResource(WAD, tsection, filename, section, resource) then begin Нужно проверять есть такая текстура textures и есть ли она вообще? diff --git a/src/shared/a_modes.inc b/src/shared/a_modes.inc index 3290b02..d00e020 100644 --- a/src/shared/a_modes.inc +++ b/src/shared/a_modes.inc @@ -5,6 +5,8 @@ {$WARNINGS ON} {$NOTES ON} +{$OVERFLOWCHECKS OFF} + {$IFDEF MSWINDOWS} {$IFNDEF WINDOWS} {$DEFINE WINDOWS} -- 2.11.4.GIT