paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 04:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use ValSInt parameter as code parameter in val calls to make the code cross platform

Browse Source 
git-svn-id: trunk@22148 -
This commit is contained in:
florian 2012-08-20 20:12:04 +00:00
parent 04034b6771
commit 088a7229aa
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/text.inc
View File

@ -1496,7 +1496,7 @@ end;
Procedure fpc_Read_Text_SInt(var f : Text; out l : ValSInt); iocheck; compilerproc;
var
hs : String;
code : longint;
code : ValSInt;
Begin
l:=0;
If not CheckRead(f) then
@ -1526,7 +1526,7 @@ End;
Procedure fpc_Read_Text_UInt(var f : Text; out u : ValUInt); iocheck; compilerproc;
var
hs : String;
code : longint;
code : ValSInt;
Begin
u:=0;
If not CheckRead(f) then
@ -1599,7 +1599,7 @@ end;
procedure fpc_Read_Text_Currency(var f : Text; out v : Currency); iocheck; compilerproc;
var
hs : string;
code : Word;
code : ValSInt;
begin
{$ifdef FPUNONE}
v:=0;