New portable VM and fix parse typo

This commit is contained in:
David Schmenk 2017-08-09 13:19:57 -07:00
parent 2ec914aec5
commit ebe9c8ea14
2 changed files with 5 additions and 12 deletions

View File

@ -1478,7 +1478,7 @@ int parse_mods(void)
emit_moddep(0, 0); emit_moddep(0, 0);
return (0); return (0);
} }
iint parse_lambda(void) int parse_lambda(void)
{ {
int func_tag; int func_tag;
int cfnparms; int cfnparms;
@ -1552,7 +1552,7 @@ iint parse_lambda(void)
idlocal_restore(); idlocal_restore();
return (func_tag); return (func_tag);
} }
nt parse_defs(void) int parse_defs(void)
{ {
char c, *idstr; char c, *idstr;
int idlen, func_tag, cfnparms, cfnvals, type = GLOBAL_TYPE, pretype; int idlen, func_tag, cfnparms, cfnvals, type = GLOBAL_TYPE, pretype;

View File

@ -1,12 +1,3 @@
/*
* Copyright (C) 2015 The 8-Bit Bunch. Licensed under the Apache License, Version 1.1
* (the "License"); you may not use this file except in compliance with the License.
* You may obtain a copy of the License at <http://www.apache.org/licenses/LICENSE-1.1>.
* Unless required by applicable law or agreed to in writing, software distributed under
* the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF
* ANY KIND, either express or implied. See the License for the specific language
* governing permissions and limitations under the License.
*/
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <unistd.h> #include <unistd.h>
@ -785,7 +776,9 @@ void interp(code *ip)
fp += PLA; fp += PLA;
case 0x5C: // RET : IP = TOFP case 0x5C: // RET : IP = TOFP
return; return;
case 0x5E: // ??? case 0x5E: // CFFB : TOS = CONSTANTBYTE(IP) | 0xFF00
PUSH(BYTE_PTR(ip) | 0xFF00);
ip++;
break; break;
/* /*
* 0x60-0x6F * 0x60-0x6F