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

Allow casts between long long and pointer types.

Browse Source 
This applies to casts in executable code. Some casts in initializers still don't work.
This commit is contained in:
Stephen Heumann 2022-06-20 21:55:54 -05:00
parent 5e20e02d06
commit 15dc3a46c4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Expression.pas
View File

@ -2543,7 +2543,7 @@ else if tp^.kind = pointerType then begin
scalarType: scalarType:
if expressionType^.baseType in if expressionType^.baseType in
[cgByte,cgUByte,cgWord,cgUWord,cgLong,cgULong] then [cgByte,cgUByte,cgWord,cgUWord,cgLong,cgULong,cgQuad,cgUQuad] then
Gen2(pc_cnv, ord(Unary(expressionType^.baseType)), Gen2(pc_cnv, ord(Unary(expressionType^.baseType)),
ord(cgULong)) ord(cgULong))
else if doDispose then else if doDispose then
@ -2564,7 +2564,7 @@ else if expressionType^.kind in [pointerType,arrayType] then begin
scalarType: scalarType:
if tp^.baseType in if tp^.baseType in
[cgByte,cgUByte,cgWord,cgUWord,cgLong,cgULong] then [cgByte,cgUByte,cgWord,cgUWord,cgLong,cgULong,cgQuad,cgUQuad] then
Gen2(pc_cnv, ord(cgULong), Gen2(pc_cnv, ord(cgULong),
ord(Unary(tp^.baseType))) ord(Unary(tp^.baseType)))
else if tp^.baseType = cgVoid then else if tp^.baseType = cgVoid then