Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-02-14 12:31:12 +00:00
Code Issues Projects Releases Wiki Activity

Enable automatic comparison with 0 for long longs.

Browse Source 
This allows them to be used in if statements and as controlling expressions for loops.
This commit is contained in:
Stephen Heumann 2021-02-04 12:39:27 -06:00
parent a59a2427fd
commit 10cf6e446d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Expression.pas
View File

@ -1757,6 +1757,8 @@ if expressionType^.kind = scalarType then begin
Gen1t(pc_ldc, 0, cgWord); Gen1t(pc_ldc, 0, cgWord);
cgLong,cgULong: cgLong,cgULong:
GenLdcLong(0); GenLdcLong(0);
cgQuad,cgUQuad:
GenLdcQuad(longlong0);
cgReal,cgDouble,cgComp,cgExtended: cgReal,cgDouble,cgComp,cgExtended:
GenLdcReal(0.0); GenLdcReal(0.0);
otherwise: otherwise: