From c2262929e997fa74833db47e5d9b52217d9300be Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Sun, 30 Apr 2023 21:39:29 -0500
Subject: [PATCH] Fix handling of #pragma float.

This was not getting recognized properly, because float is a keyword rather than an identifier.
---
 Scanner.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Scanner.pas b/Scanner.pas
index 1d8a235..3b69e9d 100644
--- a/Scanner.pas
+++ b/Scanner.pas
@@ -3493,7 +3493,9 @@ if ch in ['a','d','e','i','l','p','u','w'] then begin
                   expandMacros := false;
                   NextToken;
                   expandMacros := true;
-                  if token.class <> identifier then begin
+                  if token.kind = floatsy then
+                     token.name := @'float'
+                  else if token.class <> identifier then begin
                      if (lint & lintPragmas) <> 0 then
                         Error(110);
                      goto 2;