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

* fixed bug in sign extension patch

Browse Source
This commit is contained in:
Jonas Maebe 2000-12-08 12:41:01 +00:00
parent 2301262913
commit 06603cf428
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncnv.pas
View File

@ -1089,7 +1089,7 @@ implementation
if not (cs_check_range in aktlocalswitches) and if not (cs_check_range in aktlocalswitches) and
is_signed(resulttype) then is_signed(resulttype) then
with tordconstnode(hp) do with tordconstnode(hp) do
case left.resulttype^.size of case resulttype^.size of
1: value := shortint(value); 1: value := shortint(value);
2: value := smallint(value); 2: value := smallint(value);
4: value := longint(value); 4: value := longint(value);
@ -1196,7 +1196,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.14 2000-12-07 17:19:42 jonas Revision 1.15 2000-12-08 12:41:01 jonas
* fixed bug in sign extension patch
Revision 1.14 2000/12/07 17:19:42 jonas
* new constant handling: from now on, hex constants >$7fffffff are * new constant handling: from now on, hex constants >$7fffffff are
parsed as unsigned constants (otherwise, $80000000 got sign extended parsed as unsigned constants (otherwise, $80000000 got sign extended
and became $ffffffff80000000), all constants in the longint range and became $ffffffff80000000), all constants in the longint range