Don't use LOCS in two different type definitions (dubious).
[pdp10-muddle.git] / <mdl.int> / muddle.347
index cb732d5704fba6a332e0645147aa6212464dd1ee..fa4e069c260438d4d917b9766f8a370048598e23 100644 (file)
@@ -425,7 +425,7 @@ DEFINE PRMACR HACKER
 
 IRP A,,[1WORD,2WORD,2DEFRD,NWORD,2NWORD,TPSTK,PSTK,ARGS
 ABASE,TBASE,FRAME,BYTE,ATOM,LOCID,PVP,CHSTR,ASOC,INFO,STORE
-LOCA,LOCD,LOCS,LOCU,LOCV,LOCL,LOCN,GATOM,LOCR,LOCT,RDTB,LOCB
+LOCA,LOCD,LOCS,LOCSX,LOCU,LOCV,LOCL,LOCN,GATOM,LOCR,LOCT,RDTB,LOCB
 DEFQ,OFFS]
 
 HACKER A
@@ -460,7 +460,7 @@ TERMIN
 ]
 
 
-RMT [EXPUNGE GENERAL,NUMSTA
+RMT [EXPUNGE GENERAL,NUMSAT
 ]
 
 DEFINE XPUNGR A
@@ -542,7 +542,7 @@ TYPMAK SBYTE,[[BYTE,BYTES]]
 TYPMAK SFRAME,[[ENV,ENVIRONMENT],[ACT,ACTIVATION,1,1]]
 TYPMAK SASOC,[ASOC]
 TYPMAK SLOCU,[[LOCU,,,1]]
-TYPMAK SLOCS,[[LOCS,,,1]]
+TYPMAK SLOCS,[[LOCSX,,,1]]
 TYPMAK SLOCA,[[LOCA,,,1]]
 TYPMAK S1WORD,[[CBLK,IN]]
 TYPMAK STMPLT,[[TMPLT,TEMPLATE,1,1]]
@@ -578,7 +578,7 @@ TYPMAK SOFFS,[[OFFS,OFFSET]]
 IFN MAIN,[RMT [LOC SAVE
        ]
        ]
-IF2,EXPUNGE TYPMAK,DOTYPS
+IF2,EXPUNGE TYPMAK
 \f
 RMT [EQUALS XP EXPUNGE
 IF2,XP STMPLT