Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

0001782: negative const values don't compile

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@4 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2006-06-16 12:49:02 +00:00
parent a20beb13cf
commit c13dc29ea3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/uPSCompiler.pas
View File

@ -11818,6 +11818,10 @@ function TPSPascalCompiler.ReadConstant(FParser: TPSPascalParser; StopOn: TPSPas
{$IFNDEF PS_NOINT64} {$IFNDEF PS_NOINT64}
bts64: p1.ts64 := -p1.ts64; bts64: p1.ts64 := -p1.ts64;
{$ENDIF} {$ENDIF}
btDouble: p1.tdouble := - p1.tDouble;
btSingle: p1.tsingle := - p1.tsingle;
btCurrency: p1.tcurrency := - p1.tcurrency;
btExtended: p1.textended := - p1.textended;
else else
begin begin
MakeError('', ecTypeMismatch, ''); MakeError('', ecTypeMismatch, '');