Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Remove segStart variable. 

It is the same as objPtr in all meaningful cases, so there is no need for it to be a separate variable.
This commit is contained in:
Stephen Heumann 2022-12-06 19:39:10 -06:00
parent 8aedd42294
commit 389f60ed27
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ObjOut.pas
View File

@ -217,9 +217,8 @@ var
objLen: longint; {# bytes used in obj buffer} objLen: longint; {# bytes used in obj buffer}
objHandle: handle; {handle of the obj buffer} objHandle: handle; {handle of the obj buffer}
objPtr: ptr; {pointer to the next spot in the obj buffer} objPtr: ptr; {points to first byte in current segment}
segStart: ptr; {points to first byte in current segment}
spoolRefnum: integer; {reference number for open file} spoolRefnum: integer; {reference number for open file}
{---------------------------------------------------------------} {---------------------------------------------------------------}
@ -303,7 +302,7 @@ begin {PurgeObjBuffer}
if spoolRefnum = 0 then {make sure the spool file exists} if spoolRefnum = 0 then {make sure the spool file exists}
InitSpoolFile; InitSpoolFile;
sPtr := objHandle^; {determine size of completed segments} sPtr := objHandle^; {determine size of completed segments}
len := ord4(segStart) - ord4(sPtr); len := ord4(objPtr) - ord4(sPtr);
if len <> 0 then begin if len <> 0 then begin
wrRec.pcount := 4; {write completed segments} wrRec.pcount := 4; {write completed segments}
wrRec.refnum := spoolRefnum; wrRec.refnum := spoolRefnum;
@ -313,9 +312,8 @@ if len <> 0 then begin
if ToolError <> 0 then {check for write errors} if ToolError <> 0 then {check for write errors}
TermError(9); TermError(9);
objLen := 0; {adjust file pointers} objLen := 0; {adjust file pointers}
BlockMove(segStart, sPtr, segDisp); BlockMove(objPtr, sPtr, segDisp);
objPtr := sPtr; objPtr := sPtr;
segStart := sPtr;
end; {if} end; {if}
end; {PurgeObjBuffer} end; {PurgeObjBuffer}
@ -439,7 +437,6 @@ longPtr := pointer(objPtr); {set the block count}
longPtr^ := segDisp; longPtr^ := segDisp;
objLen := objLen + segDisp; {update the length of the obj file} objLen := objLen + segDisp; {update the length of the obj file}
objPtr := pointer(ord4(objHandle^)+objLen); {set objPtr} objPtr := pointer(ord4(objHandle^)+objLen); {set objPtr}
segStart := objPtr;
if objLen = buffSize then if objLen = buffSize then
PurgeObjBuffer; PurgeObjBuffer;
currentSegment := defaultSegment; {revert to default segment name} currentSegment := defaultSegment; {revert to default segment name}
@ -526,7 +523,6 @@ procedure OpenSeg;
begin {OpenSeg} begin {OpenSeg}
segDisp := 0; segDisp := 0;
segStart := objPtr;
end; {OpenSeg} end; {OpenSeg}