Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-06-04 14:30:16 +00:00
Code Issues Projects Releases Wiki Activity

Use cgPointerSize for size of pointers in various places.

Browse Source 
This makes no practical difference when targeting the GS, but it better documents what the relevant size is.
This commit is contained in:
Stephen Heumann 2022-06-18 19:30:20 -05:00
parent a3104853fc
commit 58849607a1
3 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Expression.pas
View File

@ -1917,7 +1917,7 @@ var
codeGeneration := lCodeGeneration and (numErrors = 0); codeGeneration := lCodeGeneration and (numErrors = 0);
{get controlling type after conversions} {get controlling type after conversions}
if expressionType^.kind = functionType then begin if expressionType^.kind = functionType then begin
controllingType.size := cgLongSize; controllingType.size := cgPointerSize;
controllingType.saveDisp := 0; controllingType.saveDisp := 0;
controllingType.qualifiers := []; controllingType.qualifiers := [];
controllingType.kind := pointerType; controllingType.kind := pointerType;
@ -1932,8 +1932,11 @@ var
end {else if} end {else if}
else else
controllingType := expressionType^; controllingType := expressionType^;
if controllingType.kind = arrayType then if controllingType.kind = arrayType then begin
controllingType.kind := pointerType; controllingType.kind := pointerType;
controllingType.size := cgPointerSize;
controllingType.saveDisp := 0;
end; {if}
controllingType.qualifiers := []; controllingType.qualifiers := [];
typesSeen := nil; typesSeen := nil;
@ -2868,7 +2871,7 @@ var
otherwise: ; otherwise: ;
end; {case} end; {case}
eType := pointer(Malloc(sizeof(typeRecord))); eType := pointer(Malloc(sizeof(typeRecord)));
eType^.size := cgLongSize; eType^.size := cgPointerSize;
eType^.saveDisp := 0; eType^.saveDisp := 0;
eType^.qualifiers := []; eType^.qualifiers := [];
eType^.kind := pointerType; eType^.kind := pointerType;
@ -2912,7 +2915,7 @@ var
Gen0(pc_adl); Gen0(pc_adl);
end; {else} end; {else}
eType := pointer(Malloc(sizeof(typeRecord))); eType := pointer(Malloc(sizeof(typeRecord)));
eType^.size := cgLongSize; eType^.size := cgPointerSize;
eType^.saveDisp := 0; eType^.saveDisp := 0;
eType^.qualifiers := []; eType^.qualifiers := [];
eType^.kind := pointerType; eType^.kind := pointerType;
@ -2929,7 +2932,7 @@ var
expressionType := tree^.castType; expressionType := tree^.castType;
if expressionType^.kind <> arrayType then begin if expressionType^.kind <> arrayType then begin
eType := pointer(Malloc(sizeof(typeRecord))); eType := pointer(Malloc(sizeof(typeRecord)));
eType^.size := cgLongSize; eType^.size := cgPointerSize;
eType^.saveDisp := 0; eType^.saveDisp := 0;
eType^.qualifiers := []; eType^.qualifiers := [];
eType^.kind := pointerType; eType^.kind := pointerType;
@ -4232,7 +4235,7 @@ case tree^.token.kind of
ChangePointer(pc_adl, lType^.size, et); ChangePointer(pc_adl, lType^.size, et);
if expressionType^.kind = arrayType then begin if expressionType^.kind = arrayType then begin
tType := pointer(Malloc(sizeof(typeRecord))); tType := pointer(Malloc(sizeof(typeRecord)));
tType^.size := cgLongSize; tType^.size := cgPointerSize;
tType^.saveDisp := 0; tType^.saveDisp := 0;
tType^.qualifiers := []; tType^.qualifiers := [];
tType^.kind := pointerType; tType^.kind := pointerType;
@ -4288,7 +4291,7 @@ case tree^.token.kind of
expressionType := lType; expressionType := lType;
if expressionType^.kind = arrayType then begin if expressionType^.kind = arrayType then begin
tType := pointer(Malloc(sizeof(typeRecord))); tType := pointer(Malloc(sizeof(typeRecord)));
tType^.size := cgLongSize; tType^.size := cgPointerSize;
tType^.saveDisp := 0; tType^.saveDisp := 0;
tType^.qualifiers := []; tType^.qualifiers := [];
tType^.kind := pointerType; tType^.kind := pointerType;
@ -4515,7 +4518,7 @@ case tree^.token.kind of
{build pointer-to-array type for address of string constant} {build pointer-to-array type for address of string constant}
tType := pointer(Malloc(sizeof(typeRecord))); tType := pointer(Malloc(sizeof(typeRecord)));
with tType^ do begin with tType^ do begin
size := cgLongSize; size := cgPointerSize;
saveDisp := 0; saveDisp := 0;
qualifiers := []; qualifiers := [];
kind := pointerType; kind := pointerType;

2
Parser.pas
View File

@ -4136,7 +4136,7 @@ var
{create a pointer type} {create a pointer type}
NextToken; NextToken;
tp := pointer(Malloc(sizeof(typeRecord))); tp := pointer(Malloc(sizeof(typeRecord)));
tp^.size := cgLongSize; tp^.size := cgPointerSize;
tp^.saveDisp := 0; tp^.saveDisp := 0;
tp^.qualifiers := []; tp^.qualifiers := [];
tp^.kind := pointerType; tp^.kind := pointerType;

6
Symbol.pas
View File

@ -581,7 +581,7 @@ case kind1 of
if tp1.kind = arrayType then if tp1.kind = arrayType then
tp1.kind := pointerType tp1.kind := pointerType
else if tp1.kind = functionType then begin else if tp1.kind = functionType then begin
tp1.size := cgLongSize; tp1.size := cgPointerSize;
tp1.qualifiers := []; tp1.qualifiers := [];
tp1.saveDisp := 0; tp1.saveDisp := 0;
tp1.kind := pointerType; tp1.kind := pointerType;
@ -590,7 +590,7 @@ case kind1 of
if tp2.kind = arrayType then if tp2.kind = arrayType then
tp2.kind := pointerType tp2.kind := pointerType
else if tp2.kind = functionType then begin else if tp2.kind = functionType then begin
tp2.size := cgLongSize; tp2.size := cgPointerSize;
tp2.qualifiers := []; tp2.qualifiers := [];
tp2.saveDisp := 0; tp2.saveDisp := 0;
tp2.kind := pointerType; tp2.kind := pointerType;
@ -1644,7 +1644,7 @@ with voidPtr^ do begin
end; {with} end; {with}
new(voidPtrPtr); {typeless pointer} new(voidPtrPtr); {typeless pointer}
with voidPtrPtr^ do begin with voidPtrPtr^ do begin
size := 4; size := cgPointerSize;
saveDisp := 0; saveDisp := 0;
qualifiers := []; qualifiers := [];
kind := pointerType; kind := pointerType;