From 9883dc703e38333f5a8670473779e82381bfba7d Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 12 Aug 2020 10:56:49 +0000
Subject: [PATCH] Fix placeholder in format constant

git-svn-id: trunk@46368 -
---
 packages/fcl-base/src/fpexprpars.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-base/src/fpexprpars.pp b/packages/fcl-base/src/fpexprpars.pp
index ed70fae21a..a5326fed6f 100644
--- a/packages/fcl-base/src/fpexprpars.pp
+++ b/packages/fcl-base/src/fpexprpars.pp
@@ -896,7 +896,7 @@ Resourcestring
   SErrCaseLabelNotAConst = 'Case label %d "%s" is not a constant expression';
   SErrCaseLabelType = 'Case label %d "%s" needs type %s, but has type %s';
   SErrCaseValueType = 'Case value %d "%s" needs type %s, but has type %s';
-  SErrDivisionByZero = '%d division by zero';
+  SErrDivisionByZero = '%s division by zero';
 
 { ---------------------------------------------------------------------
   Auxiliary functions