github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-01-13 23:25:24 +00:00
Code Issues Releases Wiki Activity

Correct LITC generation in Algol compiler GOTOSOLVER parameter setup.

Browse Source
This commit is contained in:
Paul Kimpel 2012-10-19 16:21:03 +00:00
parent 5ba4aa5baf
commit 307fad03d7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
SYMBOL/ALGOL.alg_m
View File

@ -5117,7 +5117,7 @@ COMMENT SET UP CODE FOR RELATIONAL OPERATOR TO BE 06284600
THEN BEGIN 06366000
COMMENT OUR BAD GO TO IS JUMPING OUTSIDE OF ALL PROCEDURES; 06367000
EMIT(0); 06368000
EMIT(TLEVEL); END 06369000
EMITL(TLEVEL); END 06369000
ELSE BEGIN 06370000
EMITN(512); 06371000
EMITV(513); COMMENT PICK UP BLOCKCTR AT ENTRY 06372000

2
tools/xem/ALGOLXEM.alg_m
View File

@ -8734,7 +8734,7 @@ EXIT: 39315000
BEGIN 39460000=06366000=
COMMENT OUR BAD GO TO IS JUMPING OUTSIDE OF ALL PROCEDURES; 39465000=06367000=
EMIT(0); 39470000=06368000=
EMIT(TLEVEL); 39475000=06369000=
EMITL(TLEVEL); 39475000=06369000=
END 39480000=06370000=
ELSE 39485000=06370000=
BEGIN 39490000=06370000=