#!/bin/sh
# This is a shell archive (produced by GNU sharutils 4.2.1).
# To extract the files from this archive, save it to some FILE, remove
# everything before the `!/bin/sh' line above, then type `sh FILE'.
#
# Made on 2007-09-04 07:09 PDT by <castor@simpsons>.
# Source directory was `/home/ws/castor/swiss_2.2.3/tpdsrc/umod/crash-lib'.
#
# Existing files will *not* be overwritten unless `-c' is specified.
#
# This shar contains:
# length mode       name
# ------ ---------- ------------------------------------------
#  20772 -r--r--r-- pcore.c
#   8776 -r--r--r-- lc_core.h
#   9144 -r--r--r-- lc_core_i386.h
#
save_IFS="${IFS}"
IFS="${IFS}:"
gettext_dir=FAILED
locale_dir=FAILED
first_param="$1"
for dir in $PATH
do
  if test "$gettext_dir" = FAILED && test -f $dir/gettext \
     && ($dir/gettext --version >/dev/null 2>&1)
  then
    set `$dir/gettext --version 2>&1`
    if test "$3" = GNU
    then
      gettext_dir=$dir
    fi
  fi
  if test "$locale_dir" = FAILED && test -f $dir/shar \
     && ($dir/shar --print-text-domain-dir >/dev/null 2>&1)
  then
    locale_dir=`$dir/shar --print-text-domain-dir`
  fi
done
IFS="$save_IFS"
if test "$locale_dir" = FAILED || test "$gettext_dir" = FAILED
then
  echo=echo
else
  TEXTDOMAINDIR=$locale_dir
  export TEXTDOMAINDIR
  TEXTDOMAIN=sharutils
  export TEXTDOMAIN
  echo="$gettext_dir/gettext -s"
fi
if touch -am -t 200112312359.59 $$.touch >/dev/null 2>&1 && test ! -f 200112312359.59 -a -f $$.touch; then
  shar_touch='touch -am -t $1$2$3$4$5$6.$7 "$8"'
elif touch -am 123123592001.59 $$.touch >/dev/null 2>&1 && test ! -f 123123592001.59 -a ! -f 123123592001.5 -a -f $$.touch; then
  shar_touch='touch -am $3$4$5$6$1$2.$7 "$8"'
elif touch -am 1231235901 $$.touch >/dev/null 2>&1 && test ! -f 1231235901 -a -f $$.touch; then
  shar_touch='touch -am $3$4$5$6$2 "$8"'
else
  shar_touch=:
  echo
  $echo 'WARNING: not restoring timestamps.  Consider getting and'
  $echo "installing GNU \`touch', distributed in GNU File Utilities..."
  echo
fi
rm -f 200112312359.59 123123592001.59 123123592001.5 1231235901 $$.touch
#
if mkdir _sh32530; then
  $echo 'x -' 'creating lock directory'
else
  $echo 'failed to create lock directory'
  exit 1
fi
# ============= pcore.c ==============
if test -f 'pcore.c' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'pcore.c' '(file already exists)'
else
  $echo 'x -' extracting 'pcore.c' '(binary)'
  sed 's/^X//' << 'SHAR_EOF' | uudecode &&
