<!-- See available text formatting: https://gitlab.com/help/user/markdown.md --> ## Summary Wehn using Val(AString, AByte, ErrorCode) or Val(AString, AWord, ErrorCode), the behaviour of Val() depends on wether AString is a ShortString or an AnsiString. If AString is ShortString proper rangechecking is done and the result doesn **not** depend on the state of RangeChecking. If AString is AnsiString the behaviour depends on the state of RangeChecking: - if RangeChecking is ON a RangeCheckError will occur if the string parameter is "greater than" the allowed range (e.g. '256' for Byte or '65536' for Word). - if RangeChecking is off a string parameter "greater than" the allowed range will give an erroneous value and ErrorCode will be 0 (e.g. '256' will give 0 (Byte) and '65536' will give '0' (Word): the values "wrap around". ## System Information <!-- The more information are provided the easier it is to replicate the bug --> - **Operating system:** Windows 11 - **Processor architecture:** x86_64 - **Compiler version:** 3.3.1-8882-g427724e654 (as of today) - **Device:** Computer ## Steps to reproduce Compile and run the attached sample program. ## Example Project [test.pas](/uploads/39855c1e662f527315c4fed246cbeb68/test.pas) ## What is the current bug behavior? RangeCheck Errors occur and wrong values are returned. Notice that when cross-compiling to x86_64, the errors also extend to Val(AString, DWord). ## What is the expected (correct) behavior? No RangeCheck errors should occur. All calls to Val() should set `Err` to a non-zero value. ## Relevant logs and/or screenshots ``` C:\Users\Bart\LazarusProjecten\bugs\console\val\ansistring>fpc test.pas Free Pascal Compiler version 3.3.1 [2026/10/15] for i386 Copyright (c) 1993-2026 by Florian Klaempfl and others Target OS: Win32 for i386 Compiling test.pas Linking test.exe 224 lines compiled, 0.1 sec, 82528 bytes code, 4868 bytes data C:\Users\Bart\LazarusProjecten\bugs\console\val\ansistring>test Val(AnsiString,Byte) RangeCheck ON FAIL !! : ERangeError: Range check error RangeCheck OFF FAIL !! [0] Val(ShortString,Byte) RangeCheck ON Err=3 RangeCheck OFF Err=3 Val(AnsiString,Word) RangeCheck ON FAIL !! : ERangeError: Range check error RangeCheck OFF FAIL !! [0] Val(ShortString,Word) RangeCheck ON Err=5 RangeCheck OFF Err=5 Val(AnsiString,DWord) RangeCheck ON Err=10 RangeCheck OFF Err=10 Val(ShortString,DWord) RangeCheck ON Err=10 RangeCheck OFF Err=10 Val(AnsiString,QWord) RangeCheck ON Err=20 RangeCheck OFF Err=20 Val(ShortString,QWord) RangeCheck ON Err=20 RangeCheck OFF Err=20 ExceptionCount : 2 WrongValueCount: 2 C:\Users\Bart\LazarusProjecten\bugs\console\val\ansistring>fpc test.pas -Px86_64 Free Pascal Compiler version 3.3.1 [2026/10/15] for x86_64 Copyright (c) 1993-2026 by Florian Klaempfl and others Target OS: Win64 for x64 Compiling test.pas Linking test.exe 224 lines compiled, 0.1 sec, 86224 bytes code, 5924 bytes data C:\Users\Bart\LazarusProjecten\bugs\console\val\ansistring>test Val(AnsiString,Byte) RangeCheck ON FAIL !! : ERangeError: Range check error RangeCheck OFF FAIL !! [0] Val(ShortString,Byte) RangeCheck ON Err=3 RangeCheck OFF Err=3 Val(AnsiString,Word) RangeCheck ON FAIL !! : ERangeError: Range check error RangeCheck OFF FAIL !! [0] Val(ShortString,Word) RangeCheck ON Err=5 RangeCheck OFF Err=5 Val(AnsiString,DWord) RangeCheck ON FAIL !! : ERangeError: Range check error RangeCheck OFF FAIL !! [0] Val(ShortString,DWord) RangeCheck ON Err=10 RangeCheck OFF Err=10 Val(AnsiString,QWord) RangeCheck ON Err=20 RangeCheck OFF Err=20 Val(ShortString,QWord) RangeCheck ON Err=20 RangeCheck OFF Err=20 ExceptionCount : 3 WrongValueCount: 3 ``` ## Possible fixes <!-- If you can, link to the line of code that might be responsible for the problem -->