From 2e4980bb21066767295e63fa200ab6b366019426 Mon Sep 17 00:00:00 2001
From: Adriano dos Santos Fernandes <adrianosf@gmail.com>
Date: Sun, 8 Sep 2024 14:38:23 -0300
Subject: [PATCH] Fix BLR print.

---
 src/jrd/blp.h      | 2 +-
 src/yvalve/gds.cpp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/jrd/blp.h b/src/jrd/blp.h
index 085cb30e78..ffab974de2 100644
--- a/src/jrd/blp.h
+++ b/src/jrd/blp.h
@@ -259,7 +259,7 @@ static const struct
 	{"invoke_function", invoke_function},
 	{"invoke_procedure", invsel_procedure},
 	{"select_procedure", invsel_procedure},
-	{"blr_default_arg", zero},
+	{"default_arg", zero},
 	{"cast_format", cast_format},
 	{0, 0}
 };
diff --git a/src/yvalve/gds.cpp b/src/yvalve/gds.cpp
index c19ee28f53..d0a280d766 100644
--- a/src/yvalve/gds.cpp
+++ b/src/yvalve/gds.cpp
@@ -420,7 +420,7 @@ static const UCHAR
 	in_list[] = { op_line, op_verb, op_indent, op_word, op_line, op_args, 0},
 	invoke_function[] = { op_invoke_function, 0 },
 	invsel_procedure[] = { op_invsel_procedure, 0 },
-	cast_format[] = { op_byte, op_literal, op_dtype, op_line, op_verb, 0 };
+	cast_format[] = { op_line, op_indent, op_byte, op_literal, op_line, op_indent, op_dtype, op_line, op_verb, 0 };
 
 
 #include "../jrd/blp.h"