From 9e9f8c4475f21ca28a27f8d376b762db2dcb19a9 Mon Sep 17 00:00:00 2001 From: Bruce Mitchener Date: Sun, 24 Jan 2021 01:39:55 +0700 Subject: [PATCH] Remove profile.h (#272) This no longer had anything to do with profiling and was only doing some defines for the switch case block addresses, which we no longer need since there's no longer optional asm generated for them. --- CMakeLists.txt | 1 - bin/dosmkfil | 4 +- bin/legacy/makefile-sunos3.mc68020 | 2 +- bin/legacy/makefile-sunos3.mc68020-multi | 2 +- bin/legacy/makefile-sunos3.mc68020-x | 2 +- bin/legacy/makefile-sunos4.1.i386 | 2 +- bin/legacy/makefile-sunos4.1.i386-multi | 2 +- bin/legacy/makefile-sunos4.1.mc68020 | 2 +- bin/legacy/makefile-sunos4.1.mc68020-multi | 2 +- bin/legacy/makefile-sunos4.1.mc68020-x | 2 +- bin/legacy/makefile-sunos4.i386 | 2 +- bin/legacy/makefile-sunos4.i386-multi | 2 +- bin/legacy/makefile-sunos4.mc68020 | 2 +- bin/legacy/makefile-sunos4.mc68020-multi | 2 +- bin/legacy/makefile-sunos4.mc68020-x | 2 +- bin/makefile-dos | 4 +- bin/makefile-tail | 10 +- bin/makefile.dos | 4 +- bin/mkdos | 4 +- bin/mkfile | 4 +- bin/mkfile.c | 4 +- bin/mkfile.i | 4 +- inc/profile.h | 274 ----------- src/main.c | 1 - src/miscn.c | 1 - src/subr.c | 1 - src/xc.c | 515 ++++++++++----------- 27 files changed, 288 insertions(+), 569 deletions(-) delete mode 100644 inc/profile.h diff --git a/CMakeLists.txt b/CMakeLists.txt index 6508461..672cc00 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -356,7 +356,6 @@ SET(MAIKO_HDRS inc/picture.h inc/pilotbbt.h inc/print.h - inc/profile.h inc/rawrs232c.h inc/returndefs.h inc/return.h diff --git a/bin/dosmkfil b/bin/dosmkfil index 0f2edad..4280c5d 100644 --- a/bin/dosmkfil +++ b/bin/dosmkfil @@ -18,7 +18,7 @@ SRCFILES = conspage.c gcoflow.c shift.c dbgtool.c gcr.c gcrcell.c llstk. OFILES = conspage.obj gcoflow.obj shift.obj dbgtool.obj gcr.obj gcrcell.obj llstk.obj gcscan.obj loopsops.obj storage.obj allocmds.obj dir.obj gvar2.obj lowlev1.obj subr.obj arith2.obj lowlev2.obj subr0374.obj arith3.obj doscomm.obj hardrtn.obj lsthandl.obj sxhash.obj arith4.obj draw.obj main.obj testtool.obj array.obj dsk.obj inet.obj misc7.obj timer.obj array2.obj dspif.obj initdsp.obj miscn.obj typeof.obj array3.obj initkbd.obj ubf1.obj array4.obj dspsubrs.obj initsout.obj mkatom.obj ubf2.obj array5.obj eqf.obj intcall.obj mkcell.obj ubf3.obj array6.obj ether.obj ufn.obj atom.obj findkey.obj kbdsubrs.obj mouseif.obj ufs.obj bbtsub.obj foreign.obj keyevent.obj unixcomm.obj bin.obj fp.obj binds.obj fvar.obj mvs.obj unwind.obj bitblt.obj gc.obj uraid.obj blt.obj gc2.obj kprint.obj osmsg.obj usrsubr.obj byteswap.obj gcarray.obj perrno.obj uutils.obj carcdr.obj asmbbt.obj gccode.obj vars3.obj gcfinal.obj ldsout.obj return.obj vmemsave.obj chardev.obj gchtfind.obj lineblt8.obj rpc.obj xc.obj common.obj gcmain3.obj lisp2c.obj rplcons.obj z2.obj vdate.obj $(COLORFILES) $(ARCHFILES) $(LPFILES) -HFILES = address.h adr68k.h arith.h cell.h dbprint.h display.h dspif.h ifpage.h iopage.h lispemul.h lispmap.h lsptypes.h miscstat.h lspglob.h array.h bb.h bitblt.h debug.h devconf.h dspdata.h ether.h fast_dsp.h gcdata.h hdw_conf.h initatms.h inlinec.h keyboard.h lispver1.h lispver2.h lldsp.h locfile.h medleyfp.h mouseif.h my.h opcodes.h osmsg.h pilotbbt.h print.h profile.h return.h stack.h stream.h subrs.h timeout.h tos1defs.h tosfns.h tosret.h vmemsave.h xdefs.h xbitmaps.h xkeymap.h +HFILES = address.h adr68k.h arith.h cell.h dbprint.h display.h dspif.h ifpage.h iopage.h lispemul.h lispmap.h lsptypes.h miscstat.h lspglob.h array.h bb.h bitblt.h debug.h devconf.h dspdata.h ether.h fast_dsp.h gcdata.h hdw_conf.h initatms.h inlinec.h keyboard.h lispver1.h lispver2.h lldsp.h locfile.h medleyfp.h mouseif.h my.h opcodes.h osmsg.h pilotbbt.h print.h return.h stack.h stream.h subrs.h timeout.h tos1defs.h tosfns.h tosret.h vmemsave.h xdefs.h xbitmaps.h xkeymap.h @@ -35,7 +35,7 @@ emul.exe : $(OFILES) del copts @ echo "Executable is now named '$@'" -main.o : lispemul.h address.h lsptypes.h adr68k.h stack.h lspglob.h lispmap.h ifpage.h iopage.h return.h debug.h profile.h +main.o : lispemul.h address.h lsptypes.h adr68k.h stack.h lspglob.h lispmap.h ifpage.h iopage.h return.h debug.h diff --git a/bin/legacy/makefile-sunos3.mc68020 b/bin/legacy/makefile-sunos3.mc68020 index 826af95..c02c010 100644 --- a/bin/legacy/makefile-sunos3.mc68020 +++ b/bin/legacy/makefile-sunos3.mc68020 @@ -26,5 +26,5 @@ $(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \ $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(INCDIR)inline68K.h \ $(INCDIR)inlineSPARC.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o diff --git a/bin/legacy/makefile-sunos3.mc68020-multi b/bin/legacy/makefile-sunos3.mc68020-multi index 486dfd0..cba4bab 100644 --- a/bin/legacy/makefile-sunos3.mc68020-multi +++ b/bin/legacy/makefile-sunos3.mc68020-multi @@ -32,7 +32,7 @@ $(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \ $(INCDIR)tosfuncallmacro.h $(INCDIR)inlinedefsC.h \ $(INCDIR)inlinedefs68K.h \ $(INCDIR)inlinedefsSPARC.h $(INCDIR)fastdispatch.h \ - $(INCDIR)fastinlinedefs68K.h $(INCDIR)profile.h + $(INCDIR)fastinlinedefs68K.h cc $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o diff --git a/bin/legacy/makefile-sunos3.mc68020-x b/bin/legacy/makefile-sunos3.mc68020-x index 1c9a135..2d3d162 100644 --- a/bin/legacy/makefile-sunos3.mc68020-x +++ b/bin/legacy/makefile-sunos3.mc68020-x @@ -53,5 +53,5 @@ $(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \ $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(INCDIR)inline68K.h \ $(INCDIR)inlineSPARC.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o diff --git a/bin/legacy/makefile-sunos4.1.i386 b/bin/legacy/makefile-sunos4.1.i386 index 11c8b9b..f882ce2 100644 --- a/bin/legacy/makefile-sunos4.1.i386 +++ b/bin/legacy/makefile-sunos4.1.i386 @@ -28,7 +28,7 @@ $(OBJECTDIR)xc.i: $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h $(IN $(INCDIR)n_op_inlineC.h $(SRCDIR)disp386i.il \ $(INCDIR)dummy_entries.h \ $(INCDIR)inline386i.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc -c -O -Qproduce .s $(DFLAGS) -I$(INCDIR) $(SRCDIR)xc.c -o $(OBJECTDIR)xc.s #run c compiler to produce first pass assembly diff --git a/bin/legacy/makefile-sunos4.1.i386-multi b/bin/legacy/makefile-sunos4.1.i386-multi index 3b91157..d03189c 100644 --- a/bin/legacy/makefile-sunos4.1.i386-multi +++ b/bin/legacy/makefile-sunos4.1.i386-multi @@ -29,7 +29,7 @@ $(OBJECTDIR)xc.s: $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h $(IN $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(SRCDIR)disp386i.il \ $(INCDIR)inline386i.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc -c -O -Qproduce .s $(DFLAGS) -I$(INCDIR) $(SRCDIR)xc.c -o $(OBJECTDIR)xc.s #run c compiler to produce first pass assembly diff --git a/bin/legacy/makefile-sunos4.1.mc68020 b/bin/legacy/makefile-sunos4.1.mc68020 index 3809342..a45b6a6 100644 --- a/bin/legacy/makefile-sunos4.1.mc68020 +++ b/bin/legacy/makefile-sunos4.1.mc68020 @@ -31,6 +31,6 @@ $(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \ $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(INCDIR)inline68K.h \ $(INCDIR)inlineSPARC.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o diff --git a/bin/legacy/makefile-sunos4.1.mc68020-multi b/bin/legacy/makefile-sunos4.1.mc68020-multi index c6c5319..6e2e12f 100644 --- a/bin/legacy/makefile-sunos4.1.mc68020-multi +++ b/bin/legacy/makefile-sunos4.1.mc68020-multi @@ -32,7 +32,7 @@ $(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \ $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(INCDIR)inline68K.h \ $(INCDIR)inlineSPARC.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o diff --git a/bin/legacy/makefile-sunos4.1.mc68020-x b/bin/legacy/makefile-sunos4.1.mc68020-x index f33d5e0..47695fd 100644 --- a/bin/legacy/makefile-sunos4.1.mc68020-x +++ b/bin/legacy/makefile-sunos4.1.mc68020-x @@ -58,6 +58,6 @@ $(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \ $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(INCDIR)inline68K.h \ $(INCDIR)inlineSPARC.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o diff --git a/bin/legacy/makefile-sunos4.i386 b/bin/legacy/makefile-sunos4.i386 index 11c8b9b..f882ce2 100644 --- a/bin/legacy/makefile-sunos4.i386 +++ b/bin/legacy/makefile-sunos4.i386 @@ -28,7 +28,7 @@ $(OBJECTDIR)xc.i: $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h $(IN $(INCDIR)n_op_inlineC.h $(SRCDIR)disp386i.il \ $(INCDIR)dummy_entries.h \ $(INCDIR)inline386i.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc -c -O -Qproduce .s $(DFLAGS) -I$(INCDIR) $(SRCDIR)xc.c -o $(OBJECTDIR)xc.s #run c compiler to produce first pass assembly diff --git a/bin/legacy/makefile-sunos4.i386-multi b/bin/legacy/makefile-sunos4.i386-multi index f32488a..422dbf9 100644 --- a/bin/legacy/makefile-sunos4.i386-multi +++ b/bin/legacy/makefile-sunos4.i386-multi @@ -31,7 +31,7 @@ $(OBJECTDIR)xc.s: $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h $(IN $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(SRCDIR)disp386i.il \ $(INCDIR)inline386i.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc -c -O -Qproduce .s $(DFLAGS) -I$(INCDIR) $(SRCDIR)xc.c -o $(OBJECTDIR)xc.s #run c compiler to produce first pass assembly diff --git a/bin/legacy/makefile-sunos4.mc68020 b/bin/legacy/makefile-sunos4.mc68020 index 3809342..a45b6a6 100644 --- a/bin/legacy/makefile-sunos4.mc68020 +++ b/bin/legacy/makefile-sunos4.mc68020 @@ -31,6 +31,6 @@ $(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \ $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(INCDIR)inline68K.h \ $(INCDIR)inlineSPARC.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o diff --git a/bin/legacy/makefile-sunos4.mc68020-multi b/bin/legacy/makefile-sunos4.mc68020-multi index c6c5319..6e2e12f 100644 --- a/bin/legacy/makefile-sunos4.mc68020-multi +++ b/bin/legacy/makefile-sunos4.mc68020-multi @@ -32,7 +32,7 @@ $(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \ $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(INCDIR)inline68K.h \ $(INCDIR)inlineSPARC.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o diff --git a/bin/legacy/makefile-sunos4.mc68020-x b/bin/legacy/makefile-sunos4.mc68020-x index 1c80ee8..20e5ceb 100644 --- a/bin/legacy/makefile-sunos4.mc68020-x +++ b/bin/legacy/makefile-sunos4.mc68020-x @@ -59,6 +59,6 @@ $(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \ $(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \ $(INCDIR)inline68K.h \ $(INCDIR)inlineSPARC.h $(INCDIR)fast_disp.h \ - $(INCDIR)fastinline68K.h $(INCDIR)profile.h + $(INCDIR)fastinline68K.h cc $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o diff --git a/bin/makefile-dos b/bin/makefile-dos index 0f2edad..4280c5d 100644 --- a/bin/makefile-dos +++ b/bin/makefile-dos @@ -18,7 +18,7 @@ SRCFILES = conspage.c gcoflow.c shift.c dbgtool.c gcr.c gcrcell.c llstk. OFILES = conspage.obj gcoflow.obj shift.obj dbgtool.obj gcr.obj gcrcell.obj llstk.obj gcscan.obj loopsops.obj storage.obj allocmds.obj dir.obj gvar2.obj lowlev1.obj subr.obj arith2.obj lowlev2.obj subr0374.obj arith3.obj doscomm.obj hardrtn.obj lsthandl.obj sxhash.obj arith4.obj draw.obj main.obj testtool.obj array.obj dsk.obj inet.obj misc7.obj timer.obj array2.obj dspif.obj initdsp.obj miscn.obj typeof.obj array3.obj initkbd.obj ubf1.obj array4.obj dspsubrs.obj initsout.obj mkatom.obj ubf2.obj array5.obj eqf.obj intcall.obj mkcell.obj ubf3.obj array6.obj ether.obj ufn.obj atom.obj findkey.obj kbdsubrs.obj mouseif.obj ufs.obj bbtsub.obj foreign.obj keyevent.obj unixcomm.obj bin.obj fp.obj binds.obj fvar.obj mvs.obj unwind.obj bitblt.obj gc.obj uraid.obj blt.obj gc2.obj kprint.obj osmsg.obj usrsubr.obj byteswap.obj gcarray.obj perrno.obj uutils.obj carcdr.obj asmbbt.obj gccode.obj vars3.obj gcfinal.obj ldsout.obj return.obj vmemsave.obj chardev.obj gchtfind.obj lineblt8.obj rpc.obj xc.obj common.obj gcmain3.obj lisp2c.obj rplcons.obj z2.obj vdate.obj $(COLORFILES) $(ARCHFILES) $(LPFILES) -HFILES = address.h adr68k.h arith.h cell.h dbprint.h display.h dspif.h ifpage.h iopage.h lispemul.h lispmap.h lsptypes.h miscstat.h lspglob.h array.h bb.h bitblt.h debug.h devconf.h dspdata.h ether.h fast_dsp.h gcdata.h hdw_conf.h initatms.h inlinec.h keyboard.h lispver1.h lispver2.h lldsp.h locfile.h medleyfp.h mouseif.h my.h opcodes.h osmsg.h pilotbbt.h print.h profile.h return.h stack.h stream.h subrs.h timeout.h tos1defs.h tosfns.h tosret.h vmemsave.h xdefs.h xbitmaps.h xkeymap.h +HFILES = address.h adr68k.h arith.h cell.h dbprint.h display.h dspif.h ifpage.h iopage.h lispemul.h lispmap.h lsptypes.h miscstat.h lspglob.h array.h bb.h bitblt.h debug.h devconf.h dspdata.h ether.h fast_dsp.h gcdata.h hdw_conf.h initatms.h inlinec.h keyboard.h lispver1.h lispver2.h lldsp.h locfile.h medleyfp.h mouseif.h my.h opcodes.h osmsg.h pilotbbt.h print.h return.h stack.h stream.h subrs.h timeout.h tos1defs.h tosfns.h tosret.h vmemsave.h xdefs.h xbitmaps.h xkeymap.h @@ -35,7 +35,7 @@ emul.exe : $(OFILES) del copts @ echo "Executable is now named '$@'" -main.o : lispemul.h address.h lsptypes.h adr68k.h stack.h lspglob.h lispmap.h ifpage.h iopage.h return.h debug.h profile.h +main.o : lispemul.h address.h lsptypes.h adr68k.h stack.h lspglob.h lispmap.h ifpage.h iopage.h return.h debug.h diff --git a/bin/makefile-tail b/bin/makefile-tail index 97fb59f..2010f4d 100755 --- a/bin/makefile-tail +++ b/bin/makefile-tail @@ -194,7 +194,7 @@ $(OBJECTDIR)main.o : $(SRCDIR)main.c $(REQUIRED-INCS) $(INCDIR)lispemul.h \ $(INCDIR)emlglob.h $(INCDIR)address.h $(INCDIR)lsptypes.h \ $(INCDIR)adr68k.h $(INCDIR)stack.h $(INCDIR)lspglob.h \ $(INCDIR)lispmap.h $(INCDIR)ifpage.h $(INCDIR)iopage.h \ - $(INCDIR)return.h $(INCDIR)debug.h $(INCDIR)profile.h + $(INCDIR)return.h $(INCDIR)debug.h $(CC) $(RFLAGS) $(SRCDIR)main.c $(INLINE) -o $(OBJECTDIR)main$(OEXT) $(OBJECTDIR)dbgtool.o : $(SRCDIR)dbgtool.c $(REQUIRED-INCS) $(INCDIR)lispemul.h \ @@ -588,7 +588,7 @@ $(OBJECTDIR)loopsops.o : $(SRCDIR)loopsops.c $(REQUIRED-INCS) $(INCDIR)lispemul $(INCDIR)emlglob.h $(INCDIR)address.h $(INCDIR)lsptypes.h \ $(INCDIR)adr68k.h $(INCDIR)cell.h $(INCDIR)lspglob.h \ $(INCDIR)lispmap.h $(INCDIR)ifpage.h $(INCDIR)iopage.h \ - $(INCDIR)debug.h $(INCDIR)profile.h + $(INCDIR)debug.h $(CC) $(RFLAGS) $(SRCDIR)loopsops.c $(INLINE) -o $(OBJECTDIR)loopsops$(OEXT) $(OBJECTDIR)lowlev1.o : $(SRCDIR)lowlev1.c $(REQUIRED-INCS) $(INCDIR)lispemul.h \ @@ -657,16 +657,14 @@ $(OBJECTDIR)subr.o : $(SRCDIR)subr.c $(REQUIRED-INCS) \ $(INCDIR)adr68k.h $(INCDIR)subrs.h \ $(INCDIR)lsptypes.h $(INCDIR)lispmap.h $(INCDIR)emlglob.h \ $(INCDIR)lspglob.h $(INCDIR)cell.h $(INCDIR)stack.h \ - $(INCDIR)arith.h $(INCDIR)profile.h \ - $(INCDIR)bbtsub.h + $(INCDIR)arith.h $(INCDIR)bbtsub.h $(CC) $(RFLAGS) $(SRCDIR)subr.c $(INLINE) -o $(OBJECTDIR)subr$(OEXT) $(OBJECTDIR)miscn.o : $(SRCDIR)miscn.c $(REQUIRED-INCS) \ $(INCDIR)lispemul.h $(INCDIR)address.h \ $(INCDIR)adr68k.h $(INCDIR)subrs.h \ $(INCDIR)lsptypes.h $(INCDIR)lispmap.h $(INCDIR)emlglob.h \ - $(INCDIR)lspglob.h \ - $(INCDIR)arith.h $(INCDIR)profile.h + $(INCDIR)lspglob.h $(INCDIR)arith.h $(CC) $(RFLAGS) $(SRCDIR)miscn.c $(INLINE) -o $(OBJECTDIR)miscn$(OEXT) diff --git a/bin/makefile.dos b/bin/makefile.dos index f73f0f5..8e5378b 100644 --- a/bin/makefile.dos +++ b/bin/makefile.dos @@ -17,7 +17,7 @@ SRCFILES = conspage.c gcoflow.c shift.c dbgtool.c gcr.c gcrcell.c llstk. OFILES = conspage.obj gcoflow.obj shift.obj dbgtool.obj gcr.obj gcrcell.obj llstk.obj gcscan.obj loopsops.obj storage.obj allocmds.obj dir.obj gvar2.obj lowlev1.obj subr.obj arith2.obj lowlev2.obj subr0374.obj arith3.obj doscomm.obj hardrtn.obj lsthandl.obj sxhash.obj arith4.obj draw.obj main.obj testtool.obj array.obj dsk.obj inet.obj misc7.obj timer.obj array2.obj dspif.obj initdsp.obj miscn.obj typeof.obj array3.obj initkbd.obj ubf1.obj array4.obj dspsubrs.obj initsout.obj mkatom.obj ubf2.obj array5.obj eqf.obj intcall.obj mkcell.obj ubf3.obj array6.obj ether.obj ufn.obj atom.obj findkey.obj kbdsubrs.obj mouseif.obj ufs.obj bbtsub.obj foreign.obj keyevent.obj unixcomm.obj bin.obj fp.obj binds.obj fvar.obj mvs.obj unwind.obj bitblt.obj gc.obj uraid.obj blt.obj gc2.obj kprint.obj osmsg.obj usrsubr.obj byteswap.obj gcarray.obj perrno.obj uutils.obj carcdr.obj asmbbt.obj gccode.obj vars3.obj gcfinal.obj ldsout.obj return.obj vmemsave.obj chardev.obj gchtfind.obj lineblt8.obj rpc.obj xc.obj common.obj gcmain3.obj lisp2c.obj rplcons.obj z2.obj vdate.obj $(COLORFILES) $(ARCHFILES) $(LPFILES) -HFILES = address.h adr68k.h arith.h cell.h dbprint.h display.h dspif.h ifpage.h iopage.h lispemul.h lispmap.h lsptypes.h miscstat.h lspglob.h array.h bb.h bitblt.h debug.h devconf.h dspdata.h ether.h fast_dsp.h gcdata.h hdw_conf.h initatms.h inlinec.h keyboard.h lispver1.h lispver2.h lldsp.h locfile.h medleyfp.h mouseif.h my.h opcodes.h osmsg.h pilotbbt.h print.h profile.h return.h stack.h stream.h subrs.h timeout.h tos1defs.h tosfns.h tosret.h vmemsave.h xdefs.h xbitmaps.h xkeymap.h +HFILES = address.h adr68k.h arith.h cell.h dbprint.h display.h dspif.h ifpage.h iopage.h lispemul.h lispmap.h lsptypes.h miscstat.h lspglob.h array.h bb.h bitblt.h debug.h devconf.h dspdata.h ether.h fast_dsp.h gcdata.h hdw_conf.h initatms.h inlinec.h keyboard.h lispver1.h lispver2.h lldsp.h locfile.h medleyfp.h mouseif.h my.h opcodes.h osmsg.h pilotbbt.h print.h return.h stack.h stream.h subrs.h timeout.h tos1defs.h tosfns.h tosret.h vmemsave.h xdefs.h xbitmaps.h xkeymap.h @@ -34,7 +34,7 @@ emul.exe : $(OFILES) del copts @ echo "Executable is now named '$@'" -main.o : lispemul.h address.h lsptypes.h adr68k.h stack.h lspglob.h lispmap.h ifpage.h iopage.h return.h debug.h profile.h +main.o : lispemul.h address.h lsptypes.h adr68k.h stack.h lspglob.h lispmap.h ifpage.h iopage.h return.h debug.h diff --git a/bin/mkdos b/bin/mkdos index 3100450..7af85cf 100644 --- a/bin/mkdos +++ b/bin/mkdos @@ -110,7 +110,7 @@ HFILES = $(INCDIR)address.h $(INCDIR)adr68k.h $(INCDIR)arith.h $(INCDIR)cell.h $ $(INCDIR)bitblt.h $(INCDIR)debug.h $(INCDIR)devconf.h $(INCDIR)dspdata.h $(INCDIR)ether.h \ $(INCDIR)fast_dsp.h $(INCDIR)gcdata.h $(INCDIR)hdw_conf.h $(INCDIR)initatms.h $(INCDIR)inlinec.h $(INCDIR)keyboard.h \ $(INCDIR)lispver1.h $(INCDIR)lispver2.h $(INCDIR)lldsp.h $(INCDIR)locfile.h $(INCIDR)medleyfp.h $(INCDIR)mouseif.h $(INCDIR)my.h \ - $(INCDIR)opcodes.h $(INCDIR)osmsg.h $(INCDIR)pilotbbt.h $(INCDIR)print.h $(INCDIR)profile.h \ + $(INCDIR)opcodes.h $(INCDIR)osmsg.h $(INCDIR)pilotbbt.h $(INCDIR)print.h \ $(INCDIR)return.h $(INCDIR)stack.h $(INCDIR)stream.h $(INCDIR)subrs.h $(INCDIR)timeout.h \ $(INCDIR)tos1defs.h $(INCDIR)tosfns.h $(INCDIR)tosret.h $(INCDIR)vmemsave.h \ $(INCDIR)xdefs.h $(INCDIR)xbitmaps.h $(INCDIR)xkeymap.h @@ -181,7 +181,7 @@ lde : $(OFILES) mkvdate ### File rules ### ################## -main.o : lispemul.h address.h lsptypes.h adr68k.h stack.h lspglob.h lispmap.h ifpage.h iopage.h return.h debug.h profile.h +main.o : lispemul.h address.h lsptypes.h adr68k.h stack.h lspglob.h lispmap.h ifpage.h iopage.h return.h debug.h ###################################### diff --git a/bin/mkfile b/bin/mkfile index a82ef57..c66a1b5 100644 --- a/bin/mkfile +++ b/bin/mkfile @@ -115,7 +115,7 @@ HFILES = INCDIR/address.h INCDIR/adr68k.h INCDIR/arith.h INCDIR/cell.h INCDIR/db INCDIR/bitblt.h INCDIR/debug.h INCDIR/devconf.h INCDIR/dspdata.h INCDIR/ether.h \ INCDIR/fast_dsp.h INCDIR/gcdata.h INCDIR/hdw_conf.h INCDIR/initatms.h INCDIR/inlinec.h INCDIR/keyboard.h \ INCDIR/lispver1.h INCDIR/lispver2.h INCDIR/lldsp.h INCDIR/locfile.h INCDIR/medleyfp.h INCDIR/mouseif.h INCDIR/my.h \ - INCDIR/opcodes.h INCDIR/osmsg.h INCDIR/pilotbbt.h INCDIR/print.h INCDIR/profile.h \ + INCDIR/opcodes.h INCDIR/osmsg.h INCDIR/pilotbbt.h INCDIR/print.h \ INCDIR/return.h INCDIR/stack.h INCDIR/stream.h INCDIR/subrs.h INCDIR/timeout.h \ INCDIR/tos1defs.h INCDIR/tosfns.h INCDIR/tosret.h INCDIR/vmemsave.h \ INCDIR/xdefs.h INCDIR/xbitmaps.h INCDIR/xkeymap.h @@ -168,7 +168,7 @@ lde : $(OFILES) mkvdate OBJECTDIR/main.o : INCDIR/lispemul.h INCDIR/address.h INCDIR/lsptypes.h INCDIR/adr68k.h\ INCDIR/stack.h INCDIR/lspglob.h INCDIR/lispmap.h INCDIR/ifpage.h\ - INCDIR/iopage.h INCDIR/return.h INCDIR/debug.h INCDIR/profile.h + INCDIR/iopage.h INCDIR/return.h INCDIR/debug.h ###################################### diff --git a/bin/mkfile.c b/bin/mkfile.c index a82ef57..c66a1b5 100644 --- a/bin/mkfile.c +++ b/bin/mkfile.c @@ -115,7 +115,7 @@ HFILES = INCDIR/address.h INCDIR/adr68k.h INCDIR/arith.h INCDIR/cell.h INCDIR/db INCDIR/bitblt.h INCDIR/debug.h INCDIR/devconf.h INCDIR/dspdata.h INCDIR/ether.h \ INCDIR/fast_dsp.h INCDIR/gcdata.h INCDIR/hdw_conf.h INCDIR/initatms.h INCDIR/inlinec.h INCDIR/keyboard.h \ INCDIR/lispver1.h INCDIR/lispver2.h INCDIR/lldsp.h INCDIR/locfile.h INCDIR/medleyfp.h INCDIR/mouseif.h INCDIR/my.h \ - INCDIR/opcodes.h INCDIR/osmsg.h INCDIR/pilotbbt.h INCDIR/print.h INCDIR/profile.h \ + INCDIR/opcodes.h INCDIR/osmsg.h INCDIR/pilotbbt.h INCDIR/print.h \ INCDIR/return.h INCDIR/stack.h INCDIR/stream.h INCDIR/subrs.h INCDIR/timeout.h \ INCDIR/tos1defs.h INCDIR/tosfns.h INCDIR/tosret.h INCDIR/vmemsave.h \ INCDIR/xdefs.h INCDIR/xbitmaps.h INCDIR/xkeymap.h @@ -168,7 +168,7 @@ lde : $(OFILES) mkvdate OBJECTDIR/main.o : INCDIR/lispemul.h INCDIR/address.h INCDIR/lsptypes.h INCDIR/adr68k.h\ INCDIR/stack.h INCDIR/lspglob.h INCDIR/lispmap.h INCDIR/ifpage.h\ - INCDIR/iopage.h INCDIR/return.h INCDIR/debug.h INCDIR/profile.h + INCDIR/iopage.h INCDIR/return.h INCDIR/debug.h ###################################### diff --git a/bin/mkfile.i b/bin/mkfile.i index 1a1564c..8916ec1 100644 --- a/bin/mkfile.i +++ b/bin/mkfile.i @@ -31,7 +31,7 @@ SRCFILES = ./conspage.c ./gcoflow.c ./shift.c ./dbgtool.c ./gcr.c ./llcolor.c ./ OFILES = conspage.obj gcoflow.obj shift.obj dbgtool.obj gcr.obj llcolor.obj gcrcell.obj llstk.obj gcscan.obj loopsops.obj storage.obj allocmds.obj dir.obj gvar2.obj lowlev1.obj subr.obj arith2.obj lowlev2.obj subr0374.obj arith3.obj doscomm.obj hardrtn.obj lsthandl.obj sxhash.obj arith4.obj draw.obj main.obj testtool.obj array.obj dsk.obj inet.obj misc7.obj timer.obj array2.obj dspif.obj initdsp.obj miscn.obj typeof.obj array3.obj initkbd.obj ubf1.obj array4.obj dspsubrs.obj initsout.obj mkatom.obj ubf2.obj array5.obj eqf.obj intcall.obj mkcell.obj ubf3.obj array6.obj ether.obj ufn.obj atom.obj findkey.obj kbdsubrs.obj mouseif.obj ufs.obj bbtsub.obj foreign.obj keyevent.obj unixcomm.obj bin.obj fp.obj binds.obj fvar.obj mvs.obj unwind.obj bitblt.obj gc.obj uraid.obj blt.obj gc2.obj kprint.obj osmsg.obj usrsubr.obj byteswap.obj gcarray.obj perrno.obj uutils.obj carcdr.obj asmbbt.obj gccode.obj vars3.obj gcfinal.obj ldsout.obj return.obj vmemsave.obj chardev.obj gchtfind.obj lineblt8.obj rpc.obj xc.obj common.obj gcmain3.obj lisp2c.obj rplcons.obj z2.obj vdate.obj $(COLORFILES) $(ARCHFILES) -HFILES = ../inc/address.h ../inc/adr68k.h ../inc/arith.h ../inc/cell.h ../inc/dbprint.h ../inc/display.h ../inc/dspif.h ../inc/ifpage.h ../inc/iopage.h ../inc/lispemul.h ../inc/lispmap.h ../inc/lsptypes.h ../inc/miscstat.h ../inc/lspglob.h ../inc/array.h ../inc/bb.h ../inc/bitblt.h ../inc/debug.h ../inc/devconf.h ../inc/dspdata.h ../inc/ether.h ../inc/fast_dsp.h ../inc/gcdata.h ../inc/hdw_conf.h ../inc/initatms.h ../inc/inlinec.h ../inc/keyboard.h ../inc/lispver1.h ../inc/lispver2.h ../inc/lldsp.h ../inc/locfile.h ../inc/medleyfp.h ../inc/mouseif.h ../inc/my.h ../inc/opcodes.h ../inc/osmsg.h ../inc/pilotbbt.h ../inc/print.h ../inc/profile.h ../inc/return.h ../inc/stack.h ../inc/stream.h ../inc/subrs.h ../inc/timeout.h ../inc/tos1defs.h ../inc/tosfns.h ../inc/tosret.h ../inc/vmemsave.h ../inc/xdefs.h ../inc/xbitmaps.h ../inc/xkeymap.h +HFILES = ../inc/address.h ../inc/adr68k.h ../inc/arith.h ../inc/cell.h ../inc/dbprint.h ../inc/display.h ../inc/dspif.h ../inc/ifpage.h ../inc/iopage.h ../inc/lispemul.h ../inc/lispmap.h ../inc/lsptypes.h ../inc/miscstat.h ../inc/lspglob.h ../inc/array.h ../inc/bb.h ../inc/bitblt.h ../inc/debug.h ../inc/devconf.h ../inc/dspdata.h ../inc/ether.h ../inc/fast_dsp.h ../inc/gcdata.h ../inc/hdw_conf.h ../inc/initatms.h ../inc/inlinec.h ../inc/keyboard.h ../inc/lispver1.h ../inc/lispver2.h ../inc/lldsp.h ../inc/locfile.h ../inc/medleyfp.h ../inc/mouseif.h ../inc/my.h ../inc/opcodes.h ../inc/osmsg.h ../inc/pilotbbt.h ../inc/print.h ../inc/return.h ../inc/stack.h ../inc/stream.h ../inc/subrs.h ../inc/timeout.h ../inc/tos1defs.h ../inc/tosfns.h ../inc/tosret.h ../inc/vmemsave.h ../inc/xdefs.h ../inc/xbitmaps.h ../inc/xkeymap.h @@ -62,7 +62,7 @@ lde : $(OFILES) mkvdate $(CC) $(LDFLAGS) $(OFILES) -o $@ -./main.o : ../inc/lispemul.h ../inc/address.h ../inc/lsptypes.h ../inc/adr68k.h ../inc/stack.h ../inc/lspglob.h ../inc/lispmap.h ../inc/ifpage.h ../inc/iopage.h ../inc/return.h ../inc/debug.h ../inc/profile.h +./main.o : ../inc/lispemul.h ../inc/address.h ../inc/lsptypes.h ../inc/adr68k.h ../inc/stack.h ../inc/lspglob.h ../inc/lispmap.h ../inc/ifpage.h ../inc/iopage.h ../inc/return.h ../inc/debug.h diff --git a/inc/profile.h b/inc/profile.h deleted file mode 100644 index 4b7e16a..0000000 --- a/inc/profile.h +++ /dev/null @@ -1,274 +0,0 @@ -#ifndef PROFILE_H -#define PROFILE_H 1 -/* $Id: profile.h,v 1.2 1999/01/03 02:06:21 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */ - -/* DEFINE PROFILE if you want to turn on profiling */ - - - - -/************************************************************************/ -/* */ -/* (C) Copyright 1989-92 Venue. All Rights Reserved. */ -/* Manufactured in the United States of America. */ -/* */ -/************************************************************************/ - - -#define CASE000 case000 -#define CASE001 case001 -#define CASE002 case002 -#define CASE003 case003 -#define CASE004 case004 -#define CASE005 case005 -#define CASE006 case006 -#define CASE007 case007 -#define CASE010 case010 -#define CASE011 case011 -#define CASE012 case012 -#define CASE013 case013 -#define CASE014 case014 -#define CASE015 case015 -#define CASE016 case016 -#define CASE017 case017 -#define CASE020 case020 -#define CASE021 case021 -#define CASE022 case022 -#define CASE023 case023 -#define CASE024 case024 -#define CASE025 case025 -#define CASE026 case026 -#define CASE027 case027 -#define CASE030 case030 -#define CASE031 case031 -#define CASE032 case032 -#define CASE033 case033 -#define CASE034 case034 -#define CASE035 case035 -#define CASE036 case036 -#define CASE037 case037 -#define CASE040 case040 -#define CASE041 case041 -#define CASE042 case042 -#define CASE043 case043 -#define CASE044 case044 -#define CASE045 case045 -#define CASE046 case046 -#define CASE047 case047 -#define CASE050 case050 -#define CASE051 case051 -#define CASE052 case052 -#define CASE053 case053 -#define CASE054 case054 -#define CASE055 case055 -#define CASE056 case056 -#define CASE057 case057 -#define CASE060 case060 -#define CASE061 case061 -#define CASE062 case062 -#define CASE063 case063 -#define CASE064 case064 -#define CASE065 case065 -#define CASE066 case066 -#define CASE067 case067 -#define CASE070 case070 -#define CASE071 case071 -#define CASE072 case072 -#define CASE073 case073 -#define CASE074 case074 -#define CASE075 case075 -#define CASE076 case076 -#define CASE077 case077 -#define CASE100 case100 -#define CASE101 case101 -#define CASE102 case102 -#define CASE103 case103 -#define CASE104 case104 -#define CASE105 case105 -#define CASE106 case106 -#define CASE107 case107 -#define CASE110 case110 -#define CASE111 case111 -#define CASE112 case112 -#define CASE113 case113 -#define CASE114 case114 -#define CASE115 case115 -#define CASE116 case116 -#define CASE117 case117 -#define CASE120 case120 -#define CASE121 case121 -#define CASE122 case122 -#define CASE123 case123 -#define CASE124 case124 -#define CASE125 case125 -#define CASE126 case126 -#define CASE127 case127 -#define CASE130 case130 -#define CASE131 case131 -#define CASE132 case132 -#define CASE133 case133 -#define CASE134 case134 -#define CASE135 case135 -#define CASE136 case136 -#define CASE137 case137 -#define CASE140 case140 -#define CASE141 case141 -#define CASE142 case142 -#define CASE143 case143 -#define CASE144 case144 -#define CASE145 case145 -#define CASE146 case146 -#define CASE147 case147 -#define CASE150 case150 -#define CASE151 case151 -#define CASE152 case152 -#define CASE153 case153 -#define CASE154 case154 -#define CASE155 case155 -#define CASE156 case156 -#define CASE157 case157 -#define CASE160 case160 -#define CASE161 case161 -#define CASE162 case162 -#define CASE163 case163 -#define CASE164 case164 -#define CASE165 case165 -#define CASE166 case166 -#define CASE167 case167 -#define CASE170 case170 -#define CASE171 case171 -#define CASE172 case172 -#define CASE173 case173 -#define CASE174 case174 -#define CASE175 case175 -#define CASE176 case176 -#define CASE177 case177 -#define CASE200 case200 -#define CASE201 case201 -#define CASE202 case202 -#define CASE203 case203 -#define CASE204 case204 -#define CASE205 case205 -#define CASE206 case206 -#define CASE207 case207 -#define CASE210 case210 -#define CASE211 case211 -#define CASE212 case212 -#define CASE213 case213 -#define CASE214 case214 -#define CASE215 case215 -#define CASE216 case216 -#define CASE217 case217 -#define CASE220 case220 -#define CASE221 case221 -#define CASE222 case222 -#define CASE223 case223 -#define CASE224 case224 -#define CASE225 case225 -#define CASE226 case226 -#define CASE227 case227 -#define CASE230 case230 -#define CASE231 case231 -#define CASE232 case232 -#define CASE233 case233 -#define CASE234 case234 -#define CASE235 case235 -#define CASE236 case236 -#define CASE237 case237 -#define CASE240 case240 -#define CASE241 case241 -#define CASE242 case242 -#define CASE243 case243 -#define CASE244 case244 -#define CASE245 case245 -#define CASE246 case246 -#define CASE247 case247 -#define CASE250 case250 -#define CASE251 case251 -#define CASE252 case252 -#define CASE253 case253 -#define CASE254 case254 -#define CASE255 case255 -#define CASE256 case256 -#define CASE257 case257 -#define CASE260 case260 -#define CASE261 case261 -#define CASE262 case262 -#define CASE263 case263 -#define CASE264 case264 -#define CASE265 case265 -#define CASE266 case266 -#define CASE267 case267 -#define CASE270 case270 -#define CASE271 case271 -#define CASE272 case272 -#define CASE273 case273 -#define CASE274 case274 -#define CASE275 case275 -#define CASE276 case276 -#define CASE277 case277 -#define CASE300 case300 -#define CASE301 case301 -#define CASE302 case302 -#define CASE303 case303 -#define CASE304 case304 -#define CASE305 case305 -#define CASE306 case306 -#define CASE307 case307 -#define CASE310 case310 -#define CASE311 case311 -#define CASE312 case312 -#define CASE313 case313 -#define CASE314 case314 -#define CASE315 case315 -#define CASE316 case316 -#define CASE317 case317 -#define CASE320 case320 -#define CASE321 case321 -#define CASE322 case322 -#define CASE323 case323 -#define CASE324 case324 -#define CASE325 case325 -#define CASE326 case326 -#define CASE327 case327 -#define CASE330 case330 -#define CASE331 case331 -#define CASE332 case332 -#define CASE333 case333 -#define CASE334 case334 -#define CASE335 case335 -#define CASE336 case336 -#define CASE337 case337 -#define CASE340 case340 -#define CASE341 case341 -#define CASE342 case342 -#define CASE343 case343 -#define CASE344 case344 -#define CASE345 case345 -#define CASE346 case346 -#define CASE347 case347 -#define CASE350 case350 -#define CASE351 case351 -#define CASE352 case352 -#define CASE353 case353 -#define CASE354 case354 -#define CASE355 case355 -#define CASE356 case356 -#define CASE357 case357 -#define CASE360 case360 -#define CASE361 case361 -#define CASE362 case362 -#define CASE363 case363 -#define CASE364 case364 -#define CASE365 case365 -#define CASE366 case366 -#define CASE367 case367 -#define CASE370 case370 -#define CASE371 case371 -#define CASE372 case372 -#define CASE373 case373 -#define CASE374 case374 -#define CASE375 case375 -#define CASE376 case376 -#define CASE377 case377 -#endif /* PROFILE_H */ diff --git a/src/main.c b/src/main.c index 9ad726e..7b4135b 100644 --- a/src/main.c +++ b/src/main.c @@ -54,7 +54,6 @@ #include "iopage.h" #include "debug.h" -#include "profile.h" #include "timeout.h" diff --git a/src/miscn.c b/src/miscn.c index f17c59b..306a35f 100644 --- a/src/miscn.c +++ b/src/miscn.c @@ -25,7 +25,6 @@ #include "lspglob.h" #include "arith.h" #include "subrs.h" -#include "profile.h" #include "miscndefs.h" #include "commondefs.h" diff --git a/src/subr.c b/src/subr.c index d0f3a47..e1cf53f 100644 --- a/src/subr.c +++ b/src/subr.c @@ -39,7 +39,6 @@ #include "stack.h" #include "arith.h" #include "subrs.h" -#include "profile.h" #include "dbprint.h" #include "bbtsub.h" diff --git a/src/xc.c b/src/xc.c index 4df2592..f9bd624 100644 --- a/src/xc.c +++ b/src/xc.c @@ -139,7 +139,6 @@ register LispPTR tscache asm("bx"); #endif #include "fast_dsp.h" -#include "profile.h" /* trick now is that pccache points one ahead... */ #define PCMAC (pccache - 1) @@ -266,504 +265,504 @@ nextopcode: switch (Get_BYTE_PCMAC0) { case 000: - CASE000 : { goto op_ufn; } /* unused */ + case000 : { goto op_ufn; } /* unused */ case 001: - CASE001: + case001: OPCAR; case 002: - CASE002: + case002: OPCDR; case 003: - CASE003: + case003: LISTP; case 004: - CASE004: + case004: NTYPEX; case 005: - CASE005: + case005: TYPEP(Get_BYTE_PCMAC1); case 056: - CASE056: + case056: case 006: - CASE006: + case006: DTEST(Get_AtomNo_PCMAC1); case 007: - CASE007: + case007: UNWIND(Get_BYTE_PCMAC1, Get_BYTE_PCMAC2); case 010: - CASE010: + case010: FN0; case 011: - CASE011: + case011: FN1; case 012: - CASE012: + case012: FN2; case 013: - CASE013: + case013: FN3; case 014: - CASE014: + case014: FN4; case 015: - CASE015: + case015: FNX; case 016: - CASE016: + case016: APPLY; case 017: - CASE017: + case017: CHECKAPPLY; case 020: - CASE020: + case020: RETURN; case 021: - CASE021: + case021: /* UB: left shift of negative value -4 */ BIND; case 022: - CASE022: + case022: UNBIND; case 023: - CASE023: + case023: DUNBIND; case 024: - CASE024: + case024: RPLPTR(Get_BYTE_PCMAC1); case 025: - CASE025: + case025: GCREF(Get_BYTE_PCMAC1); case 026: - CASE026: + case026: ASSOC; case 027: - CASE027: + case027: GVAR_(Get_AtomNo_PCMAC1); case 030: - CASE030: + case030: RPLACA; case 031: - CASE031: + case031: RPLACD; case 032: - CASE032: + case032: CONS; case 033: - CASE033: + case033: CLASSOC; case 034: - CASE034: + case034: FMEMB; case 035: - CASE035: + case035: CLFMEMB; case 036: - CASE036: + case036: FINDKEY(Get_BYTE_PCMAC1); case 037: - CASE037: + case037: CREATECELL; case 040: - CASE040: + case040: BIN; case 041: - CASE041 : { goto op_ufn; } /* BOUT */ + case041 : { goto op_ufn; } /* BOUT */ case 042: - CASE042 : { goto op_ufn; } /* POPDISP - prolog only */ + case042 : { goto op_ufn; } /* POPDISP - prolog only */ case 043: - CASE043: + case043: RESTLIST(Get_BYTE_PCMAC1); case 044: - CASE044: + case044: MISCN(Get_BYTE_PCMAC1, Get_BYTE_PCMAC2); case 045: - CASE045 : { goto op_ufn; } /* unused */ + case045 : { goto op_ufn; } /* unused */ case 046: - CASE046: + case046: RPLCONS; case 047: - CASE047: + case047: LISTGET; case 050: - CASE050 : { goto op_ufn; } /* unused */ + case050 : { goto op_ufn; } /* unused */ case 051: - CASE051 : { goto op_ufn; } /* unused */ + case051 : { goto op_ufn; } /* unused */ case 052: - CASE052 : { goto op_ufn; } /* unused */ + case052 : { goto op_ufn; } /* unused */ case 053: - CASE053 : { goto op_ufn; } /* unused */ + case053 : { goto op_ufn; } /* unused */ case 054: - CASE054: + case054: EVAL; case 055: - CASE055: + case055: ENVCALL; - /* case 056 : CASE056: @ 006 */ + /* case 056 : case056: @ 006 */ case 057: - CASE057: + case057: STKSCAN; case 060: - CASE060 : { goto op_ufn; } /* BUSBLT - DLion only */ + case060 : { goto op_ufn; } /* BUSBLT - DLion only */ case 061: - CASE061 : { goto op_ufn; } /* MISC8 - no longer used */ + case061 : { goto op_ufn; } /* MISC8 - no longer used */ case 062: - CASE062: + case062: UBFLOAT3(Get_BYTE_PCMAC1); case 063: - CASE063: + case063: TYPEMASK(Get_BYTE_PCMAC1); case 064: - CASE064 : { goto op_ufn; } /* rdprologptr */ + case064 : { goto op_ufn; } /* rdprologptr */ case 065: - CASE065 : { goto op_ufn; } /* rdprologtag */ + case065 : { goto op_ufn; } /* rdprologtag */ case 066: - CASE066 : { goto op_ufn; } /* writeptr&tag */ + case066 : { goto op_ufn; } /* writeptr&tag */ case 067: - CASE067 : { goto op_ufn; } /* writeptr&0tag */ + case067 : { goto op_ufn; } /* writeptr&0tag */ case 070: - CASE070: + case070: MISC7(Get_BYTE_PCMAC1); /* misc7 (pseudocolor, fbitmapbit) */ case 071: - CASE071 : { goto op_ufn; } /* dovemisc - dove only */ + case071 : { goto op_ufn; } /* dovemisc - dove only */ case 072: - CASE072: + case072: EQLOP; case 073: - CASE073: + case073: DRAWLINE; case 074: - CASE074: + case074: STOREN(Get_BYTE_PCMAC1); case 075: - CASE075: + case075: COPYN(Get_BYTE_PCMAC1); case 076: - CASE076 : { goto op_ufn; } /* RAID */ + case076 : { goto op_ufn; } /* RAID */ case 077: - CASE077 : { goto op_ufn; } /* \RETURN */ + case077 : { goto op_ufn; } /* \RETURN */ case 0100: - CASE100: + case100: IVARMACRO(0); case 0101: - CASE101: + case101: IVARMACRO(1); case 0102: - CASE102: + case102: IVARMACRO(2); case 0103: - CASE103: + case103: IVARMACRO(3); case 0104: - CASE104: + case104: IVARMACRO(4); case 0105: - CASE105: + case105: IVARMACRO(5); case 0106: - CASE106: + case106: IVARMACRO(6); case 0107: - CASE107: + case107: IVARX(Get_BYTE_PCMAC1); case 0110: - CASE110: + case110: PVARMACRO(0); case 0111: - CASE111: + case111: PVARMACRO(1); case 0112: - CASE112: + case112: PVARMACRO(2); case 0113: - CASE113: + case113: PVARMACRO(3); case 0114: - CASE114: + case114: PVARMACRO(4); case 0115: - CASE115: + case115: PVARMACRO(5); case 0116: - CASE116: + case116: PVARMACRO(6); case 0117: - CASE117: + case117: PVARX(Get_BYTE_PCMAC1); case 0120: - CASE120: + case120: FVAR(0); case 0121: - CASE121: + case121: FVAR(2); case 0122: - CASE122: + case122: FVAR(4); case 0123: - CASE123: + case123: FVAR(6); case 0124: - CASE124: + case124: FVAR(8); case 0125: - CASE125: + case125: FVAR(10); case 0126: - CASE126: + case126: FVAR(12); case 0127: - CASE127: + case127: FVARX(Get_BYTE_PCMAC1); case 0130: - CASE130: + case130: PVARSETMACRO(0); case 0131: - CASE131: + case131: PVARSETMACRO(1); case 0132: - CASE132: + case132: PVARSETMACRO(2); case 0133: - CASE133: + case133: PVARSETMACRO(3); case 0134: - CASE134: + case134: PVARSETMACRO(4); case 0135: - CASE135: + case135: PVARSETMACRO(5); case 0136: - CASE136: + case136: PVARSETMACRO(6); case 0137: - CASE137: + case137: PVARX_(Get_BYTE_PCMAC1); case 0140: - CASE140: + case140: GVAR(Get_AtomNo_PCMAC1); case 0141: - CASE141: + case141: ARG0; case 0142: - CASE142: + case142: IVARX_(Get_BYTE_PCMAC1); case 0143: - CASE143: + case143: FVARX_(Get_BYTE_PCMAC1); case 0144: - CASE144: + case144: COPY; case 0145: - CASE145: + case145: MYARGCOUNT; case 0146: - CASE146: + case146: MYALINK; /******** Aconst ********/ case 0147: - CASE147 : { + case147 : { PUSH(Get_AtomNo_PCMAC1); nextop_atom; } case 0150: - CASE150 : { PUSHATOM(NIL_PTR); } + case150 : { PUSHATOM(NIL_PTR); } case 0151: - CASE151 : { PUSHATOM(ATOM_T); } + case151 : { PUSHATOM(ATOM_T); } case 0152: - CASE152 : { PUSHATOM(S_POSITIVE); } /* '0 */ + case152 : { PUSHATOM(S_POSITIVE); } /* '0 */ case 0153: - CASE153 : { PUSHATOM(0xE0001); } /* '1 */ + case153 : { PUSHATOM(0xE0001); } /* '1 */ /********* SIC ********/ case 0154: - CASE154 : { + case154 : { PUSH(S_POSITIVE | Get_BYTE_PCMAC1); nextop2; } /********* SNIC ********/ case 0155: - CASE155 : { + case155 : { PUSH(S_NEGATIVE | 0xff00 | Get_BYTE_PCMAC1); nextop2; } /********* SICX ********/ case 0156: - CASE156 : { + case156 : { PUSH(S_POSITIVE | Get_DLword_PCMAC1); nextop3; } /********* GCONST ********/ case 0157: - CASE157 : { + case157 : { PUSH(Get_Pointer_PCMAC1); nextop_ptr; } case 0160: - CASE160 : { goto op_ufn; } /* unused */ + case160 : { goto op_ufn; } /* unused */ case 0161: - CASE161 : { goto op_ufn; } /* readflags */ + case161 : { goto op_ufn; } /* readflags */ case 0162: - CASE162 : { goto op_ufn; } /* readrp */ + case162 : { goto op_ufn; } /* readrp */ case 0163: - CASE163 : { goto op_ufn; } /* writemap */ + case163 : { goto op_ufn; } /* writemap */ case 0164: - CASE164 : { goto op_ufn; } /* readprinterport */ + case164 : { goto op_ufn; } /* readprinterport */ case 0165: - CASE165 : { goto op_ufn; } /* writeprinterport */ + case165 : { goto op_ufn; } /* writeprinterport */ case 0166: - CASE166: + case166: PILOTBITBLT; case 0167: - CASE167: + case167: RCLK; case 0170: - CASE170 : { goto op_ufn; } /* MISC1, dorado only */ + case170 : { goto op_ufn; } /* MISC1, dorado only */ case 0171: - CASE171 : { goto op_ufn; } /* MISC2, dorado only */ + case171 : { goto op_ufn; } /* MISC2, dorado only */ case 0172: - CASE172: + case172: RECLAIMCELL; case 0173: - CASE173: + case173: GCSCAN1; case 0174: - CASE174: + case174: GCSCAN2; case 0175: - CASE175 : { + case175 : { EXT; OP_subrcall(Get_BYTE_PCMAC1, Get_BYTE_PCMAC2); RET; nextop0; }; case 0176: - CASE176 : { CONTEXTSWITCH; } + case176 : { CONTEXTSWITCH; } case 0177: - CASE177 : { goto op_ufn; } /* RETCALL */ + case177 : { goto op_ufn; } /* RETCALL */ /* JUMP */ case 0200: - CASE200 : { JUMPMACRO(2); } + case200 : { JUMPMACRO(2); } case 0201: - CASE201 : { JUMPMACRO(3); } + case201 : { JUMPMACRO(3); } case 0202: - CASE202 : { JUMPMACRO(4); } + case202 : { JUMPMACRO(4); } case 0203: - CASE203 : { JUMPMACRO(5); } + case203 : { JUMPMACRO(5); } case 0204: - CASE204 : { JUMPMACRO(6); } + case204 : { JUMPMACRO(6); } case 0205: - CASE205 : { JUMPMACRO(7); } + case205 : { JUMPMACRO(7); } case 0206: - CASE206 : { JUMPMACRO(8); } + case206 : { JUMPMACRO(8); } case 0207: - CASE207 : { JUMPMACRO(9); } + case207 : { JUMPMACRO(9); } case 0210: - CASE210 : { JUMPMACRO(10); } + case210 : { JUMPMACRO(10); } case 0211: - CASE211 : { JUMPMACRO(11); } + case211 : { JUMPMACRO(11); } case 0212: - CASE212 : { JUMPMACRO(12); } + case212 : { JUMPMACRO(12); } case 0213: - CASE213 : { JUMPMACRO(13); } + case213 : { JUMPMACRO(13); } case 0214: - CASE214 : { JUMPMACRO(14); } + case214 : { JUMPMACRO(14); } case 0215: - CASE215 : { JUMPMACRO(15); } + case215 : { JUMPMACRO(15); } case 0216: - CASE216 : { JUMPMACRO(16); } + case216 : { JUMPMACRO(16); } case 0217: - CASE217 : { JUMPMACRO(17); } + case217 : { JUMPMACRO(17); } /* FJUMP */ case 0220: - CASE220 : { FJUMPMACRO(2); } + case220 : { FJUMPMACRO(2); } case 0221: - CASE221 : { FJUMPMACRO(3); } + case221 : { FJUMPMACRO(3); } case 0222: - CASE222 : { FJUMPMACRO(4); } + case222 : { FJUMPMACRO(4); } case 0223: - CASE223 : { FJUMPMACRO(5); } + case223 : { FJUMPMACRO(5); } case 0224: - CASE224 : { FJUMPMACRO(6); } + case224 : { FJUMPMACRO(6); } case 0225: - CASE225 : { FJUMPMACRO(7); } + case225 : { FJUMPMACRO(7); } case 0226: - CASE226 : { FJUMPMACRO(8); } + case226 : { FJUMPMACRO(8); } case 0227: - CASE227 : { FJUMPMACRO(9); } + case227 : { FJUMPMACRO(9); } case 0230: - CASE230 : { FJUMPMACRO(10); } + case230 : { FJUMPMACRO(10); } case 0231: - CASE231 : { FJUMPMACRO(11); } + case231 : { FJUMPMACRO(11); } case 0232: - CASE232 : { FJUMPMACRO(12); } + case232 : { FJUMPMACRO(12); } case 0233: - CASE233 : { FJUMPMACRO(13); } + case233 : { FJUMPMACRO(13); } case 0234: - CASE234 : { FJUMPMACRO(14); } + case234 : { FJUMPMACRO(14); } case 0235: - CASE235 : { FJUMPMACRO(15); } + case235 : { FJUMPMACRO(15); } case 0236: - CASE236 : { FJUMPMACRO(16); } + case236 : { FJUMPMACRO(16); } case 0237: - CASE237 : { FJUMPMACRO(17); } + case237 : { FJUMPMACRO(17); } /* TJUMP */ case 0240: - CASE240 : { TJUMPMACRO(2); } + case240 : { TJUMPMACRO(2); } case 0241: - CASE241 : { TJUMPMACRO(3); } + case241 : { TJUMPMACRO(3); } case 0242: - CASE242 : { TJUMPMACRO(4); } + case242 : { TJUMPMACRO(4); } case 0243: - CASE243 : { TJUMPMACRO(5); } + case243 : { TJUMPMACRO(5); } case 0244: - CASE244 : { TJUMPMACRO(6); } + case244 : { TJUMPMACRO(6); } case 0245: - CASE245 : { TJUMPMACRO(7); } + case245 : { TJUMPMACRO(7); } case 0246: - CASE246 : { TJUMPMACRO(8); } + case246 : { TJUMPMACRO(8); } case 0247: - CASE247 : { TJUMPMACRO(9); } + case247 : { TJUMPMACRO(9); } case 0250: - CASE250 : { TJUMPMACRO(10); } + case250 : { TJUMPMACRO(10); } case 0251: - CASE251 : { TJUMPMACRO(11); } + case251 : { TJUMPMACRO(11); } case 0252: - CASE252 : { TJUMPMACRO(12); } + case252 : { TJUMPMACRO(12); } case 0253: - CASE253 : { TJUMPMACRO(13); } + case253 : { TJUMPMACRO(13); } case 0254: - CASE254 : { TJUMPMACRO(14); } + case254 : { TJUMPMACRO(14); } case 0255: - CASE255 : { TJUMPMACRO(15); } + case255 : { TJUMPMACRO(15); } case 0256: - CASE256 : { TJUMPMACRO(16); } + case256 : { TJUMPMACRO(16); } case 0257: - CASE257 : { TJUMPMACRO(17); } + case257 : { TJUMPMACRO(17); } /******* JUMPX ********/ case 0260: - CASE260 : { + case260 : { CHECK_INTERRUPT; PCMACL += Get_SBYTE_PCMAC1; nextop0; @@ -771,7 +770,7 @@ nextopcode: /******* JUMPXX ********/ case 0261: - CASE261 : { + case261 : { CHECK_INTERRUPT; /* UB: left shift of negative value -1 */ PCMACL += (Get_SBYTE_PCMAC1 << 8) | Get_BYTE_PCMAC2; @@ -780,7 +779,7 @@ nextopcode: /******* FJumpx *******/ case 0262: - CASE262 : { + case262 : { if (TOPOFSTACK != 0) { goto PopNextop2; } CHECK_INTERRUPT; POP; @@ -791,7 +790,7 @@ nextopcode: /******* TJumpx *******/ case 0263: - CASE263 : { + case263 : { if (TOPOFSTACK == 0) { goto PopNextop2; } CHECK_INTERRUPT; POP; @@ -802,7 +801,7 @@ nextopcode: /******* NFJumpx *******/ case 0264: - CASE264 : { + case264 : { if (TOPOFSTACK != 0) { goto PopNextop2; } CHECK_INTERRUPT; PCMACL += Get_SBYTE_PCMAC1; @@ -812,7 +811,7 @@ nextopcode: /******* NTJumpx *******/ case 0265: - CASE265 : { + case265 : { if (TOPOFSTACK == 0) { goto PopNextop2; } CHECK_INTERRUPT; PCMACL += Get_SBYTE_PCMAC1; @@ -820,184 +819,184 @@ nextopcode: } case 0266: - CASE266: + case266: AREF1; case 0267: - CASE267: + case267: ASET1; case 0270: - CASE270: + case270: PVARSETPOPMACRO(0); case 0271: - CASE271: + case271: PVARSETPOPMACRO(1); case 0272: - CASE272: + case272: PVARSETPOPMACRO(2); case 0273: - CASE273: + case273: PVARSETPOPMACRO(3); case 0274: - CASE274: + case274: PVARSETPOPMACRO(4); case 0275: - CASE275: + case275: PVARSETPOPMACRO(5); case 0276: - CASE276: + case276: PVARSETPOPMACRO(6); case 0277: - CASE277 : { + case277 : { POP; nextop1; } case 0300: - CASE300: + case300: POPN(Get_BYTE_PCMAC1); case 0301: - CASE301: + case301: ATOMCELL_N(Get_BYTE_PCMAC1); case 0302: - CASE302: + case302: GETBASEBYTE; case 0303: - CASE303: + case303: INSTANCEP(Get_AtomNo_PCMAC1); case 0304: - CASE304: + case304: BLT; case 0305: - CASE305 : { goto op_ufn; } /* MISC10 */ + case305 : { goto op_ufn; } /* MISC10 */ case 0306: - CASE306 : { goto op_ufn; } /* P-MISC2 ??? */ + case306 : { goto op_ufn; } /* P-MISC2 ??? */ case 0307: - CASE307: + case307: PUTBASEBYTE; case 0310: - CASE310: + case310: GETBASE_N(Get_BYTE_PCMAC1); case 0311: - CASE311: + case311: GETBASEPTR_N(Get_BYTE_PCMAC1); case 0312: - CASE312: + case312: GETBITS_N_M(Get_BYTE_PCMAC1, Get_BYTE_PCMAC2); case 0313: - CASE313 : { goto op_ufn; } /* unused */ + case313 : { goto op_ufn; } /* unused */ case 0314: - CASE314: + case314: CLEQUAL; case 0315: - CASE315: + case315: PUTBASE_N(Get_BYTE_PCMAC1); case 0316: - CASE316: + case316: PUTBASEPTR_N(Get_BYTE_PCMAC1); case 0317: - CASE317: + case317: PUTBITS_N_M(Get_BYTE_PCMAC1, Get_BYTE_PCMAC2); case 0320: - CASE320: + case320: N_OP_ADDBASE; case 0321: - CASE321: + case321: N_OP_VAG2; case 0322: - CASE322: + case322: N_OP_HILOC; case 0323: - CASE323: + case323: N_OP_LOLOC; case 0324: - CASE324: + case324: PLUS2; /* PLUS */ case 0325: - CASE325: + case325: DIFFERENCE; /* DIFFERENCE */ case 0326: - CASE326: + case326: TIMES2; /* TIMES2 */ case 0327: - CASE327: + case327: QUOTIENT /* QUOTIENT */ case 0330: - CASE330: + case330: IPLUS2; /* IPLUS2 only while PLUS has no float */ case 0331: - CASE331: + case331: IDIFFERENCE; /* IDIFFERENCE only while no float */ case 0332: - CASE332: + case332: ITIMES2; /* ITIMES2 only while no float */ case 0333: - CASE333: + case333: IQUOTIENT; /* IQUOTIENT */ case 0334: - CASE334: + case334: IREMAINDER; case 0335: - CASE335: + case335: IPLUS_N(Get_BYTE_PCMAC1); case 0336: - CASE336: + case336: IDIFFERENCE_N(Get_BYTE_PCMAC1); case 0337: - CASE337 : { goto op_ufn; } /* BASE-< */ + case337 : { goto op_ufn; } /* BASE-< */ case 0340: - CASE340: + case340: LLSH1; case 0341: - CASE341: + case341: LLSH8; case 0342: - CASE342: + case342: LRSH1; case 0343: - CASE343: + case343: LRSH8; case 0344: - CASE344: + case344: LOGOR; case 0345: - CASE345: + case345: LOGAND; case 0346: - CASE346: + case346: LOGXOR; case 0347: - CASE347: + case347: LSH; case 0350: - CASE350: + case350: FPLUS2; case 0351: - CASE351: + case351: FDIFFERENCE; case 0352: - CASE352: + case352: FTIMES2; case 0353: - CASE353: + case353: FQUOTIENT; case 0354: - CASE354: + case354: UBFLOAT2(Get_BYTE_PCMAC1); case 0355: - CASE355: + case355: UBFLOAT1(Get_BYTE_PCMAC1); case 0356: - CASE356: + case356: AREF2; case 0357: - CASE357: + case357: ASET2; case 0360: - CASE360 : { + case360 : { if (TOPOFSTACK == POP_TOS_1) TOPOFSTACK = ATOM_T; else @@ -1006,46 +1005,46 @@ nextopcode: } case 0361: - CASE361: + case361: IGREATERP; /* IGREATERP if no float */ case 0362: - CASE362: + case362: FGREATERP; case 0363: - CASE363: + case363: GREATERP; case 0364: - CASE364: + case364: ILEQUAL; case 0365: - CASE365: + case365: MAKENUMBER; case 0366: - CASE366: + case366: BOXIPLUS; case 0367: - CASE367: + case367: BOXIDIFFERENCE; case 0370: - CASE370 : { goto op_ufn; } /* FLOATBLT */ + case370 : { goto op_ufn; } /* FLOATBLT */ case 0371: - CASE371 : { goto op_ufn; } /* FFTSTEP */ + case371 : { goto op_ufn; } /* FFTSTEP */ case 0372: - CASE372: + case372: MISC3(Get_BYTE_PCMAC1); case 0373: - CASE373: + case373: MISC4(Get_BYTE_PCMAC1); case 0374: - CASE374 : { goto op_ufn; } /* upctrace */ + case374 : { goto op_ufn; } /* upctrace */ case 0375: - CASE375: + case375: SWAP; case 0376: - CASE376: + case376: NOP; case 0377: - CASE377: + case377: CLARITHEQUAL; #ifdef OPDISP #ifdef ISC