Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-06-10 22:29:27 +00:00
Code Issues Projects Releases Wiki Activity

Add support for new flags in precompiled headers, and bump sym file version.

Browse Source
This commit is contained in:
Stephen Heumann 2017-09-10 15:43:01 -05:00
parent c588eda94e
commit 275a2cc176
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Header.pas
View File

@ -17,6 +17,9 @@ uses CCommon, MM, Scanner, Symbol, CGI;
{$segment 'SCANNER'} {$segment 'SCANNER'}
const
symFileVersion = 2; {version number of .sym file format}
var var
inhibitHeader: boolean; {should .sym includes be blocked?} inhibitHeader: boolean; {should .sym includes be blocked?}
@ -810,11 +813,12 @@ procedure EndInclude {chPtr: ptr};
WriteString(openName); WriteString(openName);
p_debug: p_debug:
WriteByte(ord(rangeCheck) WriteWord(ord(rangeCheck)
| (ord(debugFlag) << 1) | (ord(debugFlag) << 1)
| (ord(profileFlag) << 2) | (ord(profileFlag) << 2)
| (ord(traceBack) << 3) | (ord(traceBack) << 3)
| (ord(checkStack) << 4)); | (ord(checkStack) << 4)
| (ord(debugStrFlag) << 15));
p_lint: WriteWord(lint); p_lint: WriteWord(lint);
@ -856,8 +860,10 @@ procedure EndInclude {chPtr: ptr};
end; {while} end; {while}
end; {p_path} end; {p_path}
p_ignore: WriteByte(ord(skipIllegalTokens) p_ignore:
+ (ord(slashSlashComments) << 3)); WriteByte(ord(skipIllegalTokens)
| (ord(allowLongIntChar) << 1)
| (ord(slashSlashComments) << 3));
p_segment: begin p_segment: begin
for i := 1 to 10 do begin for i := 1 to 10 do begin
@ -1212,7 +1218,7 @@ var
if ToolError = 0 then begin if ToolError = 0 then begin
symRefnum := opRec.refnum; symRefnum := opRec.refnum;
OpenSymbols := true; OpenSymbols := true;
WriteWord(1); WriteWord(symFileVersion);
tokenMark := GetMark; tokenMark := GetMark;
includeMark := false; includeMark := false;
end; {if} end; {if}
@ -1433,12 +1439,13 @@ var
end; end;
p_debug: begin p_debug: begin
val := ReadByte; val := ReadWord;
rangeCheck := odd(val); rangeCheck := odd(val);
debugFlag := odd(val >> 1); debugFlag := odd(val >> 1);
profileFlag := odd(val >> 2); profileFlag := odd(val >> 2);
traceback := odd(val >> 3); traceback := odd(val >> 3);
checkStack := odd(val >> 4); checkStack := odd(val >> 4);
debugStrFlag := odd(val >> 15);
end; end;
p_lint: lint := ReadWord; p_lint: lint := ReadWord;
@ -1488,6 +1495,7 @@ var
p_ignore: begin p_ignore: begin
i := ReadByte; i := ReadByte;
skipIllegalTokens := odd(i); skipIllegalTokens := odd(i);
allowLongIntChar := odd(i >> 1);
slashSlashComments := odd(i >> 3); slashSlashComments := odd(i >> 3);
end; end;
@ -1833,7 +1841,7 @@ if not ignoreSymbols then begin
includeLevel := 0; {no nested includes} includeLevel := 0; {no nested includes}
symChPtr := chPtr; {record initial source location} symChPtr := chPtr; {record initial source location}
if OpenSymbolFile(fName) then begin {check for symbol file} if OpenSymbolFile(fName) then begin {check for symbol file}
if SymbolVersion = 1 then begin if SymbolVersion = symFileVersion then begin
done := EndOfSymbols; {valid file found - process it} done := EndOfSymbols; {valid file found - process it}
if done then if done then
PurgeSymbols; PurgeSymbols;