| /programs/develop/oberon07/source/RVM32I.ob07 |
|---|
| File deleted |
| \ No newline at end of file |
| /programs/develop/oberon07/source/Compiler.ob07 |
|---|
| 136,6 → 136,9 |
| ELSIF param = "-pic" THEN |
| options.pic := TRUE |
| ELSIF param = "-uses" THEN |
| options.uses := TRUE |
| ELSIF param = "-def" THEN |
| INC(i); |
| UTILS.GetArg(i, param); |
| 192,6 → 195,7 |
| options.version := 65536; |
| options.pic := FALSE; |
| options.lower := FALSE; |
| options.uses := FALSE; |
| options.checking := ST.chkALL; |
| PATHS.GetCurrentDirectory(app_path); |
| 245,6 → 249,7 |
| C.StringLn(" -ram <size> set size of RAM in bytes (MSP430) or Kbytes (STM32)"); C.Ln; |
| C.StringLn(" -rom <size> set size of ROM in bytes (MSP430) or Kbytes (STM32)"); C.Ln; |
| C.StringLn(" -tab <width> set width for tabs"); C.Ln; |
| C.StringLn(" -uses list imported modules"); C.Ln; |
| UTILS.Exit(0) |
| END; |
| /programs/develop/oberon07/source/PARS.ob07 |
|---|
| 1225,6 → 1225,7 |
| endmod: BOOLEAN; |
| errlabel: INTEGER; |
| errno: INTEGER; |
| ident: PROG.IDENT; |
| BEGIN |
| ASSERT(parser # NIL); |
| 1253,11 → 1254,22 |
| CONSOLE.String("compiling "); |
| CONSOLE.String("("); CONSOLE.Int(modules); CONSOLE.String(") "); |
| CONSOLE.String(unit.name.s); |
| IF parser.unit.sysimport THEN |
| IF unit.sysimport THEN |
| CONSOLE.String(" (SYSTEM)") |
| END; |
| CONSOLE.Ln; |
| IF PROG.program.options.uses THEN |
| ident := unit.idents.first(PROG.IDENT); |
| WHILE ident # NIL DO |
| IF (ident.typ = PROG.idMODULE) & (ident.unit # PROG.program.sysunit) THEN |
| CONSOLE.String(" "); CONSOLE.String(ident.unit.fname); CONSOLE.Ln |
| END; |
| ident := ident.next(PROG.IDENT) |
| END; |
| CONSOLE.Ln |
| END; |
| IF TARGETS.CPU IN {TARGETS.cpuX86, TARGETS.cpuAMD64} THEN |
| IL.fname(parser.fname) |
| END; |
| /programs/develop/oberon07/source/PROG.ob07 |
|---|
| 72,7 → 72,7 |
| OPTIONS* = RECORD |
| version*, stack*, ram*, rom*, tab*: INTEGER; |
| pic*, lower*: BOOLEAN; |
| pic*, lower*, uses*: BOOLEAN; |
| checking*: SET |
| END; |
| /programs/develop/oberon07/source/UTILS.ob07 |
|---|
| 23,8 → 23,8 |
| max32* = 2147483647; |
| vMajor* = 1; |
| vMinor* = 53; |
| Date* = "26-aug-2021"; |
| vMinor* = 54; |
| Date* = "20-dec-2021"; |
| FILE_EXT* = ".ob07"; |
| RTL_NAME* = "RTL"; |