/[gcl]/gcl/lsp/destructuring_bind.c
ViewVC logotype

Diff of /gcl/lsp/destructuring_bind.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by camm, Fri Oct 25 02:41:48 2002 UTC revision 1.14 by camm, Wed Feb 26 22:21:36 2003 UTC
# Line 22  static void L1() Line 22  static void L1()
22          V5=(base[4]);          V5=(base[4]);
23          V6=(base[5]);          V6=(base[5]);
24          vs_top=sup;          vs_top=sup;
25  goto TTL;          goto TTL;
26  TTL:;  TTL:;
27          base[6]= VV[0];          base[6]= VV[0];
28          base[7]= (V1);          base[7]= (V1);
# Line 192  static void L3() Line 192  static void L3()
192          check_arg(1);          check_arg(1);
193          V28=(base[0]);          V28=(base[0]);
194          vs_top=sup;          vs_top=sup;
195  goto TTL;          goto TTL;
196  TTL:;  TTL:;
197          base[1]= symbol_name((V28));          base[1]= symbol_name((V28));
198          base[3]= VV[11];          base[3]= VV[11];
# Line 219  static void L4() Line 219  static void L4()
219          V30=(base[1]);          V30=(base[1]);
220          V31=(base[2]);          V31=(base[2]);
221          vs_top=sup;          vs_top=sup;
222  goto TTL;          goto TTL;
223  TTL:;  TTL:;
224          base[3]= VV[12];          base[3]= VV[12];
225          base[4]= VV[13];          base[4]= VV[13];
# Line 244  static void L5() Line 244  static void L5()
244          V33=(base[1]);          V33=(base[1]);
245          V34=(base[2]);          V34=(base[2]);
246          vs_top=sup;          vs_top=sup;
247  goto TTL;          goto TTL;
248  TTL:;  TTL:;
249          {register object V35;          {register object V35;
250          register object V36;          register object V36;
# Line 337  static void L6() Line 337  static void L6()
337          V41=(base[0]);          V41=(base[0]);
338          V42=(base[1]);          V42=(base[1]);
339          vs_top=sup;          vs_top=sup;
340  goto TTL;          goto TTL;
341  TTL:;  TTL:;
342          {register object V43;          {register object V43;
343          V43= (V42);          V43= (V42);
# Line 373  static void L7() Line 373  static void L7()
373          V44=(base[0]);          V44=(base[0]);
374          V45=(base[1]);          V45=(base[1]);
375          vs_top=sup;          vs_top=sup;
376  goto TTL;          goto TTL;
377  TTL:;  TTL:;
378          {register object V46;          {register object V46;
379          V46= (V45);          V46= (V45);
# Line 1043  static void L9() Line 1043  static void L9()
1043          V111=(base[4]);          V111=(base[4]);
1044          V112=(base[5]);          V112=(base[5]);
1045          vs_top=sup;          vs_top=sup;
1046  goto TTL;          goto TTL;
1047  TTL:;  TTL:;
1048          {register object V113;          {register object V113;
1049          base[6]= VV[72];          base[6]= VV[72];
# Line 1153  static void L11() Line 1153  static void L11()
1153          V135=(base[6]);          V135=(base[6]);
1154          V136=(base[7]);          V136=(base[7]);
1155          vs_top=sup;          vs_top=sup;
1156  goto TTL;          goto TTL;
1157  TTL:;  TTL:;
1158          if(((V131))!=Cnil){          if(((V131))!=Cnil){
1159          goto T479;}          goto T479;}

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26