begin 600 pcore.c
M+RH@8V]R92YC"B`J($1U;7!I;F<@86X@14Q&("AG9&(M*2!C;VUP871I8FQE
M(&-O<F4N"B`J(`H@*B`@("`@($-O<'ER:6=H="`H0RD@,C`P,B!)0DT@1&5U
M='-C:&QA;F0@16YT=VEC:VQU;F<@1VUB2"P*("H@("`@("`@("`@("`@("`@
M("`@("`@("`@24)-($-O<G!O<F%T:6]N"B`J("`@("`@075T:&]R*',I(%-T
M969A;B!38VAL;W-S97(@/'-S8VAL;W-S0&1E+FEB;2YC;VT^"B`J"B`J("`@
M("`@0V]P>7)I9VAT("A#*2`R,#`V(#-005)D871A($EN8RX*("H@("`@("!-
M;V1I9FEE9"!B>2!#87-T;W(@1G4@9F]R('5S92!W:71H("=C<F%S:"<@"B`J
M"B`J+PHC:6YC;'5D92`\9&5F<RYH/@HC:6YC;'5D92`B;&-?8V]R95]I,S@V
M+F@B"B-I;F-L=61E(")L8U]C;W)E+F@B"@H*(V1E9FEN92!-05A?5$A214%$
M4R`@("`@-#`Y-@H*+RH@9VQO8F%L('9A<G,@*B\*:V%D9')?="!T:')E861;
M34%87U1(4D5!1%-=.PII;G0@;G5M8F5R7V]F7W1H<F5A9',@/2`P.PH*+RH@
M4W1R=6-T=7)E(&]F9G-E=',@=VAI8V@@=V4@=V%N="!T;R!C;VUP=71E(&IU
M<W0@;VYC92`J+PIS=&%T:6,@:6YT"B`@("`@("`@;V9F7W1A<VM?<W1R=6-T
M7W!?;W-P='(L"B`@("`@("`@;V9F7W1A<VM?<W1R=6-T7W!?>7-P='(L"B`@
M("`@("`@;V9F7W1A<VM?<W1R=6-T7W!?8W!T<BP*("`@("`@("!O9F9?=&%S
M:U]S=')U8W1?<V5S<VEO;BP*("`@("`@("!O9F9?=&%S:U]S=')U8W1?=&EM
M97,L"B`@("`@("`@;V9F7W1M<U]T;7-?=71I;64L"B`@("`@("`@;V9F7W1M
M<U]T;7-?<W1I;64L"B`@("`@("`@;V9F7W1M<U]T;7-?8W5T:6UE+`H@("`@
M("`@(&]F9E]T;7-?=&US7V-S=&EM93L*"B\J"B`J(&=E=%]O;&1E<W1?<VEB
M;&EN9R@I"B`J("T@<F5T=7)N<R!O;&1E<W0@<VEB;&EN9R!O9B!T87-K"B`J
M+PIK861D<E]T(`IG971?;VQD97-T7W-I8FQI;F<H:V%D9')?="!T87-K*2`*
M>PH@("`@("`@('9O:60@*F-T<W`["B`@("`@("`@:V%D9')?="!O;&1E<W0@
M/2!T87-K.PH@("`@("`@(&MA9&1R7W0@=&UP.PH*("`@("`@("!W:&EL92@Q
M*2!["B`@("`@("`@("`@("`@("!C='-P(#T@9FEL;%]T87-K7W-T<G5C="AO
M;&1E<W0I.PH@("`@("`@("`@("`@("`@:68H8W1S<"`]/2!.54Q,*2!G;W1O
M(&]U=#L*"B`@("`@("`@("`@("`@("`O*B!G970@;VQD97(@<VEB;&EN9R`J
M+PH@("`@("`@("`@("`@("`@=&UP(#T@54E.5"AC='-P("L@;V9F7W1A<VM?
M<W1R=6-T7W!?;W-P='(I.PH@("`@("`@("`@("`@("`@:68H=&UP(#T]('1A
M<VL@?'P@=&UP(#T](#`I('L*("`@("`@("`@("`@("`@("`@("`@("`@8G)E
M86L["B`@("`@("`@("`@("`@("!]"B`@("`@("`@("`@("`@("!O;&1E<W0@
M/2!T;7`["B`@("`@("`@?0H@("`@("`@(')E='5R;B!O;&1E<W0["F]U=#H*
M("`@("`@("!R971U<FX@,#L*?0H*+RH*("H@9V5T7W1H<F5A9',H*0H@*B`M
M(&%D9',@=&AR96%D<R!T;R!T:&4@=&AR96%D6UT@87)R87D*("H@+2!T87-K
M(&ES(&%L<F5A9'D@82!C:&EL9"!P='(*("HO"G9O:60@"F=E=%]T:')E861S
M*&MA9&1R7W0@=&%S:RP@8VAA<B`J;6%R:RD@"GL*("`@("`@("!V;VED("IC
M='-P.PH@("`@("`@(&MA9&1R7W0@8VAI;&1?=&%S:SL*("`@("`@("!K861D
M<E]T('EO=6YG97)?=&%S:SL*"B`@("`@("`@+RH@=&%S:R!I<R!Y;W5N9V5S
M="!C:&EL9"`J+PH@("`@("`@(&-H:6QD7W1A<VL@/2!G971?;VQD97-T7W-I
M8FQI;F<H=&%S:RD["@H@("`@("`@("\J(&)E9VEN(&9R;VT@;VQD97-T("HO
M"B`@("`@("`@=VAI;&4H,2D@>PH@("`@("`@("`@("`@("`@:68@*"AC='-P
M(#T@9FEL;%]T87-K7W-T<G5C="AC:&EL9%]T87-K*2D@/3T@3E5,3"D@8G)E
M86L["B`@("`@("`@("`@("`@("!F<')I;G1F*&9P+"`B)7,@+3X@(#!X)3`X
M>"!;)61=.B`E<R!<;B(L(`H@("`@("`@("`@("`@("`@("`@("`@("!M87)K
M+"`H=6EN=#,R7W0I(&-H:6QD7W1A<VLL"B`@("`@("`@("`@("`@("`@("`@
M("`@("AU:6YT,S)?="E)3E0H8W1S<"`K($]&1E-%5"AT87-K7W-T<G5C=%]P
M:60I*2P*("`@("`@("`@("`@("`@("`@("`@("`@*&-H87(@*BDH8W1S<"`K
M($]&1E-%5"AT87-K7W-T<G5C=%]C;VUM*2DI.PH*("`@("`@("`@("`@("`@
M('1H<F5A9%MN=6UB97)?;V9?=&AR96%D<UT@/2!C:&EL9%]T87-K.PH@("`@
M("`@("`@("`@("`@;G5M8F5R7V]F7W1H<F5A9',K*SL*("`@("`@("`@("`@
M("`@('EO=6YG97)?=&%S:R`](%5)3E0H8W1S<"`K(&]F9E]T87-K7W-T<G5C
M=%]P7WES<'1R*3L*"B`@("`@("`@("`@("`@("`O*B!I9B!T87-K(&AA<R!C
M:&EL9',L(&=E="!I="!R96-U<G-I=F4@*B\*("`@("`@("`@("`@("`@(&EF
M*$E.5"AC='-P("L@;V9F7W1A<VM?<W1R=6-T7W!?8W!T<BD@(3T@,"D@>PH@
M("`@("`@("`@("`@("`@("`@("`@("!C:&%R("IM(#UM86QL;V,H,3`R-"D[
M"B`@("`@("`@("`@("`@("`@("`@("`@('-T<F-P>2AM+"!M87)K*3L*("`@
M("`@("`@("`@("`@("`@("`@("`@9V5T7W1H<F5A9',H54E.5"AC='-P("L@
M;V9F7W1A<VM?<W1R=6-T7W!?8W!T<BDL"B`@("`@("`@("`@("`@("`@("`@
M("`@("`@("!S=')C870H;2P@(EQT(BDI.PH@("`@("`@("`@("`@("`@("`@
M("`@("!F<F5E*&TI.PH@("`@("`@("`@("`@("`@?0H*("`@("`@("`@("`@
M("`@(&EF*'EO=6YG97)?=&%S:R`]/2`P*2!B<F5A:SL*("`@("`@("`@("`@
M("`@(&-H:6QD7W1A<VL@/2!Y;W5N9V5R7W1A<VL["B`@("`@("`@?0I]"@H*
M"B\J"B`J(&=E=%]P<G-T871U<R@I"B`J("T@9FEL;',@82!P<G-T871U<R!S
M=')U8W1U<F4@;V8@=&%S:PH@*B\*<W1R=6-T(&5L9E]P<G-T871U<R`*9V5T
M7W!R<W1A='5S*&MA9&1R7W0@=&%S:RD@"GL*("`@("`@("!V;VED("IT<W`L
M("IT:6UE<U]A9&1R.PH@("`@("`@('-T<G5C="!E;&9?<')S=&%T=7,@<')S
M=&%T=7,["B`@("`@("`@<W1R=6-T('1A<VM?8V]N=&5X="`J=&,["B`@("`@
M("`@:6YT('1M<U]U=&EM95]O9F8["@H*("`@("`@("!T<W`@/2!F:6QL7W1A
M<VM?<W1R=6-T*'1A<VLI.PH@("`@("`@(&EF*'1S<"`]/2!&04Q312D@9V]T
M;R!O=70["B`@("`@("`@"B`@("`@("`@=&,@/2!T87-K7W1O7V-O;G1E>'0H
M=&%S:RD["B`@("`*"B`@("`@("`@;65M<V5T*"9P<G-T871U<RP@,"P@<VEZ
M96]F*'-T<G5C="!E;&9?<')S=&%T=7,I*3L*"B`@("`@("`@<')S=&%T=7,N
M<')?<&ED(#T@=&,M/G!I9#L*("`@("`@("!I9B`H0U)!4TA$14)51R@Q*2D@
M>PH@("`@("`@("`@("`@("`@9G!R:6YT9BAF<"P@(G!R('1A<VL@)7@@<&ED
M("5D7&XB+"`H:6YT*71A<VLL<')S=&%T=7,N<')?<&ED*3L*("`@("`@("!]
M"B`@("`@("`@<')S=&%T=7,N<')?<'!I9"`]('1A<VM?=&]?<&ED*'1C+3YP
M=&%S:RD["B`@("`@("`@<')S=&%T=7,N<')?<&=R<"`](%5)3E0H='-P("L@
M3T9&4T54*'1A<VM?<W1R=6-T7W!G<G`I*3L*("`@("`@("!P<G-T871U<RYP
M<E]S:60@/2!524Y4*'1S<"`K(&]F9E]T87-K7W-T<G5C=%]S97-S:6]N*3L*
M"B`@("`@("`@=&EM97-?861D<B`]('1S<"`@*R!O9F9?=&%S:U]S=')U8W1?
M=&EM97,["B`@("`@("`@=&US7W5T:6UE7V]F9B`](&]F9E]T;7-?=&US7W5T
M:6UE.PH*("`@("`@("!P<G-T871U<RYP<E]U=&EM92YT=E]S96,@/2!#5%]4
M3U]314-3*%5)3E0H=&EM97-?861D<B`K('1M<U]U=&EM95]O9F8I*3L*("`@
M("`@("!P<G-T871U<RYP<E]U=&EM92YT=E]U<V5C(#T@0U1?5$]?55-%0U,H
M54E.5"AT:6UE<U]A9&1R("L@=&US7W5T:6UE7V]F9BDI.PH@("`@("`@('!R
M<W1A='5S+G!R7W-T:6UE+G1V7W-E8R`]($-47U1/7U-%0U,H54E.5"AT:6UE
M<U]A9&1R("L@;V9F7W1M<U]T;7-?<W1I;64I*3L*("`@("`@("!P<G-T871U
M<RYP<E]S=&EM92YT=E]U<V5C(#T@0U1?5$]?55-%0U,H54E.5"AT:6UE<U]A
M9&1R("L@;V9F7W1M<U]T;7-?<W1I;64I*3L*("`@("`@("!P<G-T871U<RYP
M<E]C=71I;64N='9?<V5C(#T@0U1?5$]?4T5#4RA524Y4*'1I;65S7V%D9'(@
M*R!O9F9?=&US7W1M<U]C=71I;64I*3L*("`@("`@("!P<G-T871U<RYP<E]C
M=71I;64N='9?=7-E8R`]($-47U1/7U5314-3*%5)3E0H=&EM97-?861D<B`K
M(&]F9E]T;7-?=&US7V-U=&EM92DI.PH@("`@("`@('!R<W1A='5S+G!R7V-S
M=&EM92YT=E]S96,@/2!#5%]43U]314-3*%5)3E0H=&EM97-?861D<B`K(&]F
M9E]T;7-?=&US7V-S=&EM92DI.PH@("`@("`@('!R<W1A='5S+G!R7V-S=&EM
M92YT=E]U<V5C(#T@0U1?5$]?55-%0U,H54E.5"AT:6UE<U]A9&1R("L@;V9F
M7W1M<U]T;7-?8W-T:6UE*2D["B`@("`@("`@:68H:7-?=&%S:U]A8W1I=F4H
M=&%S:RDI('L*("`@("`@("`@("`@("`@(&9P<FEN=&8H9G`L(").3U1%.B!T
M87-K(&AA<R!C<'4N7&XB*3L*("`@("`@("!]"@H@("`@("`@(&EF*&-O<F5?
M9V5T7W)E9W,H)G!R<W1A='5S+G!R7W)E9RP@=&%S:RP@='-P*2D@>PH@("`@
M("`@("`@("`@("`@9G!R:6YT9BAF<"P@(F=E=%]P<G-T871U<SH@36ES8R!E
M<G)O<B(I.PH@("`@("`@("`@("`@("`@9V]T;R!O=70["B`@("`@("`@?0H@
M("`@("`@(&EF*$-205-(1$5"54<H,2DI('L*("`@("`@("`@("`@("`@(&-O
M<F5?<')I;G1?<F5G<R@F<')S=&%T=7,N<')?<F5G*3L*("`@("`@("!]"@IO
M=70Z"B`@("`@("`@<F5T=7)N('!R<W1A='5S.PI]"@HO*@H@*B!G971?<')S
M=&%T=7,H*0H@*B!F:6QL<R!A('!R<'-I;F9O('-T<G5C='5R92!O9B!T87-K
M"B`J+PIS=')U8W0@96QF7W!R<'-I;F9O(`IG971?<')P<VEN9F\H:V%D9')?
M="!T87-K*0I["B`@("`@("`@:6YT('-T871E+"!R8SL*("`@("`@("!K861D
M<E]T(&UM87`["B`@("`@("`@=F]I9"`J='-P+"`J;6UP.PH@("`@("`@('-T
M<G5C="!E;&9?<')P<VEN9F\@<')P<VEN9F\["B`@("`@("`@<W1R=6-T('1A
M<VM?8V]N=&5X="`J=&,["@H*("`@("`@("!M;7`@/2!A;&QO8V$H4TE:12AM
M;5]S=')U8W0I*3L*"B`@("`@("`@='-P(#T@9FEL;%]T87-K7W-T<G5C="AT
M87-K*3L*("`@("`@("!I9BAT<W`@/3T@3E5,3"D@9V]T;R!O=70["@H@("`@
M("`@('1C(#T@=&%S:U]T;U]C;VYT97AT*'1A<VLI.PH*("`@("`@("!M;6%P
M(#T@=&%S:U]M;2AT87-K+"`Q*3L*("`@("`@("!M;7`@/2!F:6QL7VUM7W-T
M<G5C="AM;6%P*3L*("`@("`@("!I9BAM;7`@/3T@3E5,3"D@9V]T;R!O=70[
M"@H@("`@("`@('!R<'-I;F9O+G!R7W!I9"`]('1A<VM?=&]?<&ED*'1A<VLI
M.PH@("`@("`@('!R<'-I;F9O+G!R7W!P:60@/2!T87-K7W1O7W!I9"AT8RT^
M<'1A<VLI.PH@("`@("`@('!R<'-I;F9O+G!R7W!G<G`@/2!524Y4*'1S<"`K
M($]&1E-%5"AT87-K7W-T<G5C=%]P9W)P*2D["B`@("`@("`@<')P<VEN9F\N
M<')?<VED(#T@54E.5"AT<W`@*R!O9F9?=&%S:U]S=')U8W1?<V5S<VEO;BD[
M"@H@("`@("`@('-T871E(#T@54E.5"AT<W`@*R!-14U"15)?3T9&4T54*")T
M87-K7W-T<G5C="(L(")S=&%T92(I*3L*("`@("`@("!P<G!S:6YF;RYP<E]S
M=&%T92`]('-T871E.PH@("`@("`@('!R<'-I;F9O+G!R7W-N86UE(#T@*'-T
M871E(#P@,"!\?"!S=&%T92`^(#4I(#\@)RXG(#H@(E)31%I41");<W1A=&5=
M.PH@("`@("`@('!R<'-I;F9O+G!R7WIO;6(@/2!P<G!S:6YF;RYP<E]S;F%M
M92`]/2`G6B<["B`@("`@("`@<')P<VEN9F\N<')?;FEC92`](%5)3E0H='-P
M("L@345-0D527T]&1E-%5"@B=&%S:U]S=')U8W0B+"`B;FEC92(I*3L*("`@
M("`@("!P<G!S:6YF;RYP<E]F;&%G(#T@54E.5"AT<W`@*R!-14U"15)?3T9&
M4T54*")T87-K7W-T<G5C="(L(")F;&%G<R(I*3L*("`@("`@("!P<G!S:6YF
M;RYP<E]F;&%G('P](%!&7T1535!#3U)%.PH@("`@("`@('!R<'-I;F9O+G!R
M7W5I9"`](%5)3E0H='-P("L@345-0D527T]&1E-%5"@B=&%S:U]S=')U8W0B
M+"`B=6ED(BDI.PH@("`@("`@('!R<'-I;F9O+G!R7V=I9"`](%5)3E0H='-P
M("L@345-0D527T]&1E-%5"@B=&%S:U]S=')U8W0B+"`B9VED(BDI.PH*("`@
M("`@("!S=')N8W!Y*'!R<'-I;F9O+G!R7V9N86UE+"!T8RT^8V]M;2P@<VEZ
M96]F*'!R<'-I;F9O+G!R7V9N86UE*2D["@H@("`@("`@(&-O<F5?9V5T7V%R
M9W,H;6UP+"!53$].1RAM;7`@*R!/1D93150H;6U?<W1R=6-T7V%R9U]S=&%R
M="DI+`H@("`@("`@("`@("`@("`@("`@("`@("!53$].1RAM;7`@*R!/1D93
M150H;6U?<W1R=6-T7V%R9U]E;F0I*2`M"B`@("`@("`@("`@("`@("`@("`@
M("`@(%5,3TY'*&UM<"`K($]&1E-%5"AM;5]S=')U8W1?87)G7W-T87)T*2DL
M"B`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("!P<G!S
M:6YF;RYP<E]P<V%R9W,I.PH@("`@("`@(&EF*')C*2!["B`@("`@("`@("`@
M("`@("!F<')I;G1F*&9P+"`B3D]413H@56YA8FQE('1O(&=E="!A<F=U;65N
M=',A7&XB*3L*("`@("`@("!](&5L<V4@>PH@("`@("`@("`@("`@("`@:68@
M*$-205-(1$5"54<H,2DI('L*("`@("`@("`@("`@("`@("`@("`@("`@9G!R
M:6YT9BAF<"P@(G!I9#H@)60@)7,@(&%R9W,@)7-<;B(L("AI;G0I('1C+3YP
M:60L('1C+3YC;VUM+`H@("`@("`@("`@("`@("`@("`@("`@("`@("`@<')P
M<VEN9F\N<')?<'-A<F=S*3L*("`@("`@("`@("`@("`@('T*("`@("`@("!]
M"@IO=70Z"B`@("`@("`@+R]K;%]F<F5E7V)L;V-K*&UM<"D["B`@("`@("`@
M+R]K;%]F<F5E7V)L;V-K*'1S<"D["B`@("`@("`@<F5T=7)N('!R<'-I;F9O
M.PH*?0H*+RH*("H@96QF7V-O<F5?9'5M<"@I"B`J("T@9'5M<',@86X@14Q&
M(&-O<F4@;V8@8V]R<F5S<&]N9&EN9R!T87-K"B`J('1H<F5A9%]M;V1E(#T@
M,2`M/B!F;VQL;W<@=&AR96%D<PH@*@H@*B`@3$%93U54($]&(%1(12!%3$8@
M0T]210H@*@H@*B`@("`@("LM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM*PH@*B`@("`@('P@14Q&(&AE861E<B`@("`@("`@("`@("`@("`@("`@
M?`H@*B`@("`@("LM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM*PH@
M*B`@("`@('P@14Q&(&YO=&4@("`@("`@("`@("`@("`@("`@("`@?`H@*B`@
M("`@("LM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM*PH@*B`@("`@
M('P@14Q&('!R;V=R86T@:&5A9&5R<R`@("`@("`@("`@?`H@*B`@("`@(#H@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@?`H@*B`@("`@("LM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM*PH@*B`@("`@('P@14Q&('!R
M<W1A='5S("`@("`@("`@("`@("`@("`@?`H@*B`@("`@("LM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM*PH@*B`@("`@('P@14Q&('!R<'-I;F9O
M("`@("`@("`@("`@("`@("`@?`H@*B`@("`@("LM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM*PH@*B`@("`@('P@14Q&('1A<VMS=')U8W0@("`@
M("`@("`@("`@("`@?`H@*B`@("`@("LM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM*PH@*B`@("`@('P@14Q&('!R<W1A='5S(&9O<B!E86-H('1H
M<F5A9"`@?`H@*B`@("`@(#H@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@?`H@*B`@("`@("LM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M*PH@*B`@("`@('P@14Q&(&QO861S("`@("`@("`@("`@("`@("`@("`@I@H@
M*B`@("`@(#H@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@?`H@*B`@
M("`@(#H@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@?`H@*B`@("`@
M("LM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM*PH@*B\*=F]I9"`*
M96QF7V-O<F5?9'5M<"AK861D<E]T('1A<VLL(&EN="!T:')E861?;6]D92P@
M8VAA<B`J9FEL96YA;64L($9)3$4@*F]F<"D*>PH@("`@("`@('9O:60@*G1S
M<"P@*FUM<"P@*G9M87!P+"`J=FU?;F5X=#L*("`@("`@("!K861D<E]T(&-H
M:6QD+"!M;6%P+"!V;6%P+"!S=&%R="P@96YD.PH@("`@("`@(&-H87(@*FUA
M<FL["@H@("`@("`@('-T<G5C="!M96UE;&9N;W1E(&YO=&4["B`@("`@("`@
M<W1R=6-T(&5L9E]P<G-T871U<R!P<G-T871U<SL*("`@("`@("!S=')U8W0@
M96QF7W!R<'-I;F9O('!R<'-I;F9O.PH@("`@("`@(&5L9E]F<')E9W-E=%]T
M(&9P=3L*"B`@("`@("`@1DE,12`J(&-O<F5?9FEL93L*("`@("`@("!U;G-I
M9VYE9"!I;G0@;6%P7V-O=6YT.PH*("`@("`@("!S=')U8W0@96QF7W!H9'(@
M<&YH9'(L('!H9'(["B`@("`@("`@<W1R=6-T(&5L9FAD<B!E;&8["B`@("`@
M("`@"B`@("`@("`@:6YT(&YO=&5S7W-Z+"!I+"!V;6%?9FQA9W,L('-Z.PH@
M("`@("`@('5N<VEG;F5D(&QO;F<@;&]A9'-?;V9F<V5T+"!O9F9S970@/2`P
M.PH@("`@("`@('-T<G5C="!T87-K7V-O;G1E>'0@*G1C.PH@("`@("`@(&EN
M="!R8R`](#`["@H@("`@("`@(&EF("@A*&-O<F5?9FEL92`](&9O<&5N*&9I
M;&5N86UE+"`B=R(I*2D@>PH@("`@("`@("`@("`@("`@9G!R:6YT9BAF<"P@
M(D9!24Q54D4@;W!E;FEN9R!C;W)E(&9I;&4A7&XB*3L*("`@("`@("`@("`@
M("`@(')E='5R;CL*("`@("`@("!]"@H@("`@("`@('1S<"`](&9I;&Q?=&%S
M:U]S=')U8W0H=&%S:RD["B`@("`@("`@:68H='-P(#T]($Y53$PI(&=O=&\@
M9F%I;&5D.PH*("`@("`@("!T8R`]('1A<VM?=&]?8V]N=&5X="AT87-K*3L*
M"B`@("`@("`@9G!R:6YT9BAO9G`L(")$=6UP:6YG($5,1B!C;W)E7&Y<;C!X
M)3`X>"!;)61=.B`E<UQN(BP@"B`@("`@("`@("`@("`@("`@("`@("`@("AU
M:6YT,S)?="D@=&%S:RP@*'5I;G0S,E]T*2!T8RT^<&ED+"!T8RT^8V]M;2D[
M"@H@("`@("`@("\J(&=E="!T:')E861S("HO(`H@("`@("`@(&YU;6)E<E]O
M9E]T:')E861S(#T@,#L*("`@("`@("!I9BAT:')E861?;6]D92D@>PH@("`@
M("`@("`@("`@("`@;6%R:SUM86QL;V,H,3`R-"D["B`@("`@("`@("`@("`@
M("!M87)K6S!=(#T@)UPP)SL*("`@("`@("`@("`@("`@(&-H:6QD(#T@54E.
M5"AT<W`@*R!O9F9?=&%S:U]S=')U8W1?<%]C<'1R*3L*("`@("`@("`@("`@
M("`@(&EF*&-H:6QD("$](#`I(&=E=%]T:')E861S*&-H:6QD+"!S=')C870H
M;6%R:RP@(EQT(BDI.PH@("`@("`@("`@("`@("`@9G)E92AM87)K*3L*("`@
M("`@("!]"B`@("`@("`@:68H<F,I('L*("`@("`@("`@("`@("`@(&9P<FEN
M=&8H;V9P+"`B3D]413H@56YA8FQE('1O(&=E="!T:')E861S+EQN(BD["B`@
M("`@("`@("`@("`@("!N=6UB97)?;V9?=&AR96%D<R`](#`["B`@("`@("`@
M?0H*("`@("`@("`O*B`J+PH@("`@("`@('1C(#T@=&%S:U]T;U]C;VYT97AT
M*'1A<VLI.PH@("`@("`@('-E=%]C;VYT97AT*'1A<VLL('1C+3YP:60I.PH@
M("`@("`@(&UM87`@/2!T8RT^;6U?<W1R=6-T.PH@("`@("`@(&UM<"`](&9I
M;&Q?;6U?<W1R=6-T*&UM87`I.PH@("`@("`@(&EF("AM;7`@/3T@3E5,3"D@
M9V]T;R!F86EL960["@H@("`@("`@(&UA<%]C;W5N="`](%5)3E0H;6UP("L@
M345-0D527T]&1E-%5"@B;6U?<W1R=6-T(BP@(FUA<%]C;W5N="(I*3L*"B`@
M("`@("`@+RH@14Q&(&AE861E<B`J+PH@("`@("`@(&UE;6-P>2AE;&8N95]I
M9&5N="P@14Q&34%'+"!314Q&34%'*3L*("`@("`@("!E;&8N95]I9&5N=%M%
M25]#3$%34UT@/2!%3$9?0TQ!4U,["B`@("`@("`@96QF+F5?:61E;G1;14E?
M1$%405T@/2!%3$9?1$%403L*("`@("`@("!E;&8N95]I9&5N=%M%25]615)3
M24].72`]($567T-54E)%3E0["B`@("`@("`@;65M<V5T*&5L9BYE7VED96YT
M*T5)7U!!1"P@,"P@14E?3DE$14Y4+45)7U!!1"D["@H@("`@("`@(&5L9BYE
M7W1Y<&4@/2!%5%]#3U)%.PH@("`@("`@(&5L9BYE7VUA8VAI;F4@/2!%3$9?
M05)#2#L*("`@("`@("!E;&8N95]V97)S:6]N(#T@159?0U524D5.5#L*("`@
M("`@("!E;&8N95]E;G1R>2`](#`["B`@("`@("`@96QF+F5?<&AO9F8@/2!S
M:7IE;V8H96QF*3L@("`@("`O*B!S=&%R="!O9B!P<F]G<F%M;2!H96%D97)S
M("HO"B`@("`@("`@96QF+F5?<VAO9F8@/2`P.PH@("`@("`@(&5L9BYE7V9L
M86=S(#T@,#L*("`@("`@("!E;&8N95]E:'-I>F4@/2!S:7IE;V8H96QF*3L*
M("`@("`@("!E;&8N95]P:&5N='-I>F4@/2!S:7IE;V8H<W1R=6-T(&5L9E]P
M:&1R*3L*("`@("`@("!E;&8N95]P:&YU;2`](&UA<%]C;W5N="LQ.R`@("`@
M("`@("`@+RH@26YC;'5D92!N;W1E<R`J+PH@("`@("`@(&5L9BYE7W-H96YT
M<VEZ92`](#`["B`@("`@("`@96QF+F5?<VAN=6T@/2`P.PH@("`@("`@(&5L
M9BYE7W-H<W1R;F1X(#T@,#L*"B`@("`@("`@:68H0U)!4TA$14)51R@Q*2D@
M>PH@("`@("`@("`@("`@("`@9G!R:6YT9BAO9G`L(")7<FET:6YG($5,1B!H
M96%D97(@870@)6QD7&XB+"!F=&5L;"AC;W)E7V9I;&4I*3L*("`@("`@("!]
M"B`@("`@("`@:68H8V]R95]D=6UP7W=R:71E*&-O<F5?9FEL92P@)F5L9BP@
M<VEZ96]F*&5L9BDI*2!["B`@("`@("`@("`@("`@("!G;W1O(&9A:6QE9#L*
M("`@("`@("!]"@H@("`@("`@("\J($5,1B!N;W1E("HO"B`@("`@("`@;F]T
M97-?<WH@/2`H;G5M8F5R7V]F7W1H<F5A9',K,2D@*B!C;W)E7VYO=&5S:7IE
M*")#3U)%(BP@<VEZ96]F*'-T<G5C="!E;&9?<')S=&%T=7,I*2`K(`H@("`@
M("`@("`@("`@("`@("`@("`@("!C;W)E7VYO=&5S:7IE*")#3U)%(BP@<VEZ
M96]F*'-T<G5C="!E;&9?<')P<VEN9F\I*2`K(`H@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@(&-O<F5?;F]T97-I>F4H(D-/4D4B+"!325I%*'1A
M<VM?<W1R=6-T*2D["B`@("`@("`@+RH@9G!U("HO"B`@("`@("`@:68H9G!U
M7W9A;&ED*'1A<VLI*2!["B`@("`@("`@("`@("`@("`@("`@("`@(&YO=&5S
M7W-Z("L](&-O<F5?;F]T97-I>F4H(D-/4D4B+"!S:7IE;V8H96QF7V9P<F5G
M<V5T7W0I*3L*("`@("`@("!]"@H@("`@("`@(&9O<BAI/3`[(&D\;G5M8F5R
M7V]F7W1H<F5A9',[(&DK*RD@>PH@("`@("`@("`@("`@("`@:68H9G!U7W9A
M;&ED*'1H<F5A9%MI72DI('L*("`@("`@("`@("`@("`@("`@("`@("`@;F]T
M97-?<WH@*ST@8V]R95]N;W1E<VEZ92@B0T]212(L('-I>F5O9BAE;&9?9G!R
M96=S971?="DI.PH@("`@("`@("`@("`@("`@?0H@("`@("`@('T*"B`@("`@
M("`@<&YH9'(N<%]T>7!E(#T@4%1?3D]413L*("`@("`@("!P;FAD<BYP7V]F
M9G-E="`]('-I>F5O9BAE;&8I("L@*&UA<%]C;W5N="LQ*2`J('-I>F5O9BAS
M=')U8W0@96QF7W!H9'(I.PH@("`@("`@('!N:&1R+G!?=F%D9'(@/2`P.PH@
M("`@("`@('!N:&1R+G!?<&%D9'(@/2`P.PH@("`@("`@('!N:&1R+G!?9FEL
M97-Z(#T@;F]T97-?<WH["B`@("`@("`@<&YH9'(N<%]M96US>B`](#`["B`@
M("`@("`@<&YH9'(N<%]F;&%G<R`](#`["B`@("`@("`@<&YH9'(N<%]A;&EG
M;B`](#`["@H@("`@("`@(&EF*$-205-(1$5"54<H,2DI('L*("`@("`@("`@
M("`@("`@(&9P<FEN=&8H;V9P+"`B5W)I=&EN9R!%3$8@;F]T92!A="`E;&0@
M*'-I>F5O9B!N;W1E<SH@)60I7&XB+"!F=&5L;"AC;W)E7V9I;&4I+"!N;W1E
M<U]S>BD["B`@("`@("`@?0H@("`@("`@(&-O<F5?9'5M<%]W<FET92AC;W)E
M7V9I;&4L("9P;FAD<BP@<VEZ96]F*'-T<G5C="!E;&9?<&AD<BDI.PH@("`@
M("`@(&EF*')C*2!G;W1O(&9A:6QE9#L*"B`@("`@("`@;V9F<V5T(#T@;&]A
M9'-?;V9F<V5T(#T@<F]U;F1U<"AP;FAD<BYP7V]F9G-E="MN;W1E<U]S>BP@
M4$%'15-)6D4H*2D["@H@("`@("`@("\J($5,1B!P:&1R<R`J+PH@("`@("`@
M('9M87`@/2`H:V%D9')?="D@54Q/3D=?4%12*&UM<"`K($]&1E-%5"AM;5]S
M=')U8W1?;6UA<"DI.PH@("`@("`@(&EF*'9M87`@/3T@,"D@9V]T;R!F86EL
M960["@H@("`@("`@(&EF*$-205-(1$5"54<H,2DI('L*("`@("`@("`@("`@
M("`@(&9P<FEN=&8H;V9P+"`B5W)I=&EN9R`E9"!%3$8@<')O9W)A;2!H9')S
M(&%T("5L9"`H;V9F<V5T(&]F(&QO861S.B`E;&0I7&XB+"`*("`@("`@("`@
M("`@("`@("`@("`@("`@;6%P7V-O=6YT+"!F=&5L;"AC;W)E7V9I;&4I+"!L
M;V%D<U]O9F9S970I.PH@("`@("`@('T*("`@("`@("`@("`@("`@(`H@("`@
M("`@("\J('!R;V-E<W,@;65M;W)Y(')E9VEO;G,@*B\*("`@("`@("!W:&EL
M92AV;6%P*2!["@H@("`@("`@("`@("`@("`@=FUA<'`@/2!F:6QL7W9M85]C
M86-H92AV;6%P*3L*"B`@("`@("`@("`@("`@("!S=&%R="`](%5,3TY'*'9M
M87!P("L@3T9&4T54*'9M7V%R96%?<W1R=6-T7W9M7W-T87)T*2D["B`@("`@
M("`@("`@("`@("!E;F0@("`](%5,3TY'*'9M87!P("L@3T9&4T54*'9M7V%R
M96%?<W1R=6-T7W9M7V5N9"DI.PH@("`@("`@("`@("`@("`@=FU?;F5X="`]
M(%9/241?4%12*'9M87!P("L@3T9&4T54*'9M7V%R96%?<W1R=6-T7W9M7VYE
M>'0I*3L*("`@("`@("`@("`@("`@('-Z(#T@96YD("T@<W1A<G0["@H@("`@
M("`@("`@("`@("`@=FUA7V9L86=S(#T@54E.5"AV;6%P<"`K($]&1E-%5"AV
M;5]A<F5A7W-T<G5C=%]V;5]F;&%G<RDI.PH@("`@("`@("`@("`@("`@<&AD
M<BYP7W1Y<&4@/2!05%],3T%$.PH@("`@("`@("`@("`@("`@<&AD<BYP7V]F
M9G-E="`](&]F9G-E=#L*("`@("`@("`@("`@("`@('!H9'(N<%]V861D<B`]
M('-T87)T.PH@("`@("`@("`@("`@("`@<&AD<BYP7W!A9&1R(#T@,#L*("`@
M("`@("`@("`@("`@('!H9'(N<%]F:6QE<WH@/2!C;W)E7VUA>61U;7`H=FUA
M7V9L86=S*2`_('-Z(#H@,#L@+RH@9&]N)W0@9'5M<"`J+PH@("`@("`@("`@
M("`@("`@<&AD<BYP7VUE;7-Z(#T@<WH["B`@("`@("`@("`@("`@("!P:&1R
M+G!?9FQA9W,@/2!V;6%?9FQA9W,@)B!635]214%$(#\@4$9?4B`Z(#`["B`@
M("`@("`@("`@("`@("!I9B`H=FUA7V9L86=S("8@5DU?5U))5$4I('!H9'(N
M<%]F;&%G<R!\/2!01E]7.PH@("`@("`@("`@("`@("`@:68@*'9M85]F;&%G
M<R`F(%9-7T5814,I('!H9'(N<%]F;&%G<R!\/2!01E]8.PH@("`@("`@("`@
M("`@("`@<&AD<BYP7V%L:6=N(#T@4$%'15-)6D4H*3L*"B`@("`@("`@("`@
M("`@("!R8R`](#`["B`@("`@("`@("`@("`@("!C;W)E7V1U;7!?=W)I=&4H
M8V]R95]F:6QE+"`F<&AD<BP@<VEZ96]F*'!H9'(I*3L*("`@("`@("`@("`@
M("`@(&EF*')C*2!G;W1O(&9A:6QE9#L*"B`@("`@("`@("`@("`@("!O9F9S
M970@*ST@<&AD<BYP7V9I;&5S>CL*("`@("`@("`@("`@("`@('9M87`@/2`H
M=6QO;F<I('9M7VYE>'0["B`@("`@("`@?0H*("`@("`@("!C;W)E7V1U;7!?
M<V5E:RAC;W)E7V9I;&4L('!N:&1R+G!?;V9F<V5T*3L@+RH@<V5E:R!T;R!N
M;W1E<R!O9F9S970@*B\*("`@("`@("!I9BAR8RD@9V]T;R!F86EL960["@H@
M("`@("`@("\J($5,1B!P<G-T871U<R!N;W1E("HO"B`@("`@("`@;F]T92YN
M86UE(#T@(D-/4D4B.PH@("`@("`@(&YO=&4N='EP92`]($Y47U!24U1!5%53
M.PH*("`@("`@("!P<G-T871U<R`](&=E=%]P<G-T871U<RAT87-K*3L*("`@
M("`@("!I9BAR8RD@9V]T;R!F86EL960["B`@("`@("`@:68H0U)!4TA$14)5
M1R@Q*2D@>PH@("`@("`@("`@("`@("`@9G!R:6YT9BAO9G`L(")7<FET:6YG
M($5,1B!P<G-T871U<R!N;W1E(&%T("5L9%QN(BP@9G1E;&PH8V]R95]F:6QE
M*2D["B`@("`@("`@?0H@("`@("`@(&EF*&-O<F5?=W)I=&5N;W1E*&-O<F5?
M9FEL92P@)FYO=&4L("AV;VED("HI)G!R<W1A='5S+"!S:7IE;V8H<W1R=6-T
M(&5L9E]P<G-T871U<RDI*2!["B`@("`@("`@("`@("`@("!G;W1O(&9A:6QE
M9#L*("`@("`@("!]"@H@("`@("`@("\J($5,1B!P<G!S:6YF;R!N;W1E("HO
M"B`@("`@("`@;65M<V5T*"9P<G!S:6YF;RP@,"P@<VEZ96]F*'-T<G5C="!E
M;&9?<')P<VEN9F\I*3L*"B`@("`@("`@;F]T92YN86UE(#T@(D-/4D4B.PH@
M("`@("`@(&YO=&4N='EP92`]($Y47U!24%-)3D9/.PH*("`@("`@("!P<G!S
M:6YF;R`](&=E=%]P<G!S:6YF;RAT87-K*3L*("`@("`@("!I9BAR8RD@9V]T
M;R!F86EL960["B`@("`@("`@:68H0U)!4TA$14)51R@Q*2D@>PH@("`@("`@
M("`@("`@("`@9G!R:6YT9BAO9G`L(")7<FET:6YG($5,1B!P<G!S:6YF;R!N
M;W1E(&%T("5L9%QN(BP@9G1E;&PH8V]R95]F:6QE*2D["B`@("`@("`@?0H@
M("`@("`@(&EF*&-O<F5?=W)I=&5N;W1E*&-O<F5?9FEL92P@)FYO=&4L("AV
M;VED("HI)G!R<'-I;F9O+"!S:7IE;V8H<W1R=6-T(&5L9E]P<G!S:6YF;RDI
M*2!["B`@("`@("`@("`@("`@("!G;W1O(&9A:6QE9#L*("`@("`@("!]"@H*
M"B`@("`@("`@+RH@14Q&('1A<VMS=')U8W0@;F]T92`J+PH@("`@("`@(&YO
M=&4N;F%M92`](")#3U)%(CL*("`@("`@("!N;W1E+G1Y<&4@/2!.5%]405-+
M4U1254-4.PH*("`@("`@("!I9BA#4D%32$1%0E5'*#$I*2!["B`@("`@("`@
M("`@("`@("!F<')I;G1F*&]F<"P@(E=R:71I;F<@14Q&('1A<VMS=')U8W0@
M;F]T92!A="`E;&1<;B(L(&9T96QL*&-O<F5?9FEL92DI.PH@("`@("`@('T*
M("`@("`@("!I9BAC;W)E7W=R:71E;F]T92AC;W)E7V9I;&4L("9N;W1E+"!T
M<W`L(%-)6D4H=&%S:U]S=')U8W0I*2D@>PH@("`@("`@("`@("`@("`@9V]T
M;R!F86EL960["B`@("`@("`@?0H*("`@("`@("`O*B!%3$8@9G!U(&YO=&4@
M*B\*("`@("`@("!I9B@A8V]R95]G971?9G!U*'1A<VLL("9F<'4I*2!["@H@
M("`@("`@("`@("`@("`@;F]T92YN86UE(#T@(D-/4D4B.PH@("`@("`@("`@
M("`@("`@;F]T92YT>7!E(#T@3E1?4%)&4%)%1SL*"B`@("`@("`@("`@("`@
M("!I9BA#4D%32$1%0E5'*#$I*2!["B`@("`@("`@("`@("`@("`@("`@("`@
M(&9P<FEN=&8H;V9P+"`B5W)I=&EN9R!%3$8@9G!U(&YO=&4@870@)6QD(&QE
M;B`E9%QN(BP@9G1E;&PH8V]R95]F:6QE*2P@<VEZ96]F*&5L9E]F<')E9W-E
M=%]T*2D["B`@("`@("`@("`@("`@("`@("`@("`@(&-O<F5?<')I;G1?9G!R
M96=S*"9F<'4I.PH@("`@("`@("`@("`@("`@?0H@("`@("`@("`@("`@("`@
M:68H8V]R95]W<FET96YO=&4H8V]R95]F:6QE+"`F;F]T92P@)F9P=2P@<VEZ
M96]F*&5L9E]F<')E9W-E=%]T*2DI('L*("`@("`@("`@("`@("`@("`@("`@
M("`@9V]T;R!F86EL960["B`@("`@("`@("`@("`@("!](`H@("`@("`@('T*
M"@H@("`@("`@("\J($5,1B!P<G-T871U<R`F($9052!N;W1E(&9O<B!E86-H
M('1H<F5A9"`@*B\*"B`@("`@("`@9F]R*&D],#L@:2`\(&YU;6)E<E]O9E]T
M:')E861S.R!I*RLI('L*"B`@("`@("`@("`@("`@("`O*B!%3$8@<')S=&%T
M=7,@;F]T92`J+PH@("`@("`@("`@("`@("`@;F]T92YN86UE(#T@(D-/4D4B
M.PH@("`@("`@("`@("`@("`@;F]T92YT>7!E(#T@3E1?4%)35$%455,["B`@
M("`@("`@("`@("`@("!P<G-T871U<R`](&=E=%]P<G-T871U<RAT:')E861;
M:5TI.PH@("`@("`@("`@("`@("`@:68H<F,I(&=O=&\@9F%I;&5D.PH@("`@
M("`@("`@("`@("`@:68H0U)!4TA$14)51R@Q*2D@>PH@("`@("`@("`@("`@
M("`@("`@("`@("!F<')I;G1F*&]F<"P@(E=R:71I;F<@14Q&('1H<F5A9"!P
M<G-T871U<R!N;W1E(&9O<B`P>"4P.'@@870@)6QD7&XB+"`H:6YT*2!T:')E
M861;:5TL(&9T96QL*&-O<F5?9FEL92DI.PH@("`@("`@("`@("`@("`@?0H@
M("`@("`@("`@("`@("`@:68H8V]R95]W<FET96YO=&4H8V]R95]F:6QE+"`F
M;F]T92P@*'9O:60@*BDF<')S=&%T=7,L('-I>F5O9BAS=')U8W0@96QF7W!R
M<W1A='5S*2DI('L*("`@("`@("`@("`@("`@("`@("`@("`@9V]T;R!F86EL
M960["B`@("`@("`@("`@("`@("!]"@H@("`@("`@("`@("`@("`@+RH@14Q&
M(&9P=2!N;W1E("HO"B`@("`@("`@("`@("`@("!I9B@A8V]R95]G971?9G!U
M*'1H<F5A9%MI72P@)F9P=2DI('L*"B`@("`@("`@("`@("`@("`@("`@("`@
M(&YO=&4N;F%M92`](")#3U)%(CL*("`@("`@("`@("`@("`@("`@("`@("`@
M;F]T92YT>7!E(#T@3E1?4%)&4%)%1SL*"B`@("`@("`@("`@("`@("`@("`@
M("`@(&EF*$-205-(1$5"54<H,2DI('L*("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("!F<')I;G1F*&]F<"P@(E=R:71I;F<@14Q&(&9P=2!N;W1E
M(&%T("5L9"!L96X@)61<;B(L(&9T96QL*&-O<F5?9FEL92DL('-I>F5O9BAE
M;&9?9G!R96=S971?="DI.PH@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@(&-O<F5?<')I;G1?9G!R96=S*"9F<'4I.PH@("`@("`@("`@("`@("`@
M("`@("`@("!]"B`@("`@("`@("`@("`@("`@("`@("`@(&EF*&-O<F5?=W)I
M=&5N;W1E*&-O<F5?9FEL92P@)FYO=&4L("9F<'4L('-I>F5O9BAE;&9?9G!R
M96=S971?="DI*2!["B`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M9V]T;R!F86EL960["B`@("`@("`@("`@("`@("`@("`@("`@('T*("`@("`@
M("`@("`@("`@('T@96QS92!["B`@("`@("`@("`@("`@("`@("`@("`@("\J
M(%A86"!G;W1O(&9A:6QE9#L@*B\*("`@("`@("`@("`@("`@('T*("`@("`@
M("!]"@H@("`@("`@("\J($5,1B!L;V%D<R`J+PH@("`@("`@(&EF*&-O<F5?
M9'5M<%]S965K*&-O<F5?9FEL92P@;&]A9'-?;V9F<V5T*2D@>PH@("`@("`@
M("`@("`@("`@9V]T;R!F86EL960["B`@("`@("`@?0H*("`@("`@("!I9BA#
M4D%32$1%0E5'*#$I*2!["B`@("`@("`@("`@("`@("!F<')I;G1F*&]F<"P@
M(E=R:71I;F<@14Q&(&QO861S(&%T("5L9%QN(BP@(&9T96QL*&-O<F5?9FEL
M92DI.PH@("`@("`@('T*("`@("`@("!V;6%P(#T@*&MA9&1R7W0I(%5,3TY'
M7U!44BAM;7`@*R!/1D93150H;6U?<W1R=6-T7VUM87`I*3L*"B`@("`@("`@
M=VAI;&4H=FUA<"D@>PH@("`@("`@("`@("`@("`@:6YT(&X@/2`P.PH*("`@
M("`@("`@("`@("`@('9M87!P(#T@9FEL;%]V;6%?8V%C:&4H=FUA<"D["@H@
M("`@("`@("`@("`@("`@<W1A<G0@/2!53$].1RAV;6%P<"`K($]&1E-%5"AV
M;5]A<F5A7W-T<G5C=%]V;5]S=&%R="DI.PH@("`@("`@("`@("`@("`@96YD
M("`@/2!53$].1RAV;6%P<"`K($]&1E-%5"AV;5]A<F5A7W-T<G5C=%]V;5]E
M;F0I*3L*("`@("`@("`@("`@("`@('9M7VYE>'0@/2!63TE$7U!44BAV;6%P
M<"`K($]&1E-%5"AV;5]A<F5A7W-T<G5C=%]V;5]N97AT*2D["@H@("`@("`@
M("`@("`@("`@=FUA7V9L86=S(#T@54E.5"AV;6%P<"`K($]&1E-%5"AV;5]A
M<F5A7W-T<G5C=%]V;5]F;&%G<RDI.PH*("`@("`@("`@("`@("`@(&EF("AC
M;W)E7VUA>61U;7`H=FUA7V9L86=S*2D@>PH@("`@("`@("`@("`@("`@("`@
M("`@("!N(#T@8V]R95]D=6UP7W!G<RAM;7`L(&-O<F5?9FEL92P@<W1A<G0L
M(&5N9"D["B`@("`@("`@("`@("`@("!]"B`@("`@("`@("`@("`@("!I9BA#
M4D%32$1%0E5'*#$I*2!["B`@("`@("`@("`@("`@("`@("`@("`@(&9P<FEN
M=&8H;V9P+"`B)60@<&%G97,@9'5M<&5D(&9O<B!V;6$@,'@E,#AX7&XB+"!N
M+"`H:6YT*2!V;6%P*3L*("`@("`@("`@("`@("`@('T*("`@("`@(`H@("`@
M("`@('9M87`@/2`H:V%D9')?="D@=FU?;F5X=#L*("`@("`@("!]"@H@("`@
M("`@(&9P<FEN=&8H;V9P+"`B7&YC;W)E(&1U;7!E9"!T;R`G)7,G+EQN(BP@
M9FEL96YA;64I.PIE;F0Z"@H@("`@("`@(&9C;&]S92AC;W)E7V9I;&4I.PH@
M("`@("`@(')E='5R;CL*"F9A:6QE9#H*("`@("`@("!F8VQO<V4H8V]R95]F
M:6QE*3L*("`@("`@("!U;FQI;FLH9FEL96YA;64I.PH*("`@("`@("!F<')I
M;G1F*&9P+"`B1D%)3%5212!W:&EL92!D=6UP:6YG(&-O<F4@(5QN("T@(BD[
M"B`@("`@("`@9G!R:6YT9BAF<"P@(EQN(BD["B`@("`@("`@9V]T;R!E;F0[
M"GT*"F-H87(@*FAE;'!?8VUD7W!C;W)E6UT@/2!["B`@("`@("`@(G!C;W)E
M(BP@("`@("`@("`@("`@("`@("`@("`@("`@+RH@8V]M;6%N9"!N86UE("HO
M"B`@("`@("`@(D1U;7`@9V1B+6-O;7!A=&EB;&4@14Q&(&-O<F4@;V8@82!T
M87-K+B(L("\J(%-H;W)T(&1E<V-R:7!T:6]N("HO"B`@("`@("`@(B!;+71=
M(%LM;R`\9FEL96YA;64^72`\=&%S:SXB+"`@("`@("`@("`O*B!3>6YO<'-I
M<R`J+PH@("`@("`@(")4:&4@)W!C;W)E)R!C;VUM86YD(&=E;F5R871E<R!A
M;B!%3$8@9F]R;6%T(&-O<F4@9FEL92!O9B!A(BP*("`@("`@("`B=7-E<BUL
M979E;"!P<F]C97-S+B`@5&AE("<M="<@;W!T:6]N(&1U;7!S(&%L;"!C:&EL
M9"!T:')E861S+B(L"B`@("`@("`@(E1H92`G+6\G(&]P=&EO;B!O=F5R<FED
M97,@=&AE(&1E9F%U;'0@9FEL96YA;64@;V8@)V-O<F4G+B<B+`H@("`@("`@
M(")4:&4@/'1A<VL^('!R;W9I9&5D(&ES(&EN=&5R<')E=&5D(&%S(&$@<')O
M8V5S<R!)1"!I9B!B:71S(&%R92!S970B+`H@("`@("`@(")W:71H:6X@4$%'
M15-)6D4@;W1H97)W:7-E(&ET)W,@=')E871E9"!A<R!A('1A<VLB+`H@("`@
M("`@($Y53$P*?3L*"G9O:60@8VUD7W!C;W)E*'9O:60I.PIS=&%T:6,@<W1R
M=6-T(&-O;6UA;F1?=&%B;&5?96YT<GD@8V]M;6%N9%]T86)L95M=(#T@>PH@
M("`@("`@('LB<&-O<F4B+"!C;61?<&-O<F4L(&AE;'!?8VUD7W!C;W)E+"`P
M?2P*("`@("`@("![*&-H87(@*BE.54Q,?2P*?3L*"G9O:60*7VEN:70H=F]I
M9"D@+RH@4F5G:7-T97(@=&AE(&-O;6UA;F0@<V5T+B`J+PI["B`@("`@("`@
M+RH@26YI=&EA;&EZ92!E;&5M96YT<R!W92!M:6=H="!N;W0@:&%V92!Y970@
M*B\*"6EF("A)3E9!3$E$7TU%34)%4BAM;5]S=')U8W1?87)G7W-T87)T*2D@
M>PH)"4U%34)%4E]/1D93151?24Y)5"AM;5]S=')U8W1?87)G7W-T87)T+"`B
M;6U?<W1R=6-T(BP@(F%R9U]S=&%R="(I.PH)"4U%34)%4E]/1D93151?24Y)
M5"AM;5]S=')U8W1?87)G7V5N9"P@(FUM7W-T<G5C="(L(")A<F=?96YD(BD[
M"@D)345-0D527T]&1E-%5%])3DE4*&UM7W-T<G5C=%]E;G9?<W1A<G0L(")M
M;5]S=')U8W0B+"`B96YV7W-T87)T(BD["@D)345-0D527T]&1E-%5%])3DE4
M*&UM7W-T<G5C=%]E;G9?96YD+"`B;6U?<W1R=6-T(BP@(F5N=E]E;F0B*3L*
M"7T*"B`@("`@("`@;V9F7W1A<VM?<W1R=6-T7W!?;W-P='(@/2!-14U"15)?
M3T9&4T54*")T87-K7W-T<G5C="(L(")P7V]S<'1R(BD["B`@("`@("`@;V9F
M7W1A<VM?<W1R=6-T7W!?>7-P='(@/2!-14U"15)?3T9&4T54*")T87-K7W-T
M<G5C="(L(")P7WES<'1R(BD["B`@("`@("`@;V9F7W1A<VM?<W1R=6-T7W!?
M8W!T<B`]($U%34)%4E]/1D93150H(G1A<VM?<W1R=6-T(BP@(G!?8W!T<B(I
M.PH@("`@("`@(&]F9E]T87-K7W-T<G5C=%]S97-S:6]N(#T@345-0D527T]&
M1E-%5"@B=&%S:U]S=')U8W0B+"`B<V5S<VEO;B(I.PH@("`@("`@(&]F9E]T
M87-K7W-T<G5C=%]T:6UE<R`]($U%34)%4E]/1D93150H(G1A<VM?<W1R=6-T
M(BP@(G-E<W-I;VXB*3L*("`@("`@("!O9F9?=&US7W1M<U]U=&EM92`]($U%
M34)%4E]/1D93150H(G1M<R(L(")T;7-?=71I;64B*3L*("`@("`@("!O9F9?
M=&US7W1M<U]S=&EM92`]($U%34)%4E]/1D93150H(G1M<R(L(")T;7-?<W1I
M;64B*3L*("`@("`@("!O9F9?=&US7W1M<U]C=71I;64@/2!-14U"15)?3T9&
M4T54*")T;7,B+"`B=&US7V-U=&EM92(I.PH@("`@("`@(&]F9E]T;7-?=&US
M7V-S=&EM92`]($U%34)%4E]/1D93150H(G1M<R(L(")T;7-?8W-T:6UE(BD[
M"@H@("`@("`@(')E9VES=&5R7V5X=&5N<VEO;BAC;VUM86YD7W1A8FQE*3L*
M?0H*+RH*("H@(%1H92!?9FEN:2@I(&9U;F-T:6]N(&ES(&-A;&QE9"!I9B!T
M:&4@<VAA<F5D(&]B:F5C="!I<R!U;FQO861E9"X*("H@($EF(&1E<VER960L
M('!E<F9O<FT@86YY(&-L96%N=7!S(&AE<F4N"B`J+PIV;VED"E]F:6YI*'9O
M:60I"GL*?0H*=F]I9`IC;61?<&-O<F4H=F]I9"D*>PH@("`@("`@(&EN="!C
M.PH@("`@("`@(&EN="!T:')E861?;6]D92`](#`["B`@("`@("`@=6QO;F<@
M=F%L=64["B`@("`@("`@8VAA<B`J9FEL96YA;64@/2`B8V]R92(["B`@("`@
M("`@<W1R=6-T('1A<VM?8V]N=&5X="`J=&,["@H@("`@("`@('=H:6QE("@H
M8R`](&=E=&]P="AA<F=C;G0L(&%R9W,L(")T;SHB*2D@(3T@14]&*2!["B`@
M("`@("`@("`@("`@("!S=VET8V@H8RD@>PH@("`@("`@("`@("`@("`@8V%S
M92`G;R<Z"B`@("`@("`@("`@("`@("`@("`@("`@(&9I;&5N86UE(#T@;W!T
M87)G.PH@("`@("`@("`@("`@("`@("`@("`@("!B<F5A:SL*("`@("`@("`@
M("`@("`@(&-A<V4@)W0G.@H@("`@("`@("`@("`@("`@("`@("`@("!T:')E
M861?;6]D92`](#$["B`@("`@("`@("`@("`@("`@("`@("`@(&)R96%K.PH@
M("`@("`@("`@("`@("`@9&5F875L=#H*("`@("`@("`@("`@("`@("`@("`@
M("`@87)G97)R<RLK.PH@("`@("`@("`@("`@("`@?0H@("`@("`@('T*"B`@
M("`@("`@:68@*&%R9V5R<G,@?'P@(6%R9W-;;W!T:6YD72D@>PH@("`@("`@
M("`@("`@("`@8VUD7W5S86=E*'!C+3YC=7)C;60L(%-93D]04TE3*3L*("`@
M("`@("!]"@H@("`@("`@(&EF("A#4D%32$1%0E5'*#$I*2!["B`@("`@("`@
M("`@("`@("!F<')I;G1F*&9P+"`B87)G(&ES("5S7&XB+"!A<F=S6V]P=&EN
M9%TI.PH@("`@("`@('T*"B`@("`@("`@:68@*'-T<E]T;U]C;VYT97AT*&%R
M9W-;;W!T:6YD72P@)G9A;'5E+"`F=&,I(#T](%-44E])3E9!3$E$*2!["B`@
M("`@("`@("`@("`@("!E<G)O<BA)3D9/+"`B26YV86QI9"!T87-K(&]R('!I
M9#H@)7-<;B(L(&%R9W-;;W!T:6YD72D["B`@("`@("`@("`@("`@("!R971U
M<FX["B`@("`@("`@?0H*"B`@("`@("`@:68@*$-205-(1$5"54<H,2DI('L*
M("`@("`@("`@("`@9G!R:6YT9BAF<"P@(F5L9E]C;W)E7V1U;7`Z('1A<VL@
M)3`X;'@@(&UO9&4@)60@9FEL92`E<UQN(BP@=&,M/G1A<VLL('1H<F5A9%]M
M;V1E+"!F:6QE;F%M92D["B`@("`@("`@?0H*("`@("`@("`O*B!D=6UP('1H
M92!T87-K("HO"B`@("`@("`@96QF7V-O<F5?9'5M<"AT8RT^=&%S:RP@=&AR
;96%D7VUO9&4L(&9I;&5N86UE+"!F<"D["GT*
`
end
SHAR_EOF
  (set 20 07 02 03 07 16 02 'pcore.c'; eval "$shar_touch") &&
  chmod 0444 'pcore.c' ||
  $echo 'restore of' 'pcore.c' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'pcore.c:' 'MD5 check failed'
c41cff00dd7e05141b1c584af4ce5000  pcore.c
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'pcore.c'`"
    test 20772 -eq "$shar_count" ||
    $echo 'pcore.c:' 'original size' '20772,' 'current size' "$shar_count!"
  fi
fi
# ============= lc_core.h ==============
if test -f 'lc_core.h' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'lc_core.h' '(file already exists)'
else
  $echo 'x -' extracting 'lc_core.h' '(binary)'
  sed 's/^X//' << 'SHAR_EOF' | uudecode &&
begin 600 lc_core.h
M+RH@:6YC;'5D92]L8U]C;W)E+F@*("H*("H@1&5F:6YE<R!T:&4@87)C:&ET
M96-T=7)E+61E<&5N9&5N="!P87)T<R!F;W(@9'5M<&EN9R!A(&-O<F4N"B`J
M"B`J("`@("`@0V]P>7)I9VAT("A#*2`R,#`R($E"32!$975T<V-H;&%N9"!%
M;G1W:6-K;'5N9R!';6)(+`H@*B`@("`@("`@("`@("`@("`@("`@("`@("!)
M0DT@0V]R<&]R871I;VX*("H@("`@("!!=71H;W(H<RD@4W1E9F%N(%-C:&QO
M<W-E<B`\<W-C:&QO<W-`9&4N:6)M+F-O;3X*("H*("H@("`@("!-;V1I9FEE
M9"`R,#`V(&)Y($-A<W1O<B!&=2`\8V%S=&]R0#-P87)D871A+F-O;3X*("H@
M("`@("`S4$%2(&1A=&$*("H*("HO"B-D969I;F4@14Q&7U!205)'4UH@("`@
M("@X,"D@("`@("`O*B!L96YG=&@@;V8@87)G=6UE;G1S("HO"@HO*B!%3$8@
M87)C:"`J+PHC9&5F:6YE($5-7S,X-B`@("`@("`@("`S("`@("`@(`HC9&5F
M:6YE($5-7U,S.3`@("`@("`@("`R,B`*"B\J(&EN9&EC97,@*B\*(V1E9FEN
M92!%25]#3$%34R`@("`@("`@-"`@("`@("`*(V1E9FEN92!%25]$051!("`@
M("`@("`@-0HC9&5F:6YE($5)7U9%4E-)3TX@("`@("`V"B-D969I;F4@14E?
M4$%$("`@("`@("`@(#<*"B-D969I;F4@14Q&34%'("`@("`@("`@(")<,3<W
M14Q&(@HC9&5F:6YE(%-%3$9-04<@("`@("`@("`T"B-D969I;F4@159?0U52
M4D5.5"`@("`@(#$*(V1E9FEN92!%25].241%3E0@("`@("`@,38*"B\J(&YO
M=&4@:61E;G1I9FEE<B`J+PHC9&5F:6YE($547T-/4D4@("`@("`@("`T("`@
M("`@(`HC9&5F:6YE($Y47U!24U1!5%53("`@("`Q"B-D969I;F4@3E1?4%)0
M4TE.1D\@("`@(#,*(V1E9FEN92!.5%]405-+4U1254-4("`@-`HC9&5F:6YE
M(%!47TY/5$4@("`@("`@("`T"B-D969I;F4@3E1?4%)&4%)%1R`@("`@(#(*
M(V1E9FEN92!05%],3T%$("`@("`@("`@,0H*+RH@=FUA(&9L86=S("HO"B-D
M969I;F4@5DU?4D5!1"`@("`@("`@(#!X,#`P,#`P,#$@("`@("`*(V1E9FEN
M92!635]74DE412`@("`@("`@,'@P,#`P,#`P,@HC9&5F:6YE(%9-7T5814,@
M("`@("`@("`P>#`P,#`P,#`T"B-D969I;F4@5DU?24\@("`@("`@("`@(#!X
M,#`P,#0P,#`@"B-D969I;F4@5DU?1U)/5U-54"`@("`@(#!X,#`P,#`R,#`*
M(V1E9FEN92!635]'4D]74T1/5TX@("`@,'@P,#`P,#$P,"`*(V1E9FEN92!6
M35]%6$5#551!0DQ%("`@,'@P,#`P,3`P,`HC9&5F:6YE(%9-7U-(05)%1"`@
M("`@("`P>#`P,#`P,#`X"@H*(V1E9FEN92!01E]2("`@("`@("`@("`@,'@T
M"B-D969I;F4@4$9?5R`@("`@("`@("`@(#!X,@HC9&5F:6YE(%!&7U@@("`@
M("`@("`@("`P>#$*(V1E9FEN92!01E]$54U00T]212`@("`@("`H,55,/#PS
M*0H*+RH@8FET('9E<G-I;VX@*B\*(V1E9FEN92!%3$9#3$%34S,R("`@("`@
M,0HC9&5F:6YE($5,1D-,05-3-C0@("`@("`R"@HO*B!B>71E(&]R9&5R("HO
M"B-D969I;F4@14Q&1$%403),4T(@("`@(#$*(V1E9FEN92!%3$9$051!,DU3
M0B`@("`@,@H*"B-D969I;F4@<F]U;F1U<"AX+"!Y*2`@*"@H*'@I*R@H>2DM
M,2DI+RAY*2DJ*'DI*0HC9&5F:6YE($-47U1/7U-%0U,H>"D@("`H*'@I("\@
M2%HI"B-D969I;F4@0U1?5$]?55-%0U,H>"D@("@H*'@I("4@2%HI("H@,3`P
M,#`P,"](6BD*"B\J(#,R(&)I="`J+PIT>7!E9&5F('5I;G0S,E]T($5L9C,R
M7T%D9'(["G1Y<&5D968@=6EN=#$V7W0@16QF,S)?2&%L9CL*='EP961E9B!U
M:6YT,S)?="!%;&8S,E]/9F8["G1Y<&5D968@=6EN=#,R7W0@16QF,S)?5V]R
M9#L*"G1Y<&5D968@<W1R=6-T(&5L9C,R7VAD<@I["B`@("`@("`@=6EN=#A?
M="!E7VED96YT6T5)7TY)1$5.5%T["B`@("`@("`@16QF,S)?2&%L9B`@("!E
M7W1Y<&4["B`@("`@("`@16QF,S)?2&%L9B`@("!E7VUA8VAI;F4["B`@("`@
M("`@16QF,S)?5V]R9"`@("!E7W9E<G-I;VX["B`@("`@("`@16QF,S)?061D
M<B`@("!E7V5N=')Y.PH@("`@("`@($5L9C,R7T]F9B`@("`@95]P:&]F9CL*
M("`@("`@("!%;&8S,E]/9F8@("`@(&5?<VAO9F8["B`@("`@("`@16QF,S)?
M5V]R9"`@("!E7V9L86=S.PH@("`@("`@($5L9C,R7TAA;&8@("`@95]E:'-I
M>F4["B`@("`@("`@16QF,S)?2&%L9B`@("!E7W!H96YT<VEZ93L*("`@("`@
M("!%;&8S,E](86QF("`@(&5?<&AN=6T[("`@(`H@("`@("`@($5L9C,R7TAA
M;&8@("`@95]S:&5N='-I>F4["B`@("`@("`@16QF,S)?2&%L9B`@("!E7W-H
M;G5M.R`@(`H@("`@("`@($5L9C,R7TAA;&8@("`@95]S:'-T<FYD>#L*?2!%
M;&8S,E]%:&1R.PH*='EP961E9B!S=')U8W0@96QF,S)?<&AD<B`*>PH@("`@
M("`@($5L9C,R7U=O<F0@("`@<%]T>7!E.PH@("`@("`@($5L9C,R7T]F9B`@
M("`@<%]O9F9S970["B`@("`@("`@16QF,S)?061D<B`@("!P7W9A9&1R.PH@
M("`@("`@($5L9C,R7T%D9'(@("`@<%]P861D<CL*("`@("`@("!%;&8S,E]7
M;W)D("`@('!?9FEL97-Z.PH@("`@("`@($5L9C,R7U=O<F0@("`@<%]M96US
M>CL*("`@("`@("!%;&8S,E]7;W)D("`@('!?9FQA9W,["B`@("`@("`@16QF
M,S)?5V]R9"`@("!P7V%L:6=N.PI]($5L9C,R7U!H9'(["@IT>7!E9&5F('-T
M<G5C="!E;&8S,E]N;W1E(`I["B`@("`@("`@("!%;&8S,E]7;W)D("`@(&Y?
M;F%M97-Z.R`@("`@("`O*B!.86UE('-I>F4@*B\*("`@("`@("`@($5L9C,R
M7U=O<F0@("`@;E]D97-C<WH[("`@("`@("\J($-O;G1E;G0@<VEZ92`J+PH@
M("`@("`@("`@16QF,S)?5V]R9"`@("!N7W1Y<&4[("`@("`@("`@+RH@0V]N
M=&5N="!T>7!E("HO"GT@16QF,S)?3FAD<CL*"@H*+RH@-C0@8FET("HO"G1Y
M<&5D968@=6EN=#8T7W0@16QF-C1?061D<CL*='EP961E9B!U:6YT,39?="`@
M16QF-C1?2&%L9CL*='EP961E9B!U:6YT-C1?="!%;&8V-%]/9F8["G1Y<&5D
M968@=6EN=#,R7W0@16QF-C1?5V]R9#L*='EP961E9B!U:6YT-C1?="!%;&8V
M-%]8=V]R9#L*"G1Y<&5D968@<W1R=6-T(&5L9C8T7VAD<B`*>PH@('5I;G0X
M7W0@95]I9&5N=%LQ-ET["B`@16QF-C1?2&%L9B!E7W1Y<&4["B`@16QF-C1?
M2&%L9B!E7VUA8VAI;F4["B`@16QF-C1?5V]R9"!E7W9E<G-I;VX["B`@16QF
M-C1?061D<B!E7V5N=')Y.R`@("`@("`@("`@+RH@16YT<GD@<&]I;G0@=FER
M='5A;"!A9&1R97-S("HO"B`@16QF-C1?3V9F(&5?<&AO9F8[("`@("`@("`@
M("`@+RH@4')O9W)A;2!H96%D97(@=&%B;&4@9FEL92!O9F9S970@*B\*("!%
M;&8V-%]/9F8@95]S:&]F9CL@("`@("`@("`@("`O*B!396-T:6]N(&AE861E
M<B!T86)L92!F:6QE(&]F9G-E="`J+PH@($5L9C8T7U=O<F0@95]F;&%G<SL*
M("!%;&8V-%](86QF(&5?96AS:7IE.PH@($5L9C8T7TAA;&8@95]P:&5N='-I
M>F4["B`@16QF-C1?2&%L9B!E7W!H;G5M.PH@($5L9C8T7TAA;&8@95]S:&5N
M='-I>F4["B`@16QF-C1?2&%L9B!E7W-H;G5M.PH@($5L9C8T7TAA;&8@95]S
M:'-T<FYD>#L*?2!%;&8V-%]%:&1R.PH*='EP961E9B!S=')U8W0@96QF-C1?
M<&AD<B`*>PH)16QF-C1?5V]R9"!P7W1Y<&4["@E%;&8V-%]7;W)D('!?9FQA
M9W,["@E%;&8V-%]/9F8@<%]O9F9S970[("`@("`@("`@("`O*B!396=M96YT
M(&9I;&4@;V9F<V5T("HO"@E%;&8V-%]!9&1R('!?=F%D9'([("`@("`@("`@
M("`O*B!396=M96YT('9I<G1U86P@861D<F5S<R`J+PH)16QF-C1?061D<B!P
M7W!A9&1R.R`@("`@("`@("`@+RH@4V5G;65N="!P:'ES:6-A;"!A9&1R97-S
M("HO"@E%;&8V-%]8=V]R9"!P7V9I;&5S>CL@("`@("`@("`O*B!396=M96YT
M('-I>F4@:6X@9FEL92`J+PH)16QF-C1?6'=O<F0@<%]M96US>CL@("`@("`@
M("`@+RH@4V5G;65N="!S:7IE(&EN(&UE;6]R>2`J+PH)16QF-C1?6'=O<F0@
M<%]A;&EG;CL@("`@("`@("`@+RH@4V5G;65N="!A;&EG;FUE;G0L(&9I;&4@
M)B!M96UO<GD@*B\*?2!%;&8V-%]0:&1R.PH*='EP961E9B!S=')U8W0@96QF
M-C1?;F]T92`*>PH@($5L9C8T7U=O<F0@;E]N86UE<WH[("`O*B!.86UE('-I
M>F4@*B\*("!%;&8V-%]7;W)D(&Y?9&5S8W-Z.R`@+RH@0V]N=&5N="!S:7IE
M("HO"B`@16QF-C1?5V]R9"!N7W1Y<&4[("`@("\J($-O;G1E;G0@='EP92`J
M+PI]($5L9C8T7TYH9'(["@H*+RH@*B\*"@IS=')U8W0@=&US(`I["B`@("`@
M("`@8VQO8VM?="!T;7-?=71I;64["B`@("`@("`@8VQO8VM?="!T;7-?<W1I
M;64["B`@("`@("`@8VQO8VM?="!T;7-?8W5T:6UE.PH@("`@("`@(&-L;V-K
M7W0@=&US7V-S=&EM93L*?3L*"G-T<G5C="!M96UE;&9N;W1E(`I["B`@("`@
M("`@8V]N<W0@8VAA<B`J;F%M93L*("`@("`@("!I;G0S,E]T('1Y<&4["B`@
M("`@("`@=6EN=#,R7W0@9&%T87-Z.PH@("`@("`@('9O:60@*F1A=&$["GT[
M"@H*+RH*("H@8V]R95]N;W1E<VEZ92@I"B`J("T@8V%L8W5L871E<R!S:7IE
M(&]F(&YO=&4*("HO"G-T871I8R!I;G0@"F-O<F5?;F]T97-I>F4H8VAA<B`J
M;F%M92P@:6YT(&1A=&%S>BD@"GL*("`@("`@("!I;G0@<WH["@H@("`@("`@
M('-Z(#T@<VEZ96]F*'-T<G5C="!E;&9?;F]T92D["B`@("`@("`@<WH@*ST@
M<F]U;F1U<"AS=')L96XH;F%M92DL(#0I.PH@("`@("`@('-Z("L](')O=6YD
M=7`H9&%T87-Z+"`T*3L*"B`@("`@("`@<F5T=7)N('-Z.PI]"@HO*@H@*B!C
M;W)E7V1U;7!?=W)I=&4H*0H@*B`M('=R:71E<R!D871A('1O(&-O<F4@9FEL
M90H@*B\*<W1A=&EC(&EN="`*8V]R95]D=6UP7W=R:71E*$9)3$4@*F9I;&4L
M(&-O;G-T('9O:60@*F%D9'(L(&EN="!L96XI(`I["B`@("`@("`@:68H9G=R
M:71E*&%D9'(L(#$L(&QE;BP@9FEL92D@/3T@;&5N*2!["B`@("`@("`@("`@
M("`@("!R971U<FX@,#L*("`@("`@("!](&5L<V4@>PH@("`@("`@("`@("`@
M("`@<F5T=7)N(#$["B`@("`@("`@?0I]"@HO*@H@*B!C;W)E7V1U;7!?<V5E
M:R@I"B`J("T@<V5E:R!T;R!O9F8@:6X@9FEL90H@*B\*<W1A=&EC(&EN="`*
M8V]R95]D=6UP7W-E96LH1DE,12`J9FEL92P@:6YT(&]F9BD@"GL*("`@("`@
M("!I9BAF<V5E:RAF:6QE+"!O9F8L(%-%14M?4T54*2`]/2`P*2!["B`@("`@
M("`@("`@("`@("!R971U<FX@,#L*("`@("`@("!](&5L<V4@>PH@("`@("`@
M("`@("`@("`@<F5T=7)N(#$["B`@("`@("`@?0I]"@HO*@H@*B!C;W)E7W=R
M:71E;F]T92@I"B`J("T@=W)I=&5S(&$@;F]T92!T;R!C;W)E(&9I;&4*("H*
M("H@("`@9FEL92!O9F9S970@("TM/B`@*RTM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TK"B`J("`@("`@("`@("`@("`@("`@("`@("!\($5L9C,R7U=O<F0@
M("`@;E]N86UE<WH[('P*("H@("`@("`@("`@('=R:71E("`@("`@('P@16QF
M,S)?5V]R9"`@("!N7V1E<V-S>CL@IB`@<W1R=6-T(&5L9E]N;W1E("`@"B`J
M("`@("`@("`@("`@("`@("`@("`@("!\($5L9C,R7U=O<F0@("`@;E]T>7!E
M.R`@('P@(`H@*B`@("`@("`@("`@("`@("`@("`@("`@*RTM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TK"B`J("`@("`@("`@("!W<FET92`@("`@("!\(&YA
M;64@("`@("`@("`@("`@("`@("`@('P*("H@("`@("`@("`@("`@("`@("`@
M("`@("LM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM*PH@*B`@("`@("`@("`@
M("`@("`@("`@("`@.B`@("`@("`@("`@("`@("`@("`@("`@("`Z("!R;W5N
M9'5P)V5D(#0*("H@("`@("`@("`@('-E96L@("`M+3X@("LM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM*PH@*B`@("`@("`@("`@=W)I=&4@("`@("`@?"!D
M871A("`@("`@("`@("`@("`@("`@("!\("!L96X@9&%T87-Z"B`J("`@("`@
M("`@("`@("`@("`@("`@("`K+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2L*
M("H@("`@("`@("`@("`@("`@("`@("`@(#H@("`@("`@("`@("`@("`@("`@
M("`@("`@.B`@<F]U;F1U<"=E9"`T"B`J("`@("`@("`@("!S965K("`@+2T^
M("`K+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2L*("H*("HO"G-T871I8R!I
M;G0@"F-O<F5?=W)I=&5N;W1E*$9)3$4@*B!F:6QE+"!S=')U8W0@;65M96QF
M;F]T92`J;65N+"!V;VED("ID871A+"!I;G0@9&%T87-Z*0I["B`@("`@("`@
M<W1R=6-T(&5L9E]N;W1E(&5N.PH@("`@("`@('5N<VEG;F5D(&QO;F<@;V9F
M<V5T.PH@("`@("`@("`@("`@("`@"B`@("`@("`@96XN;E]N86UE<WH@/2!S
M=')L96XH;65N+3YN86UE*3L*("`@("`@("!E;BYN7W1Y<&4@/2!M96XM/G1Y
M<&4["B`@("`@("`@96XN;E]D97-C<WH@/2!D871A<WH["B`@("`@("`@"B`@
M("`@("`@:68H8V]R95]D=6UP7W=R:71E*&9I;&4L("9E;BP@<VEZ96]F*&5N
M*2DI('L*("`@("`@("`@("`@("`@(')E='5R;B`Q.R`*("`@("`@("!]"B`@
M("`@("`@:68H8V]R95]D=6UP7W=R:71E*&9I;&4L(&UE;BT^;F%M92P@96XN
M;E]N86UE<WHI*2!["B`@("`@("`@("`@("`@("!R971U<FX@,3L@"B`@("`@
M("`@?0H*("`@("`@("!O9F9S970@/2!F=&5L;"AF:6QE*3L*("`@("`@("!I
M9BAC;W)E7V1U;7!?<V5E:RAF:6QE+"!R;W5N9'5P*&]F9G-E="P@-"DI*2![
M"B`@("`@("`@("`@("`@("!R971U<FX@,3L@"B`@("`@("`@?0H@("`@("`@
M(&EF*&-O<F5?9'5M<%]W<FET92AF:6QE+"!D871A+"!D871A<WHI*2!["B`@
M("`@("`@("`@("`@("!R971U<FX@,3L@"B`@("`@("`@?0H*("`@("`@("!O
M9F9S970@/2!F=&5L;"AF:6QE*3L*("`@("`@("!I9BAC;W)E7V1U;7!?<V5E
M:RAF:6QE+"!R;W5N9'5P*&]F9G-E="P@-"DI*2!["B`@("`@("`@("`@("`@
M("!R971U<FX@,3L*("`@("`@("!]"B`@("`@("`@<F5T=7)N(#`["GT*"B\J
M"B`J(&-O<F5?;6%Y9'5M<"@I"B`J("T@8VAE8VMS(&9L86=S(&EF('9M82!H
M87,@=&\@8F4@9'5M<&5D"B`J+PIS=&%T:6,@:6YL:6YE(&EN="`*8V]R95]M
M87ED=6UP*'5I;G0S,E]T(&9L86=S*0I["B`@("`@("`@:68@*"$H9FQA9W,@
M)B!635]214%$*2D@"B`@("`@("`@("`@("`@("!R971U<FX@,#L*("`@("`@
M("!I9B`H9FQA9W,@)B!635])3RD@"B`@("`@("`@("`@("`@("!R971U<FX@
M,#L*("`@("`@("!I9B`H9FQA9W,@)B`H5DU?5U))5$5\5DU?1U)/5U-54'Q6
M35]'4D]74T1/5TXI*2`*("`@("`@("`@("`@("`@(')E='5R;B`Q.PH@("`@
M("`@(&EF("AF;&%G<R`F("A635]214%$?%9-7T5814-\5DU?15A%0U5404),
M17Q635]32$%2140I*2`*("`@("`@("`@("`@("`@(')E='5R;B`P.PH*("`@
M("`@("!R971U<FX@,3L*?0H*+RH*("H@8V]R95]G971?87)G<R@I"B`J("T@
M9V5T<R!A<F=S(&]F(&-O;6UA;F0@=&AA="!I<W-U960@=&%S:PH@*B\*=F]I
M9`IC;W)E7V=E=%]A<F=S*'9O:60@*FUM<"P@:V%D9')?="!S=&%R="P@:6YT
M(&QE;BP@8VAA<B`J87)G<RD@"GL*("`@("`@("!C:&%R(&%;14Q&7U!205)'
M4UI=.PH@("`@("`@(&EN="!I.PH@("`@("`@(&EN="!R8SL*"B`@("`@("`@
M:68@*&QE;B`^/2!%3$9?4%)!4D=36BD@;&5N(#T@14Q&7U!205)'4UH["@H@
M("`@("`@(')C(#T@<F5A9&UE;2AS=&%R="P@559!1$12+"!A+"!L96XL(")2
M96%D:6YG('!R;V-E<W,@87)G<R(L"B`@("`@("`@("`@(%)%5%523E]/3E]%
M4E)/4BD["B`@("`@("`@:68H<F,@(3T@1D%,4T4I('L*("`@("`@("`@("`@
M("`@(')E='5R;CL*("`@("`@("!]"B`@("`@("`@+RH@8VQE86X@87)G<R`J
M+PH@("`@("`@(&9O<BAI(#T@,#L@:2`\(&QE;CL@:2LK*2!I9B`H85MI72`]
M/2`P*2!A6VE=(#T@)R`G.PH@("`@("`@(&%;;&5N72`](#`["@H@("`@("`@
M('-T<F-P>2AA<F=S+"!A*3L*("`@("`@("!R971U<FX["GT*"B\J"B`J(&-O
M<F5?9'5M<%]P9W,H*2`*("H@+2!W<FET97,@<&%G97,@<W1A<G1I;F<@9G)O
M;2`\<W1A<G0^(&]F('9M82!T;R!C;W)E(&9I;&4*("HO"G-T871I8R!I;G0@
M"F-O<F5?9'5M<%]P9W,H=F]I9"`J;6UP+"!&24Q%("H@8V]R95]F:6QE+"!K
M861D<E]T('-T87)T+"!K861D<E]T(&5N9"D*>PH@("`@("`@(&MA9&1R7W0@
M861D<CL*("`@("`@("!U;G-I9VYE9"!L;VYG(&QO;F<@<&%D9'(["B`@("`@
M("`@:6YT(&-N="`](#`L(')C+"!W<FET=&5N.PH@("`@("`@(&-H87(@*F)U
M9F9E<CL*("`@("`@("!B=69F97(];6%L;&]C*%!!1T5325I%*"DI.PH*("`@
M("`@("!F;W(@*&%D9'(@/2!S=&%R=#L@861D<B`\(&5N9#L@861D<B`K/2!0
M04=%4TE:12@I*2!["B`@("`@("`@("`@("`@("!W<FET=&5N(#T@,#L*("`@
M("`@("`@("`@("`@(&EF("AU=G1O<"A#55)214Y47T-/3E1%6%0H*2P@861D
M<BP@)G!A9&1R+"`P*2D@>PH@("`@("`@("`@("`@("`@("`@("`@("!R8R`]
M(')E861M96TH861D<BP@559!1$12+"!B=69F97(L(%!!1T5325I%*"DL"B`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`B<F5A9&EN9R!C;W)E('!A9V5S
M(BP@455)150I.PH@("`@("`@("`@("`@("`@("`@("`@("!I9BAR8R`A/2!&
M04Q312`F)B`A8V]R95]D=6UP7W=R:71E*&-O<F5?9FEL92P@8G5F9F5R+"!0
M04=%4TE:12@I*2D@>PH@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M(&-N="LK.PH@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@('=R:71T
M96XK*SL*("`@("`@("`@("`@("`@("`@("`@("`@?0H@("`@("`@("`@("`@
M("`@?0H*("`@("`@("`@("`@("`@(&EF("@A=W)I='1E;BD@>PH@("`@("`@
M("`@("`@("`@("`@("`@("`O+R!F<')I;G1F*&9P+"`B3D]413H@:'5N:R!A
M="!P86=E(#!X)3`X>"%<;B(L(&%D9'(I.PH@("`@("`@("`@("`@("`@("`@
M("`@("!C;W)E7V1U;7!?<V5E:RAC;W)E7V9I;&4L(&9T96QL*&-O<F5?9FEL
M92D@*R!004=%4TE:12@I*3L*("`@("`@("`@("`@("`@('T*("`@("`@("!]
M"@H@("`@("`@(&9R964H8G5F9F5R*3L*("`@("`@("!R971U<FX@8VYT.PI]
!"@H@
`
end
SHAR_EOF
  (set 20 07 01 19 14 33 36 'lc_core.h'; eval "$shar_touch") &&
  chmod 0444 'lc_core.h' ||
  $echo 'restore of' 'lc_core.h' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'lc_core.h:' 'MD5 check failed'
398ee3bef4efdafa6cdc63c50df127e8  lc_core.h
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'lc_core.h'`"
    test 8776 -eq "$shar_count" ||
    $echo 'lc_core.h:' 'original size' '8776,' 'current size' "$shar_count!"
  fi
fi
# ============= lc_core_i386.h ==============
if test -f 'lc_core_i386.h' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'lc_core_i386.h' '(file already exists)'
else
  $echo 'x -' extracting 'lc_core_i386.h' '(text)'
  sed 's/^X//' << 'SHAR_EOF' > 'lc_core_i386.h' &&
/* asm-i386/lc_core.h
X *
X * Defines the architecture-dependent parts for the core.
X *
X *      Copyright (C) 2002 IBM Deutschland Entwicklung GmbH,
X *                         IBM Corporation
X *      Author(s) Stefan Schlosser <sschloss@de.ibm.com>
X *
X */
extern int defcpu;
X
#define ELF_PRARGSZ     (80) 
#define ELF_CLASS       ELFCLASS32
#define ELF_DATA        ELFDATA2LSB
#define ELF_ARCH        EM_386
#define HZ              100
X
#define elfhdr elf32_hdr
#define elf_phdr elf32_phdr
#define elf_note elf32_note
X
typedef  unsigned long kaddr_t;
X
#define core_print_regs(pr_reg) \
X        core_print_i386_regs((elf_greg_t *)pr_reg)
X
#define core_print_fpregs(fpu) \
X        core_print_i387_regs((elf_fpregset_t *)fpu)
X
X
#define ELF_NGREG       17 
typedef uint32_t elf_greg_t;
typedef elf_greg_t elf_gregset_t[ELF_NGREG];
X
struct fpregset_t {
X        long    cwd;
X        long    swd;
X        long    twd;
X        long    fip;
X        long    fcs;
X        long    foo;
X        long    fos;
X        long    st_space[20];   /* 8*10 bytes for each FP-reg = 80 bytes */
};
X
typedef struct fpregset_t elf_fpregset_t;
X
struct elf_siginfo
{
X        int32_t     si_signo;                       /* signal number */
X        int32_t     si_code;                        /* extra code */
X        int32_t     si_errno;                       /* errno */
};
X
struct elf_prstatus
{
X        struct elf_siginfo pr_info;     /* Info associated with signal */
X        int16_t   pr_cursig;              /* Current signal */
X        uint32_t pr_sigpend;       /* Set of pending signals */
X        uint32_t pr_sighold;       /* Set of held signals */
X        pid_t   pr_pid;
X        pid_t   pr_ppid;
X        pid_t   pr_pgrp;
X        pid_t   pr_sid;
X        struct timeval pr_utime;        /* User time */
X        struct timeval pr_stime;        /* System time */
X        struct timeval pr_cutime;       /* Cumulative user time */
X        struct timeval pr_cstime;       /* Cumulative system time */
X        elf_gregset_t pr_reg;   /* GP registers */
X        int32_t pr_fpvalid;         /* True if math co-processor being used.  */
};
X
struct elf_prpsinfo
{
X
X        char    pr_state;       /* numeric process state */
X        char    pr_sname;       /* char for pr_state */
X        char    pr_zomb;        /* zombie */
X        char    pr_nice;        /* nice val */
X        unsigned long pr_flag;  /* flags */
X        unsigned short pr_uid;
X        unsigned short pr_gid;
X        int   pr_pid, pr_ppid, pr_pgrp, pr_sid;
X        /* Lots missing */
X        char    pr_fname[16];   /* filename of executable */
X        char    pr_psargs[ELF_PRARGSZ]; /* initial part of arg list */
};
X
/*
X * core_print_regs()
X * - print registers
X */
static void 
core_print_i386_regs(elf_greg_t *r)
{
X        int i;
X        const char *regs[] = { "ebx", "ecx", "edx", "esi", "edi", "ebp",
X                              "eax", "ds", "es", "fs", "gs",
X                              "orig_eax", "eip", "cs",
X                              "efl", "uesp", "ss"};
X        fprintf(fp, "i386 regs: \n");
X
X        for(i=0; i<ELF_NGREG; i++) {
X        unsigned long val = r[i];
X        fprintf(fp, "   %-2d %-5s=%08lx %lu\n", i, regs[i], val, val);
X        }
}
X
/*
X * core_print_regs()
X * - print floating point registers
X */
static void
core_print_i387_regs(elf_fpregset_t *fpu)
{
X        int i;
X        fprintf(fp, "i387 regs: \n");
X
X        fprintf(fp, "   cwd=%ld swd=%ld twd=%ld fip=%ld fcs=%ld foo=%ld fos=%ld\n",
X                fpu->cwd, fpu->swd, fpu->twd, fpu->fip, fpu->fcs, fpu->foo, fpu->fos);
X
X        fprintf(fp, "   st_space[]: ");
X        for(i=0; i<20; i++) {
X                if(!(i % 5)) {
X                        fprintf(fp, "\n    ");
X                }
X                fprintf(fp, "[%d] %ld  ", i, fpu->st_space[i]);
X        }
X        fprintf(fp, "\n");
X
}
X
X
/*
X * core_get_regs()
X * - get registers of task
X */
int 
core_get_regs(elf_gregset_t *pr_reg, kaddr_t task, void *tsp) 
{
X        elf_gregset_t regs; 
X        int pt_regs_struct_sz = SIZE(pt_regs);
X
X        /*
X         * XXX CLF the registers in dha are almost certainly kernel
X         * mode registers which is not what one wants.  
X         * There's probably a better place to do the equiv of this.
X         */
X        if(0 && is_task_active(task)) {
X
X                if (ACTIVE()) {
X                        fprintf(fp, "UNABLE to get regs on live system!\n");
X                        return 1;
X                }
X
X        } else { 
X                /* registers are located at the end of kernel stack */
X                void *rsp;
X                rsp = alloca(pt_regs_struct_sz);
X
X                readmem(task + STACKSIZE() - pt_regs_struct_sz, KVADDR,
X                    rsp, pt_regs_struct_sz, "pt_regs", FAULT_ON_ERROR);
X
X                regs[0] = UINT(rsp + MEMBER_OFFSET("pt_regs", "ebx"));
X                regs[1] = UINT(rsp + MEMBER_OFFSET("pt_regs", "ecx"));
X                regs[2] = UINT(rsp + MEMBER_OFFSET("pt_regs", "edx"));
X                regs[3] = UINT(rsp + MEMBER_OFFSET("pt_regs", "esi"));
X                regs[4] = UINT(rsp + MEMBER_OFFSET("pt_regs", "edi"));
X                regs[5] = UINT(rsp + MEMBER_OFFSET("pt_regs", "ebp"));
X                regs[6] = UINT(rsp + MEMBER_OFFSET("pt_regs", "eax"));
X                regs[7] = UINT(rsp + MEMBER_OFFSET("pt_regs", "xds"));
X                regs[8] = UINT(rsp + MEMBER_OFFSET("pt_regs", "xes"));
X                regs[9] = UINT(rsp + MEMBER_OFFSET("pt_regs", "xds"));
X                regs[10] = UINT(rsp + MEMBER_OFFSET("pt_regs", "xds"));
X                regs[11] = UINT(rsp + MEMBER_OFFSET("pt_regs", "orig_eax"));
X                regs[12] = UINT(rsp + MEMBER_OFFSET("pt_regs", "eip"));
X                regs[13] = UINT(rsp + MEMBER_OFFSET("pt_regs", "xcs"));
X                regs[14] = UINT(rsp + MEMBER_OFFSET("pt_regs", "eflags"));
X                regs[15] = UINT(rsp + MEMBER_OFFSET("pt_regs", "esp"));
X                regs[16] = UINT(rsp + MEMBER_OFFSET("pt_regs", "xss"));
X        }
X
X        memcpy(pr_reg, &regs, sizeof(elf_gregset_t));
X        return 0;
}
X
/*
X * copy_fpu_fsave()
X * - copy fsave registers
X */
void copy_fpu_fsave(void *tsp, elf_fpregset_t *fpu)
{
X        kaddr_t *fsave;
X
X        fsave = tsp + OFFSET(task_struct_thread)
X                + MEMBER_OFFSET("thread_struct", "i387")
X                        + MEMBER_OFFSET("i387_union", "fsave");
X        memcpy(fpu, fsave, STRUCT_SIZE("user_i387_struct"));
X
}
X
/*
X * copy_fpu_fxsave()
X * - copy fxsave registers
X */
void copy_fpu_fxsave(void *tsp, elf_fpregset_t *fpu)
{
X        int i;
X        kaddr_t *fxsave, *to, *from;
X
X        fxsave = tsp + MEMBER_OFFSET("task_struct", "thread")
X                        + MEMBER_OFFSET("thread_struct", "i387")
X                                + MEMBER_OFFSET("i387_union", "fxsave");
X
X        /* get the fxsave */
X        memcpy(fpu, fxsave, 7 * sizeof(long));
X        return;
X        to = (kaddr_t *)&fpu->st_space[0];
X        from = tsp + MEMBER_OFFSET("task_struct", "thread")
X                        + MEMBER_OFFSET("thread_struct", "i387")
X                                + MEMBER_OFFSET("i387_union", "fxsave")
X                                        + MEMBER_OFFSET("i387_fxsave_struct", "st_space[0]");
X
X        /* copy from fxsave to fpu */
X        for ( i = 0 ; i < 8 ; i++) {
X                memcpy(to, from, 5 * sizeof(unsigned short));
X                to += 5; from += 8;
X        }
}
X
/*
X * fpu_valid()
X * - validate if fpu was used
X */
int fpu_valid(kaddr_t task)
{
X        static int math_offset, math_size;
X        int used_math;
X
X        void *tsp;
X
X
X        if (math_offset == 0) {
X            math_offset = MEMBER_OFFSET("task_struct", "used_math");
X            math_size = MEMBER_SIZE("task_struct", "used_math");
X        }
X
X        tsp = fill_task_struct(task);
X
X        switch(math_size) {
X        case 2:
X            used_math = SHORT(tsp + math_offset);
X            break;
X        case 4:
X            used_math = INT(tsp + math_offset);
X            break;
X        default:
X            fprintf(fp, "unexpected used_math size %d\n", math_size);
X            exit(1);
X        }
X        if (used_math) {
X                return 1;
X        } else {
X                return 0;
X        }
}
X
#define X86_FEATURE_FXSR  (0*32+24) 
int test_bit(int nr, unsigned int * addr)
{
X        return ((1UL << (nr & 31)) & (((const volatile unsigned int *) addr)[nr >> 5])) != 0;
}
X
/*
X * get_fpu()
X * - get the fpu registers
X */
int
core_get_fpu(kaddr_t task, elf_fpregset_t *fpu)
{
X        void *cpu, *tsp;
X
X        tsp = fill_task_struct(task);
X
X        if(!fpu_valid(task)) {
X                return 1;
X        }
X        if(is_task_active(task)) {
X                return 1;
X        }
X        cpu = alloca(SIZE(cpuinfo_x86));
X
X        readmem(symbol_value("boot_cpu_data"), KVADDR, cpu, SIZE(cpuinfo_x86), 
X            "cpuinfo_x86", FAULT_ON_ERROR);
X               
X        if(test_bit(X86_FEATURE_FXSR,
X            (unsigned int *)(cpu + MEMBER_OFFSET("cpuinfo_x86", "x86_capability")))) {
X                copy_fpu_fxsave(tsp, fpu);
X        } else {
X                copy_fpu_fsave(tsp, fpu);
X        }
X        return 0; 
}
X
X
X
SHAR_EOF
  (set 20 07 01 19 14 33 36 'lc_core_i386.h'; eval "$shar_touch") &&
  chmod 0444 'lc_core_i386.h' ||
  $echo 'restore of' 'lc_core_i386.h' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'lc_core_i386.h:' 'MD5 check failed'
53456a4ad15ff629561aef54b725592e  lc_core_i386.h
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'lc_core_i386.h'`"
    test 9144 -eq "$shar_count" ||
    $echo 'lc_core_i386.h:' 'original size' '9144,' 'current size' "$shar_count!"
  fi
fi
rm -fr _sh32530
exit 0