From fd4bd26d8849b9bf8ef73dfc9df5a781425c9336 Mon Sep 17 00:00:00 2001
From: ManDude <7569514+ManDude@users.noreply.github.com>
Date: Mon, 16 Aug 2021 15:58:41 +0100
Subject: [PATCH] patch

---
 goal_src/engine/gfx/font.gc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/goal_src/engine/gfx/font.gc b/goal_src/engine/gfx/font.gc
index d5af44ea9..f5d7474d9 100644
--- a/goal_src/engine/gfx/font.gc
+++ b/goal_src/engine/gfx/font.gc
@@ -698,7 +698,7 @@
               (.mov.vf vf2 vf0)
               (.mov.vf vf3 vf0)
               (.mov.vf vf4 vf0)
-              (set! (-> fw flags) (the-as uint flags))
+              (set! (-> fw flags) (the-as font-flags flags))
               (.lvf vf16 (&-> fw size-st1 quad))
               (.lvf vf17 (&-> fw size-st2 quad))
               (.lvf vf18 (&-> fw size-st3 quad))
@@ -1652,7 +1652,7 @@
           (.mul.vf vf24 vf24 vf1 :mask #b11)
           (let ((a1-4 *font-work*))
             (set! (-> a1-4 str-ptr) (the-as uint arg0))
-            (set! (-> a1-4 flags) (the-as uint v1-0))
+            (set! (-> a1-4 flags) (the-as font-flags v1-0))
             (.mov.vf vf1 vf0)
             (let ((a2-0 (logand v1-0 32)))
               (b! (nonzero? a2-0) cfg-2 :delay (set! a2-1 *font12-table*))
@@ -1783,7 +1783,7 @@
         )
   )
 
-(defun draw-string-xy ((str string) (buf dma-buffer) (x int) (y int) (color font-color) (flags int))
+(defun draw-string-xy ((str string) (buf dma-buffer) (x int) (y int) (color font-color) (flags font-flags))
   "Draw a string at the given xy location."
   (let ((context (new 'stack 'font-context
                       *font-default-matrix*
@@ -1791,7 +1791,7 @@
                       y
                       0.0
                       color
-                      (the-as uint flags)
+                      flags
                       )
                  )
         )