github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-02-08 16:21:15 +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
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