The expiration time for new job artifacts in CI/CD pipelines is now 30 days (GitLab default). Previously generated artifacts in already completed jobs will not be affected by the change. The latest artifacts for all jobs in the latest successful pipelines will be kept. More information: https://gitlab.lrz.de/help/user/admin_area/settings/continuous_integration.html#default-artifacts-expiration

Commit 277cd082 authored by Martin Ruckert's avatar Martin Ruckert
Browse files

adapting mmixallib.ch to the extended mmixal mmixalex

parent e0f2b0ce
......@@ -65,11 +65,11 @@ Char *filename[257];
panic("Capacity exceeded: More than 256 file names");
filename_count++;
}
cur_file=k;
else free(filename[filename_count]);
@y
filename[k]='\0';
cur_file= filename2file(filename);
if (cur_file<0) panic("Capacity exceeded: More than 256 file names");
k= filename2file(filename);
if (k<0) panic("Capacity exceeded: More than 256 file names");
@z
......@@ -315,6 +315,19 @@ tetra z,y,x,yz,xyz; /* pieces for assembly */
static tetra z,y,x,yz,xyz; /* pieces for assembly */
@z
The following change is new for alex, the extended mmixal
@x
f = fopen(filename[k],"rb");
if (f==NULL) {
derr("unable to open file \"%s\"",filename[k]);@+goto bypass;@+}
@y
f = fopen(file2filename(k),"rb");
if (f==NULL) {
derr("unable to open file \"%s\"",file2filename(k));@+goto bypass;@+}
@z
The main() program becomes mmixal().
@x
......@@ -397,12 +410,11 @@ int main(argc,argv)
@<Type definitions@>@;
@<Global variables@>@;
#include "libimport.h"
#include "libname.h"
extern void report_error(char * message, int file_no, int line_no);
extern jmp_buf mmixal_exit;
extern char *file2filename(int file_no);
extern int filename2file(char *filename);
@<Subroutines@>@;
@#
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment