--- a/CompCode.st Wed Oct 16 21:12:38 1996 +0200
+++ b/CompCode.st Wed Oct 16 21:14:05 1996 +0200
@@ -409,7 +409,7 @@
/* made this a primitive to get define in stc.h */
- RETURN ((__intVal(__INST(flags)) & F_DYNAMIC) ? true : false);
+ RETURN (( (INT)(__INST(flags)) & __MASKSMALLINT(F_DYNAMIC)) ? true : false);
%}
!
@@ -461,7 +461,7 @@
/* made this a primitive to get define in stc.h */
- RETURN ((__intVal(__INST(flags)) & F_MARKBIT) ? true : false);
+ RETURN (( (INT)(__INST(flags)) & __MASKSMALLINT(F_MARKBIT)) ? true : false);
%}
!
@@ -576,6 +576,6 @@
!CompiledCode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.35 1996-09-20 07:28:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.36 1996-10-16 19:14:05 cg Exp $'
! !
CompiledCode initialize!
--- a/CompiledCode.st Wed Oct 16 21:12:38 1996 +0200
+++ b/CompiledCode.st Wed Oct 16 21:14:05 1996 +0200
@@ -409,7 +409,7 @@
/* made this a primitive to get define in stc.h */
- RETURN ((__intVal(__INST(flags)) & F_DYNAMIC) ? true : false);
+ RETURN (( (INT)(__INST(flags)) & __MASKSMALLINT(F_DYNAMIC)) ? true : false);
%}
!
@@ -461,7 +461,7 @@
/* made this a primitive to get define in stc.h */
- RETURN ((__intVal(__INST(flags)) & F_MARKBIT) ? true : false);
+ RETURN (( (INT)(__INST(flags)) & __MASKSMALLINT(F_MARKBIT)) ? true : false);
%}
!
@@ -576,6 +576,6 @@
!CompiledCode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.35 1996-09-20 07:28:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.36 1996-10-16 19:14:05 cg Exp $'
! !
CompiledCode initialize!