Rev 8859 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8859 | Rev 9579 | ||
|---|---|---|---|
| Line 1223... | Line 1223... | ||
| 1223 | label: INTEGER; |
1223 | label: INTEGER; |
| 1224 | name: INTEGER; |
1224 | name: INTEGER; |
| 1225 | endmod: BOOLEAN; |
1225 | endmod: BOOLEAN; |
| 1226 | errlabel: INTEGER; |
1226 | errlabel: INTEGER; |
| 1227 | errno: INTEGER; |
1227 | errno: INTEGER; |
| - | 1228 | ident: PROG.IDENT; |
|
| Line 1228... | Line 1229... | ||
| 1228 | 1229 | ||
| 1229 | BEGIN |
1230 | BEGIN |
| 1230 | ASSERT(parser # NIL); |
1231 | ASSERT(parser # NIL); |
| Line 1251... | Line 1252... | ||
| 1251 | INC(modules); |
1252 | INC(modules); |
| Line 1252... | Line 1253... | ||
| 1252 | 1253 | ||
| 1253 | CONSOLE.String("compiling "); |
1254 | CONSOLE.String("compiling "); |
| 1254 | CONSOLE.String("("); CONSOLE.Int(modules); CONSOLE.String(") "); |
1255 | CONSOLE.String("("); CONSOLE.Int(modules); CONSOLE.String(") "); |
| 1255 | CONSOLE.String(unit.name.s); |
1256 | CONSOLE.String(unit.name.s); |
| 1256 | IF parser.unit.sysimport THEN |
1257 | IF unit.sysimport THEN |
| 1257 | CONSOLE.String(" (SYSTEM)") |
1258 | CONSOLE.String(" (SYSTEM)") |
| 1258 | END; |
1259 | END; |
| Line -... | Line 1260... | ||
| - | 1260 | CONSOLE.Ln; |
|
| - | 1261 | ||
| - | 1262 | IF PROG.program.options.uses THEN |
|
| - | 1263 | ident := unit.idents.first(PROG.IDENT); |
|
| - | 1264 | WHILE ident # NIL DO |
|
| - | 1265 | IF (ident.typ = PROG.idMODULE) & (ident.unit # PROG.program.sysunit) THEN |
|
| - | 1266 | CONSOLE.String(" "); CONSOLE.String(ident.unit.fname); CONSOLE.Ln |
|
| - | 1267 | END; |
|
| - | 1268 | ident := ident.next(PROG.IDENT) |
|
| - | 1269 | END; |
|
| - | 1270 | CONSOLE.Ln |
|
| 1259 | CONSOLE.Ln; |
1271 | END; |
| 1260 | 1272 | ||
| 1261 | IF TARGETS.CPU IN {TARGETS.cpuX86, TARGETS.cpuAMD64} THEN |
1273 | IF TARGETS.CPU IN {TARGETS.cpuX86, TARGETS.cpuAMD64} THEN |
| Line 1262... | Line 1274... | ||
| 1262 | IL.fname(parser.fname) |
1274 | IL.fname(parser.fname) |