From 50a58e77067f6653a283ada6c680ef6189593bd0 Mon Sep 17 00:00:00 2001
From: Evgeny Vrublevsky <me@veg.by>
Date: Sat, 24 Apr 2021 21:26:52 +0300
Subject: [PATCH] Added documentation for the .REFERTO.

---
 doc/ca65.sgml     | 30 +++++++++++++++++++++++++++++-
 src/ca65/pseudo.c |  3 +--
 2 files changed, 30 insertions(+), 3 deletions(-)

diff --git a/doc/ca65.sgml b/doc/ca65.sgml
index b6d577472..978aaf159 100644
--- a/doc/ca65.sgml
+++ b/doc/ca65.sgml
@@ -3213,7 +3213,8 @@ See: <tt><ref id=".ASCIIZ" name=".ASCIIZ"></tt>,<tt><ref id=".CHARMAP" name=".CH
         .endif
   </verb></tscreen>
 
-  See also: <tt><ref id=".REFERENCED" name=".REFERENCED"></tt>
+  See also: <tt><ref id=".REFERENCED" name=".REFERENCED"></tt>, and
+  <tt><ref id=".REFERTO" name=".REFERTO"></tt>
 
 
 <sect1><tt>.IMPORT</tt><label id=".IMPORT"><p>
@@ -3764,6 +3765,33 @@ See: <tt><ref id=".ASCIIZ" name=".ASCIIZ"></tt>,<tt><ref id=".BYTE" name=".BYTE"
   See: <tt><ref id=".POPSEG" name=".POPSEG"></tt>
 
 
+<sect1><tt>.REFERTO</tt><label id=".REFERTO"><p>
+
+  Mark a symbol as referenced.
+
+  It is useful in combination with the <tt><ref id=".IFREF" name=".IFREF"></tt>
+  command. A subroutine with two entry points can be created. When the first
+  entry point is called, it sets some default value as an argument, and falls
+  through into the second entry point. <tt>.REFERTO</tt> helps to ensure that
+  the second part is included into binary when only the first entry point is
+  actually used from the code.
+
+  Example:
+
+  <tscreen><verb>
+        .ifref ResetValue               ; If this subroutine is used
+        ResetValue:                     ; Define it
+                lda     #0              ; Set a default value
+                .referto SetValue       ; Ensure that SetValue will be included
+        .endif
+        .ifref SetValue                 ; If this or previous subroutine is used
+        SetValue:
+                sta     Value
+                rts
+        .endif
+  </verb></tscreen>
+
+
 <sect1><tt>.RELOC</tt><label id=".RELOC"><p>
 
   Switch back to relocatable mode. See the <tt><ref id=".ORG"
diff --git a/src/ca65/pseudo.c b/src/ca65/pseudo.c
index 0c9e623a1..843f5b9d2 100644
--- a/src/ca65/pseudo.c
+++ b/src/ca65/pseudo.c
@@ -1734,8 +1734,7 @@ static void DoReferTo (void)
 /* Mark given symbol as referenced */
 {
     SymEntry* Sym = ParseAnySymName (SYM_ALLOC_NEW);
-    if (Sym)
-    {
+    if (Sym) {
         SymRef (Sym);
     }
 }