mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-10-31 17:04:42 +00:00
Remove an unused string representation of macro tokens.
The string representation of macro tokens is needed for some preprocessor operations, but we get this in other ways (e.g. based on tokenStart/tokenEnd).
This commit is contained in:
parent
8f27b8abdb
commit
6cfe8cc886
@ -18,7 +18,7 @@ uses CCommon, MM, Scanner, Symbol, CGI;
|
||||
{$segment 'SCANNER'}
|
||||
|
||||
const
|
||||
symFileVersion = 23; {version number of .sym file format}
|
||||
symFileVersion = 24; {version number of .sym file format}
|
||||
|
||||
var
|
||||
inhibitHeader: boolean; {should .sym includes be blocked?}
|
||||
@ -744,7 +744,6 @@ procedure EndInclude {chPtr: ptr};
|
||||
tp := mp^.tokens; {loop over token list}
|
||||
while tp <> nil do begin
|
||||
WriteByte(1); {write tokenListRecord}
|
||||
WriteLongString(tp^.tokenString);
|
||||
WriteToken(tp^.token);
|
||||
WriteByte(ord(tp^.expandEnabled));
|
||||
WriteChars(tp^.tokenStart, tp^.tokenEnd);
|
||||
@ -1387,7 +1386,6 @@ var
|
||||
while ReadByte <> 0 do begin
|
||||
tp := pointer(GMalloc(sizeof(tokenListRecord)));
|
||||
tp^.next := nil;
|
||||
tp^.tokenString := ReadLongString;
|
||||
ReadToken(tp^.token);
|
||||
tp^.expandEnabled := boolean(ReadByte);
|
||||
ReadChars(tp^.tokenStart, tp^.tokenEnd);
|
||||
|
16
Scanner.pas
16
Scanner.pas
@ -46,7 +46,6 @@ type
|
||||
tokenListRecordPtr = ^tokenListRecord;
|
||||
tokenListRecord = record {element of a list of tokens}
|
||||
next: tokenListRecordPtr; {next element in list}
|
||||
tokenString: longStringPtr; {string making up the token}
|
||||
token: tokenType; {token}
|
||||
expandEnabled: boolean; {can this token be macro expanded?}
|
||||
tokenStart,tokenEnd: ptr; {token start/end markers}
|
||||
@ -2459,11 +2458,6 @@ var
|
||||
pnum: integer; {for counting parameters}
|
||||
tPtr,tk1,tk2: tokenListRecordPtr; {pointer to a token}
|
||||
|
||||
{for building token strings}
|
||||
sptr: longStringPtr; {token string work pointer}
|
||||
tcp: ptr; {temp character pointer}
|
||||
slen: integer; {token string length}
|
||||
|
||||
begin {DoDefine}
|
||||
expandMacros := false; {block expansions}
|
||||
saveNumber := true; {save characters in numeric tokens}
|
||||
@ -2584,15 +2578,6 @@ var
|
||||
tPtr^.tokenStart := tokenStart;
|
||||
tPtr^.tokenEnd := tokenEnd;
|
||||
tPtr^.expandEnabled := true;
|
||||
slen := ord(ord4(chPtr) - ord4(tokenStart));
|
||||
sptr := pointer(GMalloc(slen+2));
|
||||
sptr^.length := slen;
|
||||
tcp := tokenStart;
|
||||
for i := 1 to slen do begin
|
||||
sptr^.str[i] := chr(tcp^);
|
||||
tcp := pointer(ord4(tcp)+1);
|
||||
end; {for}
|
||||
tPtr^.tokenString := sptr;
|
||||
NextToken;
|
||||
end; {while}
|
||||
mPtr^.readOnly := false;
|
||||
@ -4365,7 +4350,6 @@ repeat
|
||||
new(mp^.tokens);
|
||||
with mp^.tokens^ do begin
|
||||
next := nil;
|
||||
tokenString := @'';
|
||||
expandEnabled := true;
|
||||
end; {with}
|
||||
token.kind := intconst; {create the default value}
|
||||
|
Loading…
Reference in New Issue
Block a user