d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Removed unbalanced quotes in comments, needed for new cpp

Browse source
This commit is contained in:
sater 1984-07-12 10:50:47 +00:00
parent 2f56cb1cad
commit 4001b657db
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lang/pc/pem/pem.p
View file

@ -34,7 +34,8 @@
#endif #endif
program pem(input,em,errors); program pem(input,em,errors);
{ This Pascal compiler produces EM code as described in {/*
This Pascal compiler produces EM code as described in
- A.S.Tanenbaum, J.W.Stevenson & H. van Staveren, - A.S.Tanenbaum, J.W.Stevenson & H. van Staveren,
"Description of a machine architecture for use with "Description of a machine architecture for use with
block structured languages" Informatika rapport 81. block structured languages" Informatika rapport 81.
@ -55,7 +56,7 @@ program pem(input,em,errors);
s: accept only standard pascal programs (-) s: accept only standard pascal programs (-)
t: trace procedure entry and exit (-) t: trace procedure entry and exit (-)
u: treat '_' as letter (-) u: treat '_' as letter (-)
} */}
{===================================================================} {===================================================================}
#ifdef STANDARD #ifdef STANDARD
label 9999; label 9999;
@ -271,10 +272,10 @@ type
standard:(key:standpf); {identification} standard:(key:standpf); {identification}
formal,actual,forward,extern,varargs: formal,actual,forward,extern,varargs:
(pfpos:position; {lv gives declaration level. (pfpos:position; {lv gives declaration level.
ad is relevant for formal pf's and for ad is relevant for formal pf s and for
functions (no conflict!!). functions (no conflict!!).
for functions: ad is the result address. for functions: ad is the result address.
for formal pf's: ad is the address of the for formal pf s: ad is the address of the
descriptor } descriptor }
pfno:integer; {unique pf number} pfno:integer; {unique pf number}
maxlb:integer; {bytes of parameters} maxlb:integer; {bytes of parameters}
@ -324,7 +325,7 @@ var {the most frequent used externals are declared first}
charptr,nilptr,zeroptr,procptr,longptr:sp; charptr,nilptr,zeroptr,procptr,longptr:sp;
{flags} {flags}
giveline:boolean; {give source line number at next statement} giveline:boolean; {give source line number at next statement}
including:boolean; {no LIN's for included code} including:boolean; {no LINs for included code}
eofexpected:boolean; {quit without error if true (nextch) } eofexpected:boolean; {quit without error if true (nextch) }
main:boolean; {complete programme or a module} main:boolean; {complete programme or a module}
intypedec:boolean; {true if nested in typedefinition} intypedec:boolean; {true if nested in typedefinition}
@ -1007,7 +1008,7 @@ begin lastnp:=top;
end; end;
function searchsection(fip: ip):ip; function searchsection(fip: ip):ip;
{to find record fields and forward declared procedure id's {to find record fields and forward declared procedure identifiers
-->procedure pfdeclaration -->procedure pfdeclaration
-->procedure selector} -->procedure selector}
label 1; label 1;
@ -2014,7 +2015,7 @@ begin with b do begin savlb:=reglb; ftype:=textptr;
begin loadaddr; temporary(nilptr,reg_pointer); begin loadaddr; temporary(nilptr,reg_pointer);
store; a.ak:=pfixed store; a.ak:=pfixed
end; end;
fa:=a; {store doesn't change a} fa:=a; {store does not change a}
if (sy<>comma) and not ln then error(+0154); if (sy<>comma) and not ln then error(+0154);
end end
else else