From: DeaDDooMER Date: Fri, 11 May 2018 21:57:18 +0000 (+0300) Subject: Fix build X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=50ffde8289d5e7220f1906a393047c3a1389d051;p=d2df-editor.git Fix build --- 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}