Download Pelles C here: http://www.smorgasbordet.com/pellesc/
Quote from: Akko on June 01, 2025, 09:34:04 PMGosh, I must have been blinded by our recent thunderstorm...... but of course ... the famous thunderstorm excuse...
#include <stdlib.h>
int pop(void) { return rand()&3; }
int tos=0x123456;
typedef int (*PZ)();
typedef int (*PN)(int, ...);
PZ pz;
PN pn;
void runproc(void) { // RUNPROC ( .. fa n -- ret )
int p1, p2;
switch (pop()) {
case 0: pz=(PZ)tos;
tos=pz();
break;
case 1: pn=(PN)pop(), p1=tos;
tos=pn(p1);
break;
case 2: pn=(PN)pop(), p2=pop(), p1=tos;
tos=pn(p1,p2);
break;
default: tos=-21; }
}
int main(void) {
runproc();
return tos;
}
Page created in 0.023 seconds with 11 queries.