| class CHECK_AM < $CHECK_AM |
|---|
| **** | Check the code for routines which aren't called, but don't output any am code for them. |
| $CHECK_AM | CS_COMPONENT |
| attr prog:PROG; |
|---|
| attr prog:PROG; |
|---|
| barf(msg:STR) |
|---|
| **** | Something wrong within the compiler, but we can't say where. |
| barf_at(msg:STR,at:$PROG_ERR) |
|---|
| **** | Something wrong, and we know where. |
| check_code |
|---|
| **** |
______sig_out_:=_prog.generate_am.sig_out; |
| check_sig(s:SIG) |
|---|
| **** | Check `s' for errors, but only generate code for it if `generate_checked_code' is true. |
| create(p:PROG):SAME |
|---|
| err(s:STR) |
|---|
| **** | Report an error. |
| err_loc(t:$PROG_ERR) |
|---|
| **** | Set where a future error should be reported at. |
| warning(s:STR) |
|---|
| **** | report a warning (doesn't stop compile); |