Changeset 15598 for release/1.8
 Timestamp:
 Jan 19, 2013, 3:31:43 AM (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

release/1.8/source/level0/l0pred.lisp
r15093 r15598 290 290 (if (and (>= xtype target::subtagvectorH) 291 291 (>= ytype target::subtagvectorH)) 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 (eq structname 'logicalpathname)))351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 (return))))))))))))))292 (let* ((xsimple (if (= xtype target::subtagvectorH) 293 (ldb target::arrayH.flagscellsubtagbyte 294 (the fixnum (%svref x target::arrayH.flagscell))) 295 xtype)) 296 (ysimple (if (= ytype target::subtagvectorH) 297 (ldb target::arrayH.flagscellsubtagbyte 298 (the fixnum (%svref y target::arrayH.flagscell))) 299 ytype))) 300 (declare (fixnum xsimple ysimple)) 301 (if (= xsimple target::subtagsimplebasestring) 302 (if (= ysimple target::subtagsimplebasestring) 303 (locally 304 (declare (optimize (speed 3) (safety 0))) 305 (let* ((xlen (if (= xtype target::subtagvectorH) 306 (%svref x target::vectorH.logsizecell) 307 (uvsize x))) 308 (xpos 0) 309 (ylen (if (= ytype target::subtagvectorH) 310 (%svref y target::vectorH.logsizecell) 311 (uvsize y))) 312 (ypos 0)) 313 (declare (fixnum xlen xpos ylen ypos)) 314 (when (= xtype target::subtagvectorH) 315 (multiplevaluesetq (x xpos) (arraydataandoffset x))) 316 (when (= ytype target::subtagvectorH) 317 (multiplevaluesetq (y ypos) (arraydataandoffset y))) 318 (%simplestring= x y xpos ypos (the fixnum (+ xpos xlen)) (the fixnum (+ ypos ylen)))))) 319 ;;Bitvector case or fail. 320 (and (= xsimple target::subtagbitvector) 321 (= ysimple target::subtagbitvector) 322 (locally 323 (declare (optimize (speed 3) (safety 0))) 324 (let* ((xlen (if (= xtype target::subtagvectorH) 325 (%svref x target::vectorH.logsizecell) 326 (uvsize x))) 327 (xpos 0) 328 (ylen (if (= ytype target::subtagvectorH) 329 (%svref y target::vectorH.logsizecell) 330 (uvsize y))) 331 (ypos 0)) 332 (declare (fixnum xlen xpos ylen ypos)) 333 (when (= xlen ylen) 334 (when (= xtype target::subtagvectorH) 335 (multiplevaluesetq (x xpos) (arraydataandoffset x))) 336 (when (= ytype target::subtagvectorH) 337 (multiplevaluesetq (y ypos) (arraydataandoffset y))) 338 (do* ((i 0 (1+ i))) 339 ((= i xlen) t) 340 (declare (fixnum i)) 341 (unless (= (the bit (sbit x xpos)) (the bit (sbit y ypos))) 342 (return)) 343 (incf xpos) 344 (incf ypos)))))))) 345 (if (= xtype ytype) 346 (if (= xtype target::subtagistruct) 347 (and (let* ((structname (istructcellname (%svref x 0)))) 348 (and (eq structname (istructcellname (%svref y 0))) 349 (or (eq structname 'pathname) 350 (eq structname 'logicalpathname)) 351 (locally 352 (declare (optimize (speed 3) (safety 0))) 353 (let* ((xsize (uvsize x)) 354 (skip (if (eq structname 'pathname) 355 %physicalpathnameversion 356 1))) 357 (declare (fixnum xsize skip)) 358 (when (= xsize (the fixnum (uvsize y))) 359 (if *casesensitivefilesystem* 360 (do* ((i 1 (1+ i))) 361 ((= i xsize) t) 362 (declare (fixnum i)) 363 (unless (or (= i skip) 364 (equal (%svref x i) (%svref y i))) 365 (return))) 366 (do* ((i 1 (1+ i))) 367 ((= i xsize) t) 368 (declare (fixnum i)) 369 (unless (or (= i skip) 370 (equalp (%svref x i) (%svref y i))) 371 (return))))))))))))))) 372 372 373 373 #+(or ppc32target armtarget)
Note: See TracChangeset
for help on using the changeset viewer.