From 6b97c712f69b190f2a9139d829fe5741d4430c3d Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 29 Jun 2019 16:27:14 +0000
Subject: [PATCH]   * volatile syms should never be regable

git-svn-id: trunk@42308 -
---
 compiler/symsym.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/symsym.pas b/compiler/symsym.pas
index b3eb66f0f3..8579e6213a 100644
--- a/compiler/symsym.pas
+++ b/compiler/symsym.pas
@@ -1701,6 +1701,8 @@ implementation
 
     procedure tabstractvarsym.setregable;
       begin
+        if vo_volatile in varoptions then
+          exit;
          { can we load the value into a register ? }
         if not assigned(owner) or
            (owner.symtabletype in [localsymtable, parasymtable]) or