diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index df45e6ab722df26f38a9fde510ed1078c3e12c49..0db51cf209682768cb56a34eada71f7512781e77 100644 (file)
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
-{$MODE DELPHI}
+{$INCLUDE ../shared/a_modes.inc}
unit g_console;
interface
AddCommand('d_player', DebugCommands);
AddCommand('d_joy', DebugCommands);
+ AddCommand('pf_draw_frame', ProfilerCommands);
+ AddCommand('pf_update_frame', ProfilerCommands);
+ AddCommand('pf_coldet', ProfilerCommands);
+ AddCommand('r_sq_draw', ProfilerCommands);
+ AddCommand('r_sq_use_grid', ProfilerCommands);
+ AddCommand('r_sq_use_tree', ProfilerCommands);
+ AddCommand('dbg_sq_coldet', ProfilerCommands);
+
+ AddCommand('t_dump_node_queries', ProfilerCommands);
+
+ AddCommand('sq_use_grid', ProfilerCommands);
+ AddCommand('sq_use_tree', ProfilerCommands);
+
+ AddCommand('mon_sq_enabled', ProfilerCommands);
+
AddCommand('p1_name', GameCVars);
AddCommand('p2_name', GameCVars);
AddCommand('p1_color', GameCVars);
while length(L) > 0 do
begin
f := Pos(#10, L);
- if f < 0 then f := length(L)+1;
+ if f <= 0 then f := length(L)+1;
conmsg(Copy(L, 1, f-1));
Delete(L, 1, f);
end;