|
@@ -2971,7 +2971,8 @@ implementation
|
|
|
((copy(name,1,13)='$fpc_val_sint') or (copy(name,1,13)='$fpc_val_uint')) then
|
|
((copy(name,1,13)='$fpc_val_sint') or (copy(name,1,13)='$fpc_val_uint')) then
|
|
|
begin
|
|
begin
|
|
|
ValOutput.signed := is_signed(ResultDef);
|
|
ValOutput.signed := is_signed(ResultDef);
|
|
|
-
|
|
|
|
|
|
|
+{$PUSH}
|
|
|
|
|
+{$R-}
|
|
|
case Longint(tordconstnode(GetParaFromIndex(2).paravalue).value.svalue) of
|
|
case Longint(tordconstnode(GetParaFromIndex(2).paravalue).value.svalue) of
|
|
|
1:
|
|
1:
|
|
|
if ValOutput.signed then
|
|
if ValOutput.signed then
|
|
@@ -3020,7 +3021,7 @@ implementation
|
|
|
else
|
|
else
|
|
|
Internalerror(2024011402);
|
|
Internalerror(2024011402);
|
|
|
end;
|
|
end;
|
|
|
-
|
|
|
|
|
|
|
+{$POP}
|
|
|
{ Due to the way the node tree works, we have to insert
|
|
{ Due to the way the node tree works, we have to insert
|
|
|
the assignment to the Code output within the
|
|
the assignment to the Code output within the
|
|
|
assignment to the value output (function result),
|
|
assignment to the value output (function result),
|
Curtis Hamilton