equal
deleted
inserted
replaced
659 begin |
659 begin |
660 {$IFDEF ENDIAN_LITTLE} |
660 {$IFDEF ENDIAN_LITTLE} |
661 endian:= independent; |
661 endian:= independent; |
662 {$ELSE} |
662 {$ELSE} |
663 endian:= (((independent and $FF000000) shr 24) or |
663 endian:= (((independent and $FF000000) shr 24) or |
664 ((independent and $00FF0000) shr 8) or |
664 ((independent and $00FF0000) shr 8) or |
665 ((independent and $0000FF00) shl 8) or |
665 ((independent and $0000FF00) shl 8) or |
666 ((independent and $000000FF) shl 24)) |
666 ((independent and $000000FF) shl 24)) |
667 {$ENDIF} |
667 {$ENDIF} |
668 end; |
668 end; |
669 |
669 |
670 |
670 |
671 procedure initModule; |
671 procedure initModule; |