From 2fa5fa850d1afcfe04ccb08e636d53ff02cb24b9 Mon Sep 17 00:00:00 2001 From: pierre Date: Mon, 5 Oct 1998 12:48:39 +0000 Subject: [PATCH] * wrong handling of range check for arrays fixed --- compiler/symdef.inc | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/compiler/symdef.inc b/compiler/symdef.inc index 2b78debef8..73fc94a191 100644 --- a/compiler/symdef.inc +++ b/compiler/symdef.inc @@ -1457,9 +1457,9 @@ { generates the data for range checking } getlabelnr(rangenr); if (cs_smartlink in aktmoduleswitches) then - datasegment^.concat(new(pai_symbol,init(getrangecheckstring))) + datasegment^.concat(new(pai_symbol,init_global(getrangecheckstring))) else - datasegment^.concat(new(pai_symbol,init_global(getrangecheckstring))); + datasegment^.concat(new(pai_symbol,init(getrangecheckstring))); datasegment^.concat(new(pai_const,init_32bit(lowrange))); datasegment^.concat(new(pai_const,init_32bit(highrange))); end; @@ -3045,7 +3045,10 @@ { $Log$ - Revision 1.52 1998-10-02 07:20:38 florian + Revision 1.53 1998-10-05 12:48:39 pierre + * wrong handling of range check for arrays fixed + + Revision 1.52 1998/10/02 07:20:38 florian * range checking in units doesn't work if the units are smartlinked, fixed Revision 1.51 1998/09/25 12:01:41 florian