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

Remove segStart variable.

Browse Source 
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}
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}
{---------------------------------------------------------------}
@ -303,7 +302,7 @@ begin {PurgeObjBuffer}
if spoolRefnum = 0 then {make sure the spool file exists}
InitSpoolFile;
sPtr := objHandle^; {determine size of completed segments}
len := ord4(segStart) - ord4(sPtr);
len := ord4(objPtr) - ord4(sPtr);
if len <> 0 then begin
wrRec.pcount := 4; {write completed segments}
wrRec.refnum := spoolRefnum;
@ -313,9 +312,8 @@ if len <> 0 then begin
if ToolError <> 0 then {check for write errors}
TermError(9);
objLen := 0; {adjust file pointers}
BlockMove(segStart, sPtr, segDisp);
BlockMove(objPtr, sPtr, segDisp);
objPtr := sPtr;
segStart := sPtr;
end; {if}
end; {PurgeObjBuffer}
@ -439,7 +437,6 @@ longPtr := pointer(objPtr); {set the block count}
longPtr^ := segDisp;
objLen := objLen + segDisp; {update the length of the obj file}
objPtr := pointer(ord4(objHandle^)+objLen); {set objPtr}
segStart := objPtr;
if objLen = buffSize then
PurgeObjBuffer;
currentSegment := defaultSegment; {revert to default segment name}
@ -526,7 +523,6 @@ procedure OpenSeg;
begin {OpenSeg}
segDisp := 0;
segStart := objPtr;
end; {OpenSeg}