=================================================================== RCS file: /home/cvs/OpenXM/src/kxx/sm1stackmachine.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -p -r1.1.1.1 -r1.2 --- OpenXM/src/kxx/sm1stackmachine.c 1999/10/08 02:12:13 1.1.1.1 +++ OpenXM/src/kxx/sm1stackmachine.c 2000/02/02 03:30:49 1.2 @@ -176,5 +176,16 @@ void Sm1_dupErrors(void) { KSpush(KSdupErrors()); } +void Sm1_pushCMOtag(int serial) { + struct object obj; + int t; + obj = KSpeek(0); + t = KgetCmoTagOfObject(obj); + if (t != -1) { + KSpush(KpoInteger(t)); + }else{ + Sm1_pushError2(serial,-1,"The top object on the server stack cannot be translated to cmo."); + } +}