godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added debugger support

Browse Source
This commit is contained in:
ceriel
1990-12-11 13:52:08 +00:00
parent c7c40b7551
commit ae977f0aa8
15 changed files with 449 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lang/pc/comp/desig.c
View File

@@ -435,20 +435,19 @@ CodeBoundDesig(df, ds)
if( df->df_scope->sc_level < proclevel ) {
C_lxa((arith) (proclevel - df->df_scope->sc_level));
C_lof(df->bnd_type->arr_cfdescr);
if( df->df_kind == D_UBOUND ) {
C_ldf(df->bnd_type->arr_cfdescr);
C_lxa((arith) (proclevel - df->df_scope->sc_level));
C_lof(df->bnd_type->arr_cfdescr+word_size);
C_adi(word_size);
}
else
C_lof(df->bnd_type->arr_cfdescr);
}
else {
C_lol(df->bnd_type->arr_cfdescr);
if( df->df_kind == D_UBOUND ) {
C_ldl(df->bnd_type->arr_cfdescr);
C_lol(df->bnd_type->arr_cfdescr+word_size);
C_adi(word_size);
}
else
C_lol(df->bnd_type->arr_cfdescr);
}
ds->dsg_kind = DSG_LOADED;