diff --git a/src/toolsrc/parse.pla b/src/toolsrc/parse.pla index e5f8588..c444eb4 100644 --- a/src/toolsrc/parse.pla +++ b/src/toolsrc/parse.pla @@ -402,7 +402,7 @@ def parse_value(codeseq, r_val)#2 else deref++ fin - type = (type & PTR_TYPE) | token == PTRB_TKN ?? BYTE_TYPE :: WORD_TYPE + type = token == PTRB_TKN ?? BYTE_TYPE :: WORD_TYPE if not parse_const(@const_offset) rewind(tknptr) // Setting type override for following operations elsif const_offset <> 0 @@ -421,7 +421,7 @@ def parse_value(codeseq, r_val)#2 elsif not (type & VAR_TYPE) deref++ fin - type = (type & VAR_TYPE) | (token == DOT_TKN ?? BYTE_TYPE :: WORD_TYPE) + type = token == DOT_TKN ?? BYTE_TYPE :: WORD_TYPE if not parse_const(@const_offset) rewind(tknptr) // Setting type override for following operations elsif const_offset <> 0 diff --git a/src/toolsrc/plasm.pla b/src/toolsrc/plasm.pla index eeb5ffb..5da3dc6 100644 --- a/src/toolsrc/plasm.pla +++ b/src/toolsrc/plasm.pla @@ -411,7 +411,7 @@ include "toolsrc/parse.pla" // // Look at command line arguments and compile module // -puts("PLASMA Compiler, Version 1.01\n") +puts("PLASMA Compiler, Version 1.02\n") arg = argNext(argFirst) if ^arg and ^(arg + 1) == '-' opt = arg + 2 diff --git a/src/vmsrc/soscmd.pla b/src/vmsrc/soscmd.pla index 0deeb6a..4afce58 100755 --- a/src/vmsrc/soscmd.pla +++ b/src/vmsrc/soscmd.pla @@ -29,7 +29,7 @@ predef execmod(modfile)#1 // // Exported CMDSYS table // -word version = $0101 // 01.01 +word version = $0102 // 01.02 word syspath word cmdlnptr word = @execmod @@ -1500,6 +1500,7 @@ while 1 saveX execmod(striptrail(cmdptr)) restoreX + //close(0) init_cons break otherwise