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

* fixed val_sint(x,longint) for negative hex/bin values on 64 bit

Browse Source 
platforms

git-svn-id: trunk@6205 -
This commit is contained in:
Jonas Maebe 2007-01-26 18:43:50 +00:00
parent 6c578f55df
commit 5f61271824
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/sstrings.inc
View File

@ -747,8 +747,9 @@ begin
Case DestSize of Case DestSize of
1: fpc_Val_SInt_ShortStr := shortint(fpc_Val_SInt_ShortStr); 1: fpc_Val_SInt_ShortStr := shortint(fpc_Val_SInt_ShortStr);
2: fpc_Val_SInt_ShortStr := smallint(fpc_Val_SInt_ShortStr); 2: fpc_Val_SInt_ShortStr := smallint(fpc_Val_SInt_ShortStr);
{ Uncomment the folling once full 64bit support is in place {$ifdef cpu64}
4: fpc_Val_SInt_ShortStr := SizeInt(fpc_Val_SInt_ShortStr);} 4: fpc_Val_SInt_ShortStr := longint(fpc_Val_SInt_ShortStr);
{$endif cpu64}
End; End;
end; end